Вычисление факториала - составить код по блок-схеме

@Sidhe · Регистрация: 28.10.2013

Доброго времени суток, я как новенький в работе Delphi не могу сделать програмку в консольном режиме для вычисления произвольного факториала... есть алгоритм
просто и доступно распишите... на форуме лазил там как то сильно замудренно....

@Samhain · 29.10.2013, 08:55

Sidhe, и в чем сложность? У Вас даже блок-схема есть! Вот алгоритм по Вашей блок-схеме

Pascal

var i,n,fact:longint;
begin
  write('n = ');readln(n);
  if n=0 then fact:=1
  else
  if n=1 then fact:=1
  else
    begin
      fact:=1;
      for i:=1 to n do
        fact:=fact*i;
    end;
  writeln(n,'! = ',fact);
  readln
end.

Но его можно немного сократить, так как проверка на n=1 не к чему.

Pascal

var i,n,fact:longint;
begin
  write('n = ');readln(n);  //ввод n
  if n=0 then fact:=1       //проверка если n=0, то n!=1
  else                      //иначе
    begin
      fact:=1;              //инициализируем переменную равной 1
      for i:=1 to n do      //цикл от 1 до n, на каждом шаге которого i увеличивается на 1
        fact:=fact*i;       //т.е. на кадом шаге цикла домножаем fact на 1,2,3..n
    end;
  writeln(n,'! = ',fact);   //вывод результата
  readln
end.

@Sidhe · 29.10.2013, 09:43 **[ТС]**

спасибо большое, не знаю у меня составить блок схему легче чем написать программу

вот надо книженек почитать по программированию по поднимать свои знания, очень благодарен, не думал что кто то ответит.. .спасибо + тебе в репутацию

@Sidhe 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 2
		1
	Вычисление факториала - составить код по блок-схеме 28.10.2013, 21:41. Показов 1899. Ответов 2 Метки нет (Все метки) Доброго времени суток, я как новенький в работе Delphi не могу сделать програмку в консольном режиме для вычисления произвольного факториала... есть алгоритм просто и доступно распишите... на форуме лазил там как то сильно замудренно.... Миниатюры 0

@Sidhe 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 2
	29.10.2013, 09:43 [ТС]	3
	спасибо большое, не знаю у меня составить блок схему легче чем написать программу вот надо книженек почитать по программированию по поднимать свои знания, очень благодарен, не думал что кто то ответит.. .спасибо + тебе в репутацию 0

Опции темы

Вычисление факториала - составить код по блок-схеме

Решение