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.