Исходник простой программы, которая находит факториал, который вы ввели с клавиатуры (1*2*3...*n). Открывается программами Pascal ABC, Pascal ABC.Net и Turbo Pascal. К каждой строке имеются пояснительные комментарии. Имеет не скомпилированный формат для редактирования .pas. Данная программа использует раннее пройденный цикл параметром FOR.
Исходный код программы:
program faktorial;
var n, i, res: integer;// инициализируем переменные
begin // начало
read (n);// считываем число в факториале
res:=1; // присваиваем будущему результату 1
for i:=1 to n do // заходим в цикл FOR (уроки 5,6), присваиваем i от 1 до n
res:=res*i; // умножаем наш результат на i
write (res); // выводим результат
end. // конец программы
var n, i, res: integer;// инициализируем переменные
begin // начало
read (n);// считываем число в факториале
res:=1; // присваиваем будущему результату 1
for i:=1 to n do // заходим в цикл FOR (уроки 5,6), присваиваем i от 1 до n
res:=res*i; // умножаем наш результат на i
write (res); // выводим результат
end. // конец программы
Увидеть данный код в более понятном и читабельном виде вы можете, скачав сам исходник.
Скачать: faktorial.pas
Разобраться в коде данной программы вы можете, изучив Урок 5 и Урок 6: Циклы while, for, repeat. Исходник программы для нахождения факториала входит в серию уроков Циклы.