Найти ошибку в вычислении цикла - 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.

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

  1. Объявляются переменные: i, t, x, s.
  2. Выводится пробел.
  3. Переменная x инициализируется значением 2, согласно условию.
  4. Переменная t инициализируется значением 1.
  5. Переменная s инициализируется значением t.
  6. Запускается цикл for, который выполняется от 2 до 11.
  7. Внутри цикла переменная t инициализируется как -t*x.
  8. Переменная s инициализируется как s+i*t/(i+1).
  9. Цикл завершается.
  10. Выводится значение переменной s, которое должно быть в диапазоне от 0 до 4.

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

9   голосов , оценка 3.778 из 5