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

Uses CRT,MOD_D;
var nc:byte;
ch:char;
j,i,m,r:longint;

{$F+}
Function sinus(x:real):real;
begin
 sinus:=sin(x);
end;
Function cosinus(x:real):real;
begin
 cosinus:=cos(x);
end;
Function Tg(x:real):real;
begin
if cos(x)=0 Then begin ClrScr;TextColor(14);
Writeln('ЋиЁЎЄ  ўлзҐб«Ґ­Ёп Tg');exit;end;
tg:=sin(x)/cos(x);
end;

Function super_good(x:real):real;
begin
 super_good:=cos(x);
end;
{$F-}

procedure w(n:integer);
  var nc:byte;
   begin
    textbackground(0);
    clrscr;
              Clrscr;
              textcolor(15);
              textbackground(1);
              window(10,2,60,4);
              clrscr;
              Writeln;
              write('             Ћ ‘ Ќ Ћ ‚ Ќ Ћ …   Њ … Ќ ћ');
              if n=1 then nc:=13 else nc:=2;
              textbackground(nc);
              window(20,7,50,7);
              clrscr;
              write('          ‡Ђ„ЂЌ€… -1');
              if n=2 then nc:=13 else nc:=2;
              textbackground(nc);
              window(20,9,50,9);
              clrscr;
              write('          ‡Ђ„ЂЌ€… -2 ');
              if n=3 then nc:=13 else nc:=2;
              textbackground(nc);
              window(20,11,50,11);
              clrscr;
              write('          ‡Ђ„ЂЌ€… -3');
              if n=4 then nc:=13 else nc:=2;
              textbackground(nc);
              window(20,13,50,13);
              clrscr;
              write('          ‡Ђ„ЂЌ€… -4');
              if n=5 then nc:=13 else nc:=2;
              textbackground(nc);
              window(20,15,50,15);
              clrscr;
              write('          ‚›•Ћ„');
end;

begin
            nc:=1;
            w(1);
            while true do
              begin
                   ch:=#1;
                   while(ch<>#13 )and(ch<>#0) do
                   ch:=readkey;
                 if ch=#0 then
                  ch:=readkey;
                 case ch of
                   #72: nc:=nc-1;
                   #80: nc:=nc+1;
                   #13:  case nc of
                           1:begin
                           TextMode(co80);TextBackGround(0);ClrScr;
 ClrScr;
 min1:=0;min2:=0;max:=0;
 TextColor(15);
 Writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ¬ ббЁў  X ');
 i:=0; For i:=1 to 10 Do begin
  Write('x[',i,']= ');Read(x[i]);
 end;
 Writeln;Readln;ClrScr;
 Writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ¬ ббЁў  Z ');
 j:=0; For j:=1 to 5 Do begin
  Write('z[',j,']= ');Readln(z[j]);
 end;
 Minimum(z,x,5,10,sinus,min1);
 Minimum(z,x,5,10,tg,min2);
 Maxsimum(x,z,10,5,cosinus,max);
 Readln;TextColor(10);ClrScr;
 Writeln('min(z[j]*sin[x(i)])= ',min1:5:3);
 Writeln('min(z[j]*tg[x(i)])= ',min2:5:3);
 Writeln('max(x[j]*cos[z(i)])= ',min1:5:3);
 Readln;TextColor(14);
 If min2<>0 then begin
 Writeln('    (min(z[j]*sin[x(i)])+max(x[i]*cos[z(j)])');
 Writeln('Y = ----------------------------------------- = ',(min1+max)/min2:5:3);
 Writeln('                min(z[j]*tg[x(i)])');
 end else Writeln('ЌҐўҐа­лҐ Ёб室­лҐ ¤ ­­лҐ');Readln;
                           end;
                           2:begin
                           TextMode(co80);TextBackGround(0);ClrScr;
 ni:=ki;
 While (ni=ki) or (ni>ki)  Do begin
 ClrScr;

 TextColor(11);Write('‚ў-⥠X ­ з.:');TextColor(14);Read(ni);
 TextColor(11);Write('‚ў-⥠X Є®­.:');TextColor(14);Read(ki);
 end;shag:=10;
 While (shag>1) or (shag<0.001) Do begin
 TextColor(11);Write('‚ўҐ¤ЁвҐ и Ј :');TextColor(14);Readln(shag);
 TextColor(10);
 if (shag<=0.001) and (shag>=1) then Writeln(' Ј ¤®«¦Ґ­ «Ґ¦ вм ў Ё­вҐаў «Ґ ®в 0.001 ¤® 1');
 Readln;
 kol:=round((ki-ni)/shag);
 Writeln('Ѓг¤Ґв Їа®ўҐаҐ­­® ',kol,' ЁЄб®ў');
 Kruto(ni,shag,kol,super_good,a,num);
 For i:=1 to num Do begin
 TextColor(11);Write('x[',i,']= ');TextColor(14);
 write(a[i]:3:2,'   ');
 end;
 Kruto1(a,num);
 readln;
                           end;
                           3: begin
                           TextMode(co80);TextBackGround(0);ClrScr;
f[1]:=1;
f[2]:=2;
For i:=3 to 20 Do
f[i]:=f[i-1]+f[i-2];
Write('‚ўҐ¤ЁвҐ зЁб«® M :');Readln(m);
Write('‚ўҐ¤ЁвҐ зЁб«® R :');Readln(r);
Proc(f,20,m,r);Readln;
                           end;
                           4:begin
                           TextMode(80);TextBackGround(0);ClrScr;
 Writeln;k:=1;
 Write('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжл ');
 Readln(n,m_1);
 Writeln('‚ўҐ¤ЁвҐ н«Ґ¬ҐҐ­вл ў ¬ ббЁў:');
 For i:=1 to n Do begin
 For j:=1 to m_1 Do begin
 GotoXY(k,i+3);
 Readln(d[i,j]);
 k:=k+10;
 end;
 k:=1;
 end;
 Super1;
 if c=1 then Writeln('‚ ¬ ббЁўҐ ®Ў­ а㦥­­л ўҐй. зЁб« ')
 else Writeln('‚ ¬ ббЁўҐ ­Ґ ®Ў­ а㦥­­л ўҐй. зЁб« ');
 If c=0 then
 For i:=1 to n Do
 For j:=1 to m_1 Do
 d1[i,j]:=round(d[i,j]);
 if c=1 then Super(d,c,n,m_1)
 else Super(d1,c,n,m_1);
 Readln;
                           end;
                           5:begin exit;end;
                         end;
                   end;
                   if nc=0 then nc:=5;
                   if nc=6 then nc:=1;
                   w(nc);
end;
end.