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.