Написать программу которая запрашивает ряд чисел и считает их сумму - Pascal

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

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

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

Решение задачи: «Написать программу которая запрашивает ряд чисел и считает их сумму»

textual
Листинг программы
const
    EPS = 0.0001;
var
    s, a: Real;
begin
    s := 0;
    repeat
        ReadLn(a);
        s := s + a;
    until (Abs(a - 1) < EPS);
    s := s - 1;
    //WriteLn('sum=', s:0:2); //вывод в условии ж не озвучен
end.

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

  1. Константа EPS устанавливается равной 0.0001.
  2. Переменные s и a инициализируются как вещественные числа.
  3. s устанавливается равным нулю.
  4. Выполняется цикл repeat- until, в котором: 4.1. Значение вводится с клавиатуры и сохраняется в переменной a с помощью ReadLn. 4.2. К значению s добавляется значение a. 4.3. Этот цикл выполняется до тех пор, пока абсолютное значение разности между a и 1 не будет меньше EPS.
  5. От значения s вычитается 1.
  6. Программа завершается. Программа запрашивает числа из входного потока, пока введенное число не будет близко к 1 (с точностью до значения EPS). Затем она суммирует все числа и выводит итоговую сумму.

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

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