Просуммировать числа с некоторой точностью - 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.
Объяснение кода листинга программы
- Переменная
eps
используется для хранения точности вычислений. - Переменная
x
используется для хранения значения аргумента функции. - Переменная
t
используется для хранения промежуточных результатов вычислений. - Переменная
s
используется для хранения суммы чисел. - Переменная
n
используется для хранения количества вычислений. - Ввод значения переменной
x
с помощью функции readln(). - Проверка значения переменной
x
с помощью условного оператора until. - Ввод значения переменной
eps
с помощью функции readln(). - Проверка значения переменной
eps
с помощью условного оператора until. - Инициализация переменной
n
значением 0. - Инициализация переменной
t
значением 1. - Инициализация переменной
s
значением 1. - Цикл while, выполняющийся до тех пор, пока значение переменной
t
больше точностиeps
. - Увеличение значения переменной
n
на 1 внутри цикла. - Деление значения переменной
t
на значение переменнойx
внутри цикла. - Сложение значения переменной
t
к значению переменнойs
внутри цикла. - Вывод значения переменной
s
с помощью функции writeln(). - Вывод значения переменной
n
с помощью функции writeln(). - Завершение программы с помощью ключевого слова end.
- Использование языка программирования Pascal ABC.