Неверное число параметров функции

@logos26 · Регистрация: 24.04.2011

Author24 — интернет-сервис помощи студентам

Народ,пожалуйста,посмотрите что тут не так.
Программа считает...должна считать,определенный интеграл методом трапеций. a,b - интервал интегрирования
h - шаг, s - значение методом трапеций, st - точное значение.
На 32 строке выдает ошибку: Program2.pas(32) : Неверное число параметров функции

Pascal

program pzdc;
var
a,b,s,st:real;
n:integer;
function ft(b,a:real):real;
begin
ft:=cos(1/b)-cos(1/a);
end;
function f(x:real):real;
begin
f:=s+1/sqr(x)*sin(1/x);
end;
procedure int(n:integer;a,b:real;var s:real);
var
i:integer;
h,x:real;
begin
h:=(b-a)/n;
x:=a;
s:=(f(a)+f(b))/2;
for i:=1 to n-1 do
begin
x:=x+h;
s:=s+f(x);
end;
s:=s*h;
end;
begin
writeln('Vv a,b n');
readln(a,b,n);
int(n,a,b,s);
st:=ft(b)-ft(a);
writeln('pr zn int=',s:8:5);
writeln('pr zn int=',st:8:5);
end.

Заранее спасибо.

Добавлено через 35 минут
Проблема решена. Спасибо за внимание.

@Cyborg Drone · 23.04.2014, 22:55

Pascal

//..
function ft(b,a:real):real;
//..
st:=ft(b)-ft(a);
//..

Ну и? Функция с двумя аргументами, а Вы передаёте ей только один.

	23.04.2014, 22:55