Программеры! Просветите по Pascal! Есть пара вопросов.

Загрузка...

Программеры! Просветите по Pascal! Есть пара вопросов.

  1. 1 используем функцию trunc - вычитаем сохраняем сравниваем.
    2 Uses, далее по описанию модуля ( вопрос не понятен)
    3 зависит от того в чем строка елси в в stirng, то по циклу от 1 до длины строки ( S0) разбираем ее используем функции char и ord, если "две единицы" это 11, то все, если больше 32, то не забываем о переполнении котроль в переменной iolelel - подавление трапа - {-I} - для версии от борланд
  2. * В Паскале существует функция frac, которая возвращает дробную часть числа действительного (Real, Double, Single, Extended et caetera) типа. НУ а дальше - стандартный цикл поиска максимального и минимального элемента.
    * Про создание модулей лучше всего обратиться к соответствующей литературе, т. к. это долгая история. По своей сути модуль - это готовая библиотека типовых процедур, функций, типов и. т. д. , которые могуть быть использованы в любой программе. Как правило, элементы в модуле связаны между собой по смыслу, например, crt - модуль для работы с текстовым экраном.
    А чтобы использовать уже созданный модуль - используется ключевое слово uses.
    * Замена символов реализуется очень просто.
    Напишем процедуру, которая, например, модифицирует исходную строку:
    procedure Encipher(var S: string);
    ___var
    ______I: Integer; {Если это Turbo Pascal, то экономнее Byte}
    ___begin
    ______for I := 1 to Length(S) do
    _________S := Chr(Ord(S)-2);
    ___end;

    procedure Decipher(var S: string);
    ___var
    ______I: Integer; {Если это Turbo Pascal, то экономнее Byte}
    ___begin
    ______for I := 1 to Length(S) do
    _________S := Chr(Ord(S)+2);
    ___end;

Загрузка...

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *