Пример итерационного вычисления факториала

function Factorial (N:integer): integer;

Var

i, fact: integer;

Begin

fact:= 1;

For i:=2 to N do

fact:= fact * i;

Factorial:= fact;

end;

Используйте глобальные данные только в том случае, если Вы не можете бз них обойтись

Дорога в ад программирования вымощена глобальными данными!

 

Лабораторные задания. Подпрограммы

Сконструировать консольное приложение в соответствии с одним из приведенных ниже заданий.

Конструирование подпрограмм

Оформить по заданию преподавателя одну из ранее разработанных программ раздела 2.3.3 как подпрограмму. Операции ввода данных и вывода результатов должны выполняться в главной программе. Для передачи информации между главной программой и подпрограммой использовать параметры.