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

Program Elf;
Uses Crt,Super;
var nc:byte;
ch:char;

procedure sss(n:integer);
  var nc:byte;
   begin
    textbackground(0);
    clrscr;
              Writeln;
              GotoXY(25, 3);
              TextColor(14);
              write('Ћ ‘ Ќ Ћ ‚ Ќ Ћ …   Њ … Ќ ћ');
              if n=1 then nc:=12 else nc:=11;
              textcolor(nc);GotoXY(20, 6);
              write('          ‡Ђ„ЂЌ€… -1');
              if n=2 then nc:=12 else nc:=11;
              textcolor(nc);GotoXY(20, 8);
              write('          ‡Ђ„ЂЌ€… -2 ');
              if n=3 then nc:=12 else nc:=11;
              textcolor(nc);GotoXY(20, 10);
              write('          ‡Ђ„ЂЌ€… -3');
              if n=4 then nc:=12 else nc:=11;
              TextColor(nc);GotoXY(20, 12);
              write('          ‡Ђ„ЂЌ€… -4');
              if n=5 then nc:=12 else nc:=11;
              TextColor(nc);GotoXY(20, 14);
              write('          ‚›•Ћ„');
end;


begin
            nc:=1;
            sss(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
clrscr;
   write('a = ');readln(a);
   write('b = ');readln(b);
   write('n = ');readln(n);
  h:=(b-a)/n;
   tab1(a,h,n,y);
   j:=smpsn(n,h,y);
       h1:=2*h; n1:=n div 2 ;
       tab1(a,h1,n1,y1);
       j1:=smpsn(n1,h1,y1);
       delta:=abs(j-j1)/15;
       tab1(a+h/2,h,n-1,y2);
       p:=pram(h,n,y2);
   writeln('===============================================================================');
   writeln('j = ',j:2:3);
   writeln('delta = ',delta:2:3);
   writeln('p = ',p:2:3);
 readln;
end;
                           2:
 Begin
 ClrScr;
 Nachalo(a1,b1,n);h:=(b1-a1)/n;tab(h,a1,n,y);
 sm:=simpson(n,h,y,s2);writeln('бЁ¬Їб®­:',sm);writeln('ЇаאַгЈ.',s2);h1:=2*h;
 in1:=sm;in2:=simpson(n,h1,y,s2);
 del:=abs(in1-in2)/15;
 writeln('Ї®ЈаҐи­®бвм бЁ¬Їб®­ -',del:8:5);
 TaskB;
 Escape;
end;
                           3:
begin
    clrscr;     

    writeln('‚ўҐ¤ЁвҐ Є®«-ў® Є­ЁЈ ў бЇЁбЄҐ:');
    readln(n);
    for i:=1 to n do
         begin
    writeln('‚ўҐ¤ЁвҐ ­ §ў ­ЁҐ ',i,' Є­ЁЈЁ');
    readln(k[i].naz);
     writeln('‚ўҐ¤ЁвҐ  ўв®а  ',i,' Є­ЁЈЁ');
    readln(k[i].a);
             end;
    for i:=1 to n do
    for z:=1 to n-i do
    if (k[z].a)>(k[z+1].a) then
    begin
    w:=k[z].a;
    k[z].a:=k[z+1].a;
    k[z+1].a:=w;
           end;
    writeln('Ї®  «д ўЁвг:');
    for i:=1 to n do
    writeln(k[i].a);
        for i:=1 to n do begin
    if pos('pascal',k[i].naz)<>0 then
    begin
    v:=0;
      writeln('Є­ЁЈ  Ї® Ї бЄ «о:',k[i].naz,' ,д ¬Ё«Ёп  ўв®а  - ',k[i].a,'');
    v:=v+1;
    end;
      end;
   if v=0 then writeln('Є­ЁЈ ® Ї бЄ «Ґ ў ¤ ­­®¬ бЇЁбЄҐ ­Ґв');
       readln;


end;
                           4:
begin
   ClrScr;
   { ‚ў®¤ Ёб室­ле ¤ ­­ле }
   writeLn('ўўҐ¤ЁвҐ ¤«Ё­л бв®а®­ ваҐгЈ®«м­ЁЄ :');
   readln(a,b,c);
   if ((a+b)<c) or ((a+c)<b) or ((b+c)<a)
   then  writeln('ваҐгЈ®«м­ЁЄ  б¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ ­Ґ бгйҐбвўгҐв')
   else if (a=b) and (a=c)
        then  writeln('ваҐгЈ®«м­ЁЄ б ¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ - а ў­®бв®а®­­Ё©')
        else if (a=sqrt(sqr(b)+sqr(c))) or (b=sqrt(sqr(a)+sqr(c))) or (c=sqrt(sqr(a)+sqr(b)))
             then writeln ('ваҐгЈ®«м­ЁЄ  б¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ Їаאַ㣮«м­л©')
             else if (a=b) or (b=c) or (c=a)
                  then writeln ('ваҐгЈ®«м­ЁЄ  б¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ а ў­®ЎҐ¤аҐ­­л©')
                  else   writeln ('ваҐгЈ®«м­ЁЄ Ё­®©');
                  Readln;

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