Другие языки программирования и технологии

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

Итак, первый: как среди введенных чисел найти числа с максимальной и числа с минимальной ДРОБНОЙ частью?Вопрос второй: расскажите мне про использование модулей.И задача напоследок (хотя бы объясните, как решается):Зашифровать введенную с клавиатуры строку, заменой символов на символы с кодом меньшим на две единицы. Провести дешифровку.
* В Паскале существует функция 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;
Михаил Гырдымов
Михаил Гырдымов
583
Лучший ответ
1 используем функцию trunc - вычитаем сохраняем сравниваем.
2 Uses, далее по описанию модуля ( вопрос не понятен)
3 зависит от того в чем строка елси в в stirng, то по циклу от 1 до длины строки ( S[0]) разбираем ее используем функции char и ord, если "две единицы" это 11, то все, если больше 32, то не забываем о переполнении котроль в переменной iolelel - подавление трапа - {-I} - для версии от борланд