| EvilAdmin | Дата: Четверг, 05.03.2015, 10:17 | Сообщение # 1 |
 Учитель
Группа: Администраторы
Сообщений: 310
Репутация: 0
Статус: Offline
| Процедуры
Процедура - подпрограмма, имеющая произвольное количество входных и выходных данных.
Описание процедуры имеет вид:
procedure <имя_процедуры> (<описание параметров-значений>);
var: <описание параметров-переменных>;
begin<операторы>
end;
Напишем процедуру для нахождения наибольшего общего делителя двух чисел с помощью алгоритма Евклида. Используем её для нахождения наибольшего общего делителя следующих шести чисел: 16, 32, 40, 64, 80 и 128.
Измените программу так, чтобы с её помощью можно было найти:
а) наибольшее общий делитель следующих пяти чисел: 12, 24, 30, 48 и 30;
б) наибольший общий делитель произвольных десяти целых двузначных чисел.
Функции
Функция - подпрограмма, имеющая единственный результат, записываемый в ячейку памяти, имя которой полностью совпадает с именем функции. Поэтому в блоке обязательно должен присутствовать оператор <имя_функции>:=<результат>
function <имя_функции> (<описание входных данных>): <тип_функции>;
begin
<операторы>;
<имя_функции> := <результат>
end;
Измените программу так, чтобы с её помощью можно было найти:
а) максимальное из чисел a,b,c;
б) максимальное из чисел b,c,d;
в) минимальное из четырёх чисел;
г) разность максимального и минимального чисел;
|
| |
| |
