Program Summer2;
var
Eps:real; { Заданное число "эпсилон" }
X: real; { Основание степени в числителе дроби }
S: real; { В этой переменной будем накапливать сумму }
Y; real; { Для хранения очередного слагаемого }
i: integer; { Счетчик числа шагов }
begin
write('Введите X и Epsilon:');
readln(X, Eps);
Y:=l; { Первое слагаемое }
S:=Y; { Положим в сумматор первое слагаемое }
i:=0; { Обнулим счетчик шагов }
while abs(Y)>=Eps do { Пока добавленное слагаемое не меньше "эпсилон", считаем сумму. Если "эпсилон" сразу не меньше 1, цикл не выполнится ни разу! }
begin { Началось тело цикла }
i:=i+l; { Вычислили номер текущего шага }
Y:=Y*X/i; { Посчитали новое слагаемое }
S:=S+Y { Увеличили сумму на текущее слагаемое }
end; { Тело цикла завершилось. После этой строки компьютер перейдет на оператор while для сравнения переменной "эпсилон" с только что добавленным слагаемым }
{ Теперь выведем результат на экран }
Writeln('Сумма чисел=', S:6:4);
readln
end.
Похожие записи/страницы:
- Машинное эпсилон - Pascal(Паскаль)
- Вычисление суммы чисел от 6 до 10- Pascal(Паскаль)
- Возведение числа а, введенного с клавиатуры, в степень n- Pascal(Паскаль)
- Нужно ввести n, сколько n будет равно столько и будет слагаемых. В знаменателе первое слагаемое всегда больше на…
- Составить программу для вычисления значений переменных. Вывести на экран значения исходных данных и результатов…
- Дана последовательность: 4,9,14,19,24... Составить программу, определяющую, сколько слагаемых надо взять, чтобы…
- Используя оператор цикла с постусловием, вычислить сумму ряда с точностью (эпсилон)=10^(-3) - Pascal(Паскаль)
- Вычислить сумму членов бесконечного ряда с заданной степенью точности Е>0 и заданного значения х. Знак суммы…