program zadacha14;
uses crt;
const e=0.001;
var
a,b,h,S,x,t,J,Q:real;
n:integer;
function f (x:real):real;
begin
write ('Íèæíÿÿ ãðàíèöà îòðåçêà=');
readln (a);
write ('Âåðõíÿÿ ãðàíèöà îòðåçêà=');
readln (b);
write ('×èñëî îòðåçêîâ=');
readln (n);
begin
h:=(b-a)/n;
Q:=0;
repeat
S:=0;
x:=a+h/2;
while x
где то не там енд ставиш видимо (или вообще операторные скобки пропустил)
Что бросилосьв глаза сразу - у тебя описание ф-ции f не заканчивается end'ом. Ну и по мелочи могут быть ошибки разные (не проверял) . Смотри внимательно.
Блин ребят, не понимаю Вас! Сами попробуйте, повтыкайтесь!! ! А то вы сразу сюда, ну ведь так ничего никогда и не узнаете!!!
program zadacha14;
const e=0.001;
var a,b,h,S,x,t,J,Q:real;
n:integer;
function f (x:real):real;
begin
write ('Íèæíÿÿ ãðàíèöà îòðåçêà=');
readln (a);
write ('Âåðõíÿÿ ãðàíèöà îòðåçêà=');
readln (b);
write ('×èñëî îòðåçêîâ=');
readln (n);
end;
begin
h:=(b-a)/n;
Q:=0;
repeat
S:=0;
x:=a+h/2;
while x
⇢