Исходник программы для нахождения разности факториалов

Исходник программы для нахождения разности факториалов

Исходник небольшой программы для паскаля, которая находит разность факториалов двух чисел, введённых пользователем (n! - m!). Принцип работы можно посмотреть на исходнике факториала.

Исходный код:

program faktorial;
var n, m, i, res, res2: integer;// инициализируем переменные
begin // начало
  read (n, m);// считываем число в факториале
  res:=1; // присваиваем будущему результату 1
  res2:=1;
  for i:=1 to n do // заходим в цикл FOR (уроки 5,6), присваиваем i от 1 до n
    res:=res*i; // умножаем наш результат на i
  for i:=1 to m do // заходим в цикл FOR (уроки 5,6), присваиваем i от 1 до m
    res2:=res2*i; // умножаем наш результат на i
  write (res-res2); // выводим результат
end. // конец программы


Скачать исходник: razfaktorial.pas
Дата: 2012-03-12 18:59:45   Просмотров: 4501

Теги: Паскаль исходник циклы FOR Pascal