@Sistemshik

Помогите с модулем И ПРОГРАМКОЙ
UNIT KYK;
{--------------------------}
INTERFACE
CONST e=0.0001;h=11;
Var z:real;
Type aq=Function(x:real):real;
function cosn(n,a:real):real;
function qq(x:real):real;
Procedure dihotom(qq:aq;x1,x2:real);
Procedure Wrt(qq:aq);
{---------------------------}
IMPLEMENTATION
function cosn; begin
cosn:=cos(n*a); end;
function qq; begin
qq:=x-2*cosn(4,(3.6*x))+1.3; end;
Procedure dihotom;
var c:real; begin
Repeat
c:=(x1+x2)/2;
if qq(x1)*qq(c)<0 then
x2:=c else x1:=c
Until abs(x2-x1)<=e;
Writeln('x:=',x2:6:3);
end;
Procedure wrt;
var x1,x2,y1,y2,a,b:real; begin
Writeln('uvedit a');
Readln(a);
Writeln('uvedit b');
readln(b);
x1:=a;
y1:=qq(x1);
Repeat
x2:=x1+(b-a)/h;
y2:=qq(x2);
if y1*y2<0 then dihotom(qq,x1,x2);
x1:=x2;
y1:=y2;
Until x2>=b;
Writeln('Final');
end;
BEGIN
END.
А вот и прога

Program LAb14;
Uses KYK;
BEGIN
wrt(qq);
readln
END.
Все работает а Препод говорит что неправельно
помогите мне пожалуйста

0