Функции (Паскаль)

[giv93]

[QunneD]

Здравствуйте, уважаемый форумчанин, Вы бы не могли написать тоже самое, но только на русском языке?

Это какбэ русскоязычный форум, и я считаю что надо придерживаться родному языку форума.

И пожалуйста, заранее, более детально опишите суть Вашей проблемы, и покажите наработки если имеются.

С уважением, Владислав.

[TinMan]

Вот перевод:
Методом трапеций вычислить интеграл (см.выше). Реализовать метод поиска интеграла в виде процедуры или функции, в которую как параметр передается функция, для которой ставится задача.

Я не знаю украинского, но всегда рад случаю познакомиться хоть немного. В принципе я был бы согласен с QunneD, если бы русскоязычность форума была зафиксирована документально. Если нет такого - то просто пройди мимо, раз не нравится. И если даже есть - оставь суд модераторам..

По теме.
giv93, что именно тебя затрудняет? Я с удовольствием помогу, но только при условии, что ты показываешь собственные попытки.

[giv93]

Вот нароботки....не пойму что неправильно


Program asd;
uses crt;
type
Tfunc = function(x:real):real;
var eps, S: real;
function f(x:real):real;
begin
f:=1/(x*x);
end;
function trap (x, y: real; eps: real; f: Tfunc): real;
var c: real;
s1, s2: real;
begin
if abs(y-x)<eps then trap:= (f(x)+f(y))/2*(y-x)
else
begin
c:= (x+y)/2;
s1:= trap(x, c, eps, f);
s2:= trap(c, y, eps, f);
trap:= s1+s2;
end;
end;
begin
write('input eps=');
readln (eps);
S:= trap(1, 2, eps, f);
writeln(S:4:4);
readln;
end.