RGR(FINAL)

Program RGR; {Љ®­¤а вҐ­Є® ЉЁаЁ«« €‚’ - 144}
Uses Graph,Crt;
Const
aa=-pi;
bb=pi;
Procedure Menu;
Var
m:string;
n:byte;
x,xx,xxt,xt,yy,yt,ww,y,dx,yz,F1,F2,Y1,Y2:Real;
a,b,c,i,l,az,bz,ct,xc,xz,ee,ii,nn,ll,zz,xxx,yyy:Integer;

Begin
Clrscr;
TextColor (10);
Closegraph;
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('****************************ђ бзҐв­® - Ја дЁзҐбЄ п а Ў®в ***********************');
Writeln('');
Writeln(' 1.‚лў®¤ в Ў«Ёжл १г«мв в®ў.');
Writeln(' 2.Џ®бва®Ёвм Ја дЁЄ.');
Writeln(' 3.‘ўҐ¤Ґ­мҐ ® Aўв®аҐ');
Writeln(' 4.‚лў®¤ в Ў«Ёжл १г«мв в®ў Ё Ја дЁЄ а Ў®вл 3_2');
Writeln(' 5.‡ бв ўЄ  Є ђ бзҐв­® - Ја дЁзҐбЄ®© а Ў®вҐ');
Writeln(' 6.‚л室');
Writeln('');
TextColor (21);
Write ('‚ўҐ¤ЁвҐ <1,2,3,4,5> Ё«Ё <6> Ё ­ ¦¬ЁвҐ "Enter": ');
Readln(n);

Case n of

1: Begin

TextColor(11);
Closegraph;
Clrscr;
Writeln ('______________________');
Writeln ('| X | Y |');
Writeln ('______________________');
For XC:=1 to 10 do
Begin
ww:=5*xc-exp(xc)-2*xc*sqrt(xc);
Writeln ('|',XC:2,' | ',ww:14:2,' ');
End;
Writeln ('______________________');
Readln;

End;

2: Begin

DetectGraph (a,b);
InitGraph (a,b,'C:\BP\BGI');
SetGraphmode (2);
SetBKcolor(0);
SetColor(4);
SetTextStyle(0,0,1);
line (0,240,640,240);
line (640,240,630,235);
line (640,240,630,245);
line (320,0,320,480);
line (320,0,325,10);
line (320,0,315,10);
OutTextXY (630,225,'x');
OutTextXY (330,0,'y');
m:='654321 123456';
For l:=1 to 13 do

Begin
line (l*50-30,235,l*50-30,245);
OutTextXY (l*50-31,250,m[l]);
If l<=6 then OutTextXY (l*50-38,250,'-');
End;
For l:=1 to 9 do

Begin
line (315,l*50-10,325,L*50-10);
OutTextXY (305,l*50-13,m[l+2]);
If l>=4 then OutTextXY (298,l*50-13,'-');
End;

Readkey;
SetColor(5);
x:=0;
y1:=5*x-exp(x)-2*x*sqrt(x);
MoveTO (Trunc (320+x*50),480-Trunc(240+y1*50));
x:=0.1;
For i:=1 to 100 do

Begin
y1:=5*x-exp(x)-2*x*sqrt(x);
xx:=x-0.1;
yy:=5*xx-exp(xx)-2*xx*sqrt(xx);
xxx:=Trunc((320+x*50)-(320+xx*50));
yyy:=Trunc((240+y1*50)-(240+yy*50));
LineRel(xxx,-yyy);
x:=x+0.1;
End;

Readkey;
CloseGraph;
End;

3: Begin
TextColor (4);
Clrscr;
Writeln('');
Writeln (' Џа®Ја ¬¬  а §а Ў®в ­  Љ®­¤а вҐ­Є® ЉЁаЁ««®¬ ћа쥢ЁзҐ¬ ');
Writeln (' б⥤Ґ­в®¬ Ћ¬ѓ’“ д Єг«мвҐв  Ђўв®¬ вЁ§ жЁЁ ');
Writeln (' ЈагЇЇл ЂЏ - 114 ');
Writeln ('');
Writeln (' Ј. Ћ¬бЄ 2004 Ј®¤. ');
Readln;
End;

4:Begin
Textcolor (12);
Clrscr;
Writeln('”г­ЄжЁп <F1:=2-cos(x)>');
Writeln('”г­ЄжЁп <F2:=sqrt(x*x*x*x+4)>');
Writeln('ЏаЁ гб«®ўЁЁ -3,14<=x<=3,14');
Writeln(' ‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® в®зҐЄ Ё "Enter": ');
Read(nn);
Dx:=abs(bb-aa)/(nn-1);
Xt:=aa;
Ii:=1;
Writeln(' *__________________________________*');
Writeln(' * i * x * F1 * F2 *');
Writeln(' *----*---------*---------*---------*');
Readln;
While xt<=bb+0.01 do
Begin
F1:=2-cos(xt);
F2:=sqrt(xt*xt*xt*xt+4);
Writeln(' *',ii:3,' *',xt:8:2,' *',F1:8:2,' *',F2:8:2,' *');
Xt:=xt+dx;
Ii:=ii+1;
End;
Writeln(' *____*_________*_________*_________*');
Readln;

Detectgraph(ct,ee);
Initgraph(ct,ee,'c:\bp\bgi');
Setgraphmode(2);
Setcolor(3);
Lineto(0,240);
Xxt:=0;
For l:=1 to 640 do

Begin
Xt:=xxt;
Yt:=2-cos(xxt);
Lineto(trunc(xt*30),trunc(yt*30+240));
Xxt:=xxt+dx;
End;

Moveto(0,240);
Setcolor(4);
Xxt:=0;
For l:=1 to 640 do

Begin
Xt:=xxt;
Yt:=sqrt(xt*xt*xt*xt+4);
Lineto(trunc(xt*30),trunc(yt*30+240));
Xxt:=xxt+dx;
End;

Setcolor(15);
Moveto(0,0);
Lineto(0,480);
Readln;
End;

6:Begin
TextColor (9);
Clrscr;
Writeln ('‘Ї бЁЎ® зв® ЁбЇ®«м§®ў «Ё Їа®¤гЄжЁо Ћ¬ѓ’“');
Writeln ('Ћ¬бЄ 2004 Ј®¤. ‚ᥠЇа ў  § йЁйҐ­л Їа®Ё§ў®¤ЁвҐ«Ґ¬');
Writeln ('ЌҐ§ Є®­­®Ґ Є®ЇЁа®ў ­ЁҐ ЇаҐб«Ґ¤гҐвбп § Є®­®¬.');
Readln;

End;

5:Begin

Detectgraph(az,bz);
Initgraph(az,bz,'C:\Bp\bgi');
Setbkcolor(0);
Setgraphmode(2);
Settextstyle(0,0,10);
Repeat
Yz:=sin(xz)+5;
Putpixel (xz+20,trunc(yz*10)-30,25);
Putpixel (xz+20,trunc(yz*10)+420,25);
Setcolor(random(50));
Outtextxy(100,220,'OmGTU');
Inc(xz,10);
Until keypressed;
Closegraph;
end;
end;
end;

Begin
Menu;
End.