Задача в Паскале

[Dashutka]

Помогите найти ошибку в задаче
Данные задачи:


Вот как я ее решила в Паскале

var i: real;
a,b,e,n,x1,dx,c,S:real;
function F(x:real):real;
begin
F:=sqrt(x);
end;
begin
readln(a,b,e);
c:=b;
repeat
x1:=(b-a)/2; b:=x1;
until abs(F(x1)-F(a))<e;
dx:=x1-a;
n:=(c-a)/dx;
S:=0;
for i:=1 to n do begin
S:=(F(a)+F(x1)*dx/2+S;
a:=a+dx;
x1:=x1+dx;
end;
writeln('S=',S:3:3);
end.

[maladoy]

var i: real;

может все таки integer ? да и n тоже!

[Dashutka]

спасибо, исправила
теперь вот тут пишет ошибку 39
for i:=1 to n do begin

[XeN0N]

скобку после F(x1) забыли
S:=(F(a)+F(x1)*dx/2+S;

S:=(F(a)+F(x1))*dx/2+S;

[Dashutka]

точна но ошибка 39 в том же месте осталась

[XeN0N]

у меня нет паскаля, текст ошибки?

[Dashutka]

теперь тут 26 ошибка n:=(c-a)/dx;

[capta1n]

потому что n - real, а надо целый тип - любой, потому что стоит в счетчике цикла for

[Dashutka]

Ошибка 26: Type mismatch. Несоответствие типов.

[capta1n]

теперь тут 26 ошибка n:=(c-a)/dx;

ну раз n - целое, то его надо округлять либо функцией отбрасывания дробной части trunc, либо округлением round