Пример выполнения лабораторной работы 4

Задание: Вычислить факториал числа N, введенного с клавиатуры.

Этапы решения задачи:

1. Математическая модель: .

2. Алгоритм работы программы приведен на рисунке З.1.

Рисунок З.1 – Блок-схема программы

3. Листинг программы.

Programexample3;

var i,N, Factorial: Longint;

begin

Write('ВведитеN');

Readln(N);

Factorial:=1;

For i:=1 to N do

begin

Factorial:=Factorial*i;

end;

WriteLn(‘Факториал числа N=’, Factorial);

readln;

end.

4. Результаты тестирования программы.