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

Program Roma_durachek;
Uses Crt,Module;
var nc:byte;
f:file of real;
ch:char;
t:array[1..30] of real;
n, i:integer;

{$F+}
function super(x:real):real;
begin
super:=cos(x)+ln(x)+x-1.5;
end;
{$F-}

procedure w(n:integer);
  var nc:byte;
   begin
    textbackground(0);
    clrscr;
              TextBackGround(11);
              Window(11,3,61,5);
              Clrscr;
              textcolor(15);
              textbackground(1);
              window(10,2,60,4);
              clrscr;
              Writeln;
              write('             Ћ ‘ Ќ Ћ ‚ Ќ Ћ …   Њ … Ќ ћ');
              if n=1 then nc:=12 else nc:=2;
              textbackground(nc);
              window(20,7,50,7);
              clrscr;
              write('          ‡Ђ„ЂЌ€… -1');
              if n=2 then nc:=12 else nc:=2;
              textbackground(nc);
              window(20,9,50,9);
              clrscr;
              write('          ‡Ђ„ЂЌ€… -2 ');
              if n=3 then nc:=12 else nc:=2;
              textbackground(nc);
              window(20,11,50,11);
              clrscr;
              write('          ‡Ђ„ЂЌ€… -3');
              if n=4 then nc:=12 else nc:=2;
              textbackground(nc);
              window(20,13,50,13);
              clrscr;
              write('          ‡Ђ„ЂЌ€… -4');
              if n=5 then nc:=12 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;
                           ni:=ki;
                           while(ni=ki) or (ni>ki) do begin
                           clrscr;
                           write('‚ў-⥠Ё­вҐаў « ­  Є®в®а®¬ Ўг¤Ґв Ёбб«Ґ¤®ў ­  дг-жЁп y=cos(x)+ln(x)+x-1.5:');
                           read(ni,ki);
                           end;
                           shag:=10;
                           while(shag>1) or (shag<0.001) do begin
                           write('‚ўҐ¤ЁвҐ и Ј:');readln(shag);
                           if (shag<=1) and (shag>=0.5) then begin writeln('Њ «.б⥯Ґ­м ўлз.');end
                           else
                           if (shag<0.5) and (shag>=0.1) then begin writeln('‘।.б⥯Ґ­м ўлз.');end
                           else
                           if (shag<0.1) and (shag>0.0009) then begin writeln('Ѓ®«.б⥯Ґ­м ўлз.');end
                           else writeln(' Ј ў Ё­вҐаў «Ґ ®в 0.001 ¤® 1');
                           end;
                           readln;
                           kol:=round((ki-ni)/shag);
                           writeln('MAX 10 ўҐй. Є®а­Ґ©!');
                           writeln('Џа®ўҐаЁ¬ ',kol,' ЁЄб®ў');
                           kruto(ni,shag,kol,super,a,num);
                           for i:=1 to num do
                           write(a[i]:3:2,'  ');
                           kleuvo(a,num);
                           readln;
                           end;
                           2:begin
                           TextMode(co80);TextBackGround(0);ClrScr;
                           writeln;k:=1;
                           write('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжл :');
                           readln(n,m);
                           writeln('Љ Є®© Ўг¤Ґв вЁЇ');
                           write('(c=0-楫л©, c=1-ўҐйҐб⢥­­л©)');write('c=');
                           readln(c);
                           if c=0 then begin
                           write('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ў ¬ ббЁў:');
                           for i:=1 to n do begin
                           for j:=1 to m do begin
                           gotoXY(k,i+6);
                           readln(d0[i,j]);
                           k:=k+10;
                           end;
                           k:=1;
                           end;
                           good(d0,c,n,m);
                           end
                           else begin
                           writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ў ¬ ббЁў:');
                           for i:=1 to n do begin
                           for j:=1 to m do begin
                           gotoXY(k,i+6);
                           readln(d1[i,j]);
                           k:=k+10;
                           end;
                           k:=1;
                           end;
                           good(d1,c,n,m);
                           end;
                           readln;
                           end;
                           3:begin
                           TextMode(co80);TextBackGround(0);ClrScr;
                           i_no_ne_I:=0;
                           For i_no_ne_I:=1 to nefiga Do begin
                           _x[i_no_ne_I]:=0;
                           _y[i_no_ne_I]:=0;
                           end;
                           For i_no_ne_I:=1 to nefiga Do begin
                           TextColor(green);Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вг X ',i_no_ne_I,'-®©(Ґ©) в®зЄЁ: ');
                           TextColor(14);Read(_x[i_no_ne_I]);
                           TextColor(green);Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вг Y ',i_no_ne_I,'-®©(Ґ©) в®зЄЁ: ');
                           TextColor(14);Read(_y[i_no_ne_I]);
                           Writeln;
                           end;
                           Ya_dostau_iz_shirokih_shtanin_BIG_PROCEDURE(_x,_y,pridurok,kadr1,kadr2);
                           Writeln(pridurok:4:2,' ¬Ґ¦¤г ',Kadr1,' Ё ',Kadr2);
                           ReadLn;
                           ReadLn;
                           end;
                           4:begin
                           TextMode(co80);TextBackGround(0);ClrScr;
                           clrscr;
                           assign(f,'f.dat');
                           rewrite(f);

                           Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® зЁбҐ« ў ¬ ббЁўҐ');readln(n);
                           for i:=1 to n do begin
                           Write('‚ўҐ¤ЁвҐ   ', i, '-©  н«Ґ¬Ґ­в ¬ ббЁў :  ');
                           readln(t[i]);
                           write(f,t[i]);
                                            end;
                           close(f);
                           Fuck;

                           readln;
                           end;
                           5:begin exit;end;
                         end;
                   end;
                   if nc=0 then nc:=5;
                   if nc=6 then nc:=1;
                   w(nc);
end;
end.