Просуммировать числа с некоторой точностью - Pascal ABC

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

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

Просуммировать числа c некоторой точностью. Точность и вводятся с клавиатуры.

Решение задачи: «Просуммировать числа с некоторой точностью»

textual
Листинг программы
var eps,x,t,s:real;
    n:integer;
begin
repeat
write('Введите x>1 x=');
readln(x);
until x>1;
repeat
write('Введите точность 0<eps<1 eps=');
readln(eps);
until(eps>0)and(eps<1);
n:=0;
t:=1;
s:=t;
while t>eps do
 begin
  n:=n+1;
  t:=t/x;
  s:=s+t;
 end;
writeln('s = ',s:0:5,'  n=',n);
end.

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

  1. Переменная eps используется для хранения точности вычислений.
  2. Переменная x используется для хранения значения аргумента функции.
  3. Переменная t используется для хранения промежуточных результатов вычислений.
  4. Переменная s используется для хранения суммы чисел.
  5. Переменная n используется для хранения количества вычислений.
  6. Ввод значения переменной x с помощью функции readln().
  7. Проверка значения переменной x с помощью условного оператора until.
  8. Ввод значения переменной eps с помощью функции readln().
  9. Проверка значения переменной eps с помощью условного оператора until.
  10. Инициализация переменной n значением 0.
  11. Инициализация переменной t значением 1.
  12. Инициализация переменной s значением 1.
  13. Цикл while, выполняющийся до тех пор, пока значение переменной t больше точности eps.
  14. Увеличение значения переменной n на 1 внутри цикла.
  15. Деление значения переменной t на значение переменной x внутри цикла.
  16. Сложение значения переменной t к значению переменной s внутри цикла.
  17. Вывод значения переменной s с помощью функции writeln().
  18. Вывод значения переменной n с помощью функции writeln().
  19. Завершение программы с помощью ключевого слова end.
  20. Использование языка программирования Pascal ABC.

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

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