Программирование / Лабораторные / ЭВТ-1-Паскаль / LABA5

uses crt,graph;
var m,dr:integer; { „«п Ё­ЁжЁ «Ё§ жЁЁ Ја дЁЄЁ }
    err:integer; { Љ®¤ ®иЁЎЄЁ ЇаЁ Ё­ЁжЁ «Ё§ жЁЁ Ја дЁЄЁ }
    x,y:real;
    ch:char;
    cw,x0,y0,xc,yc,t,k,xp,yp:integer;
    a,b,c:real; { Љ®нддЁжЁҐ­вл Єў ¤а в­®Ј® га ў­Ґ­Ёп }

procedure por; { ђЁб㥬 Ї®а Ў®«г Ё ®бЁ 2222}
begin
cleardevice;
{ ђЁб㥬 ®бЁ }
setcolor(15);
line(x0,0,x0,getmaxy);
line(0,y0,getmaxx,y0);
{ Џaа Ў®«    y=a*sqr(x)+b*x+c }
xc:=round((-b/(2*a))*k+x0);
yc:=round(y0-(-sqr(b)/(4*sqr(a))+c)*k);

moveto(xc,yc);  { аЁб㥬 Їа ўго Ї®«®ўЁ­г Їaа Ў®«л }
x:=round(-b/(2*a));
y:=round(y0-(-sqr(b)/(4*a)+c));
for t:=1 to x0 do begin
                  x:=x+1/k;
                  y:=a*sqr(x)+b*x+c;
                  setcolor(cw);
                  xp:=round(x*k+x0);
                  yp:=round(y0-y*k);
                  lineto(xp,yp)
                  end;
moveto(xc,yc);  { аЁб㥬 «Ґўго Ї®«®ўЁ­г Їaа Ў®«л }
x:=round(-b/(2*a));
y:=round(y0-(-sqr(b)/(4*a)+c));
for t:=1 to x0 do begin
                  setcolor(cw);
                  x:=x-1/k;
                  y:=a*sqr(x)+b*x+c;
                  xp:=round(x*k+x0);
                  yp:=round(y0-y*k);
                  lineto(xp,yp)
                  end;
end;

BEGIN
dr:=0;
initgraph(dr,m,'c:\bpaskal\bgi\');
err:=graphresult;
if err<>0 then begin
               writeln('®иЁЎЄ  Ја дЁЄЁ:',grapherrormsg(err));
               halt
               end;
ch:=' ';
a:=1;
cw:=15;
{ Ќ е®¤Ё¬ бҐаҐ¤Ё­г нЄа ­  }
x0:=getmaxx div 2;
y0:=getmaxy div 2;
{ ‡ ¤ Ґ¬ Є®®дЁжЁҐ­в 㢥«ЁзҐ­Ёп Ја дЁЄ  дг­ЄжЁЁ   }
k:=25;

repeat

 ch:=readkey;
 if ch=#0 then ch:=readkey;
 case ch of
 #72: c:=c+5/k;
 #80: c:=c-5/k;
 #75: begin c:=c+5*x/k; b:=b+5/k;  end;
 #77: begin c:=c-5*x/k; b:=b-5/k; end;
 #60: a:=a+1/k;
 #62: a:=a-1/k;
 'q': setlinestyle(0,0,3);
 'Q': setlinestyle(0,0,1);
 {#59: help}
   end;

until ch=#13;
readln;
END.