Question

Выписать фрагмент программы для решения указанной ниже задачи и обосновать,почему был выбран тот или иной вариант оператора цикла: a) вычислить факториал некоторого числа р; б) факториал некоторого числа равен р,найдите это число; (Pascal ABC)

Answer 1

Ещё 0!=1 нужно учитывать.
F := 1;
if N>0 then
for i := 1 to N do F := F * i;
WriteLn(N, '! = ', F);

Answer 2

Для решения задачи вычисления факториала некоторого числа и нахождения числа, факториал которого равен заданному числу, можно использовать различные варианты операторов цикла. Один из наиболее распространенных вариантов - цикл "for".

Вычисление факториала числа

Для вычисления факториала некоторого числа можно использовать цикл "for" с итерацией от 1 до заданного числа. На каждой итерации умножаем текущее значение на результат итерации. Вот фрагмент программы на Pascal ABC, который решает эту задачу:

var
  number, factorial: integer;
begin
  write("Введите число: ");
  readln(number);
  
  factorial := 1;
  for i := 1 to number do
    factorial := factorial * i;
  
  writeln("Факториал числа ", number, " равен ", factorial);
end.

В данном фрагменте программы мы сначала запрашиваем у пользователя ввод числа. Затем мы инициализируем переменную "factorial" значением 1, так как факториал числа 0 равен 1. Затем мы используем цикл "for" для итерации от 1 до заданного числа. На каждой итерации мы умножаем текущее значение "factorial" на значение итерации "i". В результате получаем факториал заданного числа.

Нахождение числа, факториал которого равен заданному числу

Для нахождения числа, факториал которого равен заданному числу, можно использовать цикл "for" или цикл "while". В данном случае, для простоты, рассмотрим вариант с циклом "for".

var
  number, factorial, i: integer;
begin
  write("Введите число: ");
  readln(number);
  
  factorial := 1;
  i := 1;
  while factorial < number do
  begin
    i := i + 1;
    factorial := factorial * i;
  end;
  
  if factorial = number then
    writeln("Число, факториал которого равен ", number, ", равно ", i)
  else
    writeln("Нет числа, факториал которого равен ", number);
end.

В данном фрагменте программы мы также запрашиваем у пользователя ввод числа. Затем мы инициализируем переменные "factorial" и "i" значением 1. Затем мы используем цикл "while", который выполняется до тех пор, пока значение "factorial" меньше заданного числа. На каждой итерации мы увеличиваем значение "i" на 1 и умножаем текущее значение "factorial" на значение "i". Когда значение "factorial" становится равным заданному числу, мы выводим найденное число "i". Если такого числа не существует, выводим сообщение об этом.

Оба варианта операторов цикла - "for" и "while" - подходят для решения данной задачи. Выбор конкретного варианта зависит от предпочтений программиста и особенностей языка программирования. В данном случае, использование цикла "for" в первом фрагменте программы позволяет более компактно и наглядно выразить итерацию от 1 до заданного числа. Второй фрагмент программы с использованием цикла "while" демонстрирует альтернативный подход, который может быть полезен в случае, когда условие завершения цикла не связано напрямую с итерацией.