01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / ROMGRAF

Program Romzes;
  USES GRAPH;

  Const
  k=101; xn=65; xk=625;
  yn=20;yk=400;
  y1n=20;y1k=400;
  ndx=10;ndy=10;
  n=5;m=2;

VAR

i,j,driver,mode,lx,ly,mx,my,m1y:integer;
kx,ky,k1y:array [1..k] of integer;
x,y,y1:array [1..k] of real;
dx,dy,dy1,rx,ry,r1y,ymin,y1min,ymax,y1max,xmin,xmax:real;
st:string;

Function F(x:real):real;
        begin
           F:=sin((x)*(x))
                         end;
Function G(x:real): real;
        begin
           G:=cos(x)
                         end;
BEGIN

    write('‚ўҐ¤ЁвҐ ®Ја ­ЁзҐ­ЁҐ Ї® •, xmin,xmax: ');readln(xmin,xmax);
    dx:=(xmax-xmin)/(k-1);
    driver:=detect;
    INITGRAPH(driver,mode,'d:\bp7\bgi');
    ymin:=1e10;ymax:=-1e10;
    y1min:=1e10;y1max:=-1e10;
    for i:=1 to k do begin
        x[i]:=xmin+(i-1)*dx;
        y[i]:=f(x[i]);
        y1[i]:=g(x[i]);
     if y[i]<ymin then ymin:=y[i];
     if y1[i]<y1min then y1min:=y1[i];
          if y[i]>ymax then ymax:=y[i];
          if y1[i]>y1max then y1max:=y1[i];
          end;
  rx:=x[k]-x[1];
  ry:=ymax-ymin;
  r1y:=y1max-y1min;
       mx:=xk-xn;
       my:=yk-yn;
       m1y:=y1k-y1n;
   for i:=1 to k do begin
      kx[i]:=round((x[i]-x[1])*(mx/rx)+xn);
      ky[i]:=round((ymax-y[i])*(my/ry)+yn);
      k1y[i]:=round((y1max-y1[i])*(m1y/r1y)+y1n);
                      end;
                      setcolor(10);
                    setlinestyle(0,4,3);
  for i:=1 to k-1 do line(kx[i],ky[i],kx[i+1],ky[i+1]);
        setcolor(11);
  for i:=1 to k-1 do line(kx[i],k1y[i],kx[i+1],k1y[i+1]);
  setcolor(14);
  setlinestyle(2,4,1);
     rectangle(xn,yn,xk,yk);
     lx:=(xk-xn)div ndx;
     dx:=(x[k]-x[1])/ndx;
              for i:=1 to ndx+1 do begin
            line(xn+lx*(i-1),yn,xn+lx*(i-1),yk);
            str((xmin+(i-1)*dx):n:m,st);
            outtextxy(xn+lx*(i-1)-(n-m)*8+4,yk+14,st);end;
       ly:=(yk-yn) div ndy;
       dy:=(ymax-ymin)/ndy;
   for i:=1 to ndy+1 do begin
       line(xn,yn+(i-1)*ly,xk,yn+(i-1)*ly);
       str((ymax-(i-1)*dy):n:m,st);
     outtextxy((xn-(n*8)),yn+(i-1)*ly-4,st); end;
        settextstyle(0,0,1);
        setcolor(10);
     outtextxy(40,430,'f=sin2(x)');
        setcolor(11);
     outtextxy(380,430,'g=cos(x)');
      readln;closegraph;
END.