Pascal Ошибка: НЕВЕРНОЕ КОЛИЧЕСТВО фактических параметров

Question

Задача: посчитать экстремумы функции итерационным способом. 
В строке: 
writeln('Минимальный элемент f(x): X = ',iter1); 
выбивает ошибку. 
Подскажите пожалуйста как устранить

Uses Crt; 
Const dx=0.01; 
 var 
x0,xn,x,y:real; 
integ:real; 
function f(x:real):real; 
begin 
result:=sin(x)-cos(2*x); 
end; 
function iter1(x0,xn:real):real; 
 begin 
 y:=f(x0); 
 while x0<xn>xn do 
 begin 
 x0:=x0+dx; 
 if f(x0)> y then 
 begin 
 iter2:=f(x0); 
 end; end;

begin 
 clrscr; 
 begin 
writeln('Введите нижнюю границу'); readln(x0); 
writeln('Введите верхнюю границу'); readln(xn); 
writeln(' Итерационный вариант: '); 
writeln('Минимальный элемент f(x): X = ',iter1); 
writeln('Максимальный элемент f(x): X =',iter2); 
readln; end; 
 end.

Антон · Accepted Answer

Вы вызываете итер1 без параметров (а итер 2 вообще не существует) , а сами-же описали его с 2 параметрами.

Анна Крикова · Answer

while x0<xn>xn do 
 
что-то не пойму логики условия, походу проблема в этом :)

Алексей Черняев · Answer

integ:real; 
Не стоит называть одни переменные под другие (типы) , даже сокращенно. Это путает. 
 
while x0<xn>xn do 
Это что за невычисляемая хрень. Если надо хн сравнивать с х0, то и сравнивайте с ним. А с собой сравнивать вообще смысла нету. 
 
Что такое итер2. Вы его 2 раза используете, но не обьявляете. 
 
clrscr; 
begin - вот этот бегин излишен. Он не помешает, но смысла в нем нету.