написанные программы / павловская лаба № 3 с отчетом — 1 / 3L

program laboratornaya_rabota3;
uses crt;
var x,y,xn,xk,dx,k : real;
a :boolean;
begin
writeln(' Vvedite Xn, Xk, dX');
readln(Xn, Xk, dX);
while (((xn<xk) and (dx<0)) or ((xn>xk) and (dx>0)) or (dx=0)) do
begin
writeln ('error');
writeln(' Vvedite Xn, Xk, dX');
readln(Xn, Xk, dX);
end;


begin
writeln(''#201''#205''#205''#205''#205''#205''#203''#205''#205''#205''#205''#205''#187'');
writeln(''#186'X '#186' Y'#186'');

k:=0;
x:=xn;
repeat
if (xn<=xk) then a:=(x>=xk);
if (xn>=xk) then a:=(x<=xk);
if ((x<-7) or (x>3)) then writeln('');
if (-7<=x) and (-6>x) then y:=1;
if (-6<=x) and (-4>x) then y:=-(0.5*x+2);
if (-4<=x) and (0>x) then y:=sqrt(4-sqr(x+2));
if (0<=x) and (2>x) then y:=-sqrt(1-sqr(x-1));
if (2<=x) and (3>=x) then y:=-x+2;
if ((x<-7) or (x>3)) then writeln('Znacheniya ne prinadlezhat grafiky') else
writeln(''#186'' ,x:5:2,''#186'' ,y:5:2 ,''#186'' );
k:=k+1;
x:=x+dx;
if k=15 then begin
writeln('->');
readkey;
clrscr;
k:= 0 ;
end;
until a ; end;
writeln(''#200''#205''#205''#205''#205''#205''#202''#205''#205''#205''#205''#205''#188'');
readln;
end.