Текстовый хостинг - Получите доступ к сохраненным данным из любой точки мира через Интернет
avatar
Whosts.ru

Гость 92 12th Nov, 2019

                                           
                         program sekmes;
uses crt;
var r,k,e,i,s:integer;
  sr:array[1..3] of integer;
    sk:array[1..4] of integer;
    v:array[1..6] of string=('Korps','Grund','Pumps','Chals','Maris','Gulbs');
    mip:array[1..4] of string =('Fiz','Mat','Krv','Ang');
    a:array[1..4,1..3] of integer;
    begin
      randomize;
      for r:=1 to 4 do
      for k:=1 to 4 do
      a[r,k]:=random(10)+1;
      for r:=1 to 6 do
      begin
        gotoxy(13,r+9);
        writeln(v[r]);
        gotoxy(18,10);
        writeln('|');
        gotoxy(18,11);
        writeln('|');
        gotoxy(18,12);
        writeln('|');
        gotoxy(18,13);
        writeln('|');
        gotoxy(18,14);
        writeln('|');
        gotoxy(18,15);
        writeln('|');
        end;

      begin
      gotoxy(19,r+2);
          textcolor(8);
      writeln('Fiz:');
          gotoxy(24,r+2);
          textcolor(8);
     writeln('Mat:');
           gotoxy(29,r+2);
        textcolor(8);
      writeln('Krv:');
           gotoxy(34,r+2);
          textcolor(8);
      writeln('Ang:');

      end;
      gotoxy(50,8);
      textcolor(8);
      writeln('Kopa:');
      textcolor(7);

      gotoxy(56,8);
      textcolor(6);
      writeln('Vid:');
      textcolor(7);

      for r:=1 to 4 do
      for k:=1 to 4 do
      begin
        s:=s+a[r,k];
        sr[r]:=sr[r]+a[r,k];
        sk[k]:=sk[k]+a[r,k];
        end;
      for r:=1 to 4 do
      begin
        for k:=1 to 4 do
        begin
          gotoxy(k*5+15,r+9);
          if a[r,k]   <= 3  then textcolor(lightred);
          if a[r,k]   >= 3  then textcolor(yellow);
          if a[r,k]   >= 7  then textcolor(lightgreen);
          writeln(a[r,k]);
          end;
        for e:=1 to 4 do
        begin
         gotoxy(39,9+r*1);
         write('| ');
         textcolor(8);
         writeln(sr[r]);
          textcolor(7);
          end;
        for i:=1 to 4 do
        gotoxy(44,9+r*1);
        write('| ');
        textcolor(6);
        writeln(sr[r]/4:2:2);
        textcolor(7);
        end;
      textcolor(lightgreen);
      gotoxy(13,16);
      writeln('--------------------------');
      gotoxy(13,17);
      textcolor(lightblue);
      writeln('Kopa -');
      for r:=1 to 4 do
      begin
        gotoxy(15+r*5,17);
        writeln(sk[r]);
        end;
      textcolor(lightgreen);
      gotoxy(13,18);
      writeln('--------------------------');
       textcolor(6);
      gotoxy(13,19);

     writeln ('Vid  -');
      for r:=1 to 4 do
      begin
        gotoxy(15+r*5,19);
        writeln(sk[k]/4:2:2);
        end;
      readln;
      end.
                      
                                       
Поделись этим текстом, скопируй эту ссылку и отправь друзьям
RAW Paste Data
Последние Тексты