Найти ошибку в вычислении цикла - Turbo Pascal
Формулировка задачи:
Вычислить сумму
1-(2/3)*x+(3/4)x^2...(11/12)*x^10 при x=2
Сам код:
Решение задачи: «Найти ошибку в вычислении цикла»
textual
Листинг программы
var i,t,x:integer;
s:real;
begin
writeln(' ');
x:=2; //по условию
t:=1;
s:=t;
for i:=2 to 11 do
begin;
t:=-t*x;
s:=s+i*t/(i+1);
end;
writeln(s:0:4);
end.
Объяснение кода листинга программы
- Объявляются переменные: i, t, x, s.
- Выводится пробел.
- Переменная x инициализируется значением 2, согласно условию.
- Переменная t инициализируется значением 1.
- Переменная s инициализируется значением t.
- Запускается цикл for, который выполняется от 2 до 11.
- Внутри цикла переменная t инициализируется как -t*x.
- Переменная s инициализируется как s+i*t/(i+1).
- Цикл завершается.
- Выводится значение переменной s, которое должно быть в диапазоне от 0 до 4.