Здравствуйте!
Что бы не создавать новую тему спрошу здесь, если ни кто не против.
Не могу решить задачу с оператором цикла Repet, в строке «until i>10;» выдает ошибку «Ожидается логическое выражение» Помогите пожалуйста! Что не хватает?
Задача: Вычислить сумму s значений функции f в точках xi которые берутся с заданного интервала [a;b] через равные отрезки длиной h. Длина отрезка рассчитывается по формуле h=(b-a)/(n-1) . Здесь i=1,2,3…n - номер точки; n - задаваемое количество точек; a - начло и b - конец интервала изменения x. Вывести на экран результаты вычислений.
program prog_1;
const a=10; b=11; n=10;
var s, x, h : real;
i : integer;
begin
h:=(b-a)/(n-1);
writeln ('a= a',a);
writeln ('b= b',b);
writeln ('n= n',n);
writeln ('h= h',h:0:8);
writeln;
x:=a;
s:=0;
i:=1;
repeat s:=s+(sin(x))/sqr(x+2);
x:=x+h;
i:=i+1;
until i>10;
writeln (s:0:8);
end.
С уважением!