Цикл факториала - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Заранее спасибо. Вот

Решение задачи: «Цикл факториала»

textual
Листинг программы
var i: integer;
    x, y, a, s: real;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  if x = 1
    then write('Error: zero divide.')
    else begin
      s := 0;
      a := 1;
      for i := 2 to 6 do
        begin
          a := a / i;
          s := s + a
        end;
      s := (5 * y * y + x * s) / (x + 1);
      write('S = ', s)
    end;
  readln
end.

Объяснение кода листинга программы

  1. Переменная i инициализируется значением 1.
  2. Переменные x и y инициализируются значениями, введенными пользователем.
  3. Если x равно 1, выводится сообщение об ошибке Error: zero divide..
  4. Иначе, переменные s и a инициализируются значениями 0 и 1 соответственно.
  5. Затем, в цикле от 2 до 6 (не включая 6), выполняется следующая последовательность действий:
    • Переменная a делится на текущее значение i.
    • Переменная s увеличивается на значение a.
    • Значение s и a присваивается переменной s.
  6. Затем, значение s умножается на 5, значение y умножается на себя, и результат умножения присваивается переменной s.
  7. Затем, значение x и s складываются и результат присваивается переменной s.
  8. Значение s затем делится на (x + 1).
  9. Результат деления выводится на экран.
  10. Программа завершается, и пользователь приглашается ввести еще один набор значений.

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы