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

Гость 84 12th Nov, 2019

                                           
                         program sekmes;
uses crt;
var r,k,e,i,s:integer;
  sr:array[1..5] of integer;
    sk:array[1..6] of integer;
    v:array[1..6] of string=('Dimas','Vasja','Puplis','Chels','Maris','Pubils');
    mip:array[1..5] of string =('Ang','Krv','Mat','Fiz','Inf');
    a:array[1..6,1..5] of integer;
    kv:Array[1..6] of Integer;
    begin
      randomize;
      for r:=1 to 6 do
      for k:=1 to 6 do
      a[r,k]:=random(10)+1;
      for r:=1 to 6 do
      begin
      textcolor(6);
        gotoxy(13,r+9);
        writeln(v[r]);
        end;
      begin
        textcolor(3);
        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
        textcolor(3);
        gotoxy(58,10);
        writeln('|');
        gotoxy(58,11);
        writeln('|');
        gotoxy(58,12);
        writeln('|');
        gotoxy(58,13);
        writeln('|');
        gotoxy(58,14);
        writeln('|');
        gotoxy(58,15);
        writeln('|');
      end;

      begin
      gotoxy(19,r+3);
          textcolor(3);
      writeln('Fiz:');
          gotoxy(24,r+3);
          textcolor(3);
     writeln('Mat:');
           gotoxy(29,r+3);
        textcolor(3);
      writeln('Krv:');
           gotoxy(34,r+3);
          textcolor(3);
      writeln('Ang:');
      gotoxy(39,r+3);
          textcolor(3);
      writeln('Inf:');
      gotoxy(60,r+3);
          textcolor(red);
      writeln('n');

      end;
      gotoxy(45,9);
      textcolor(6);
      writeln('Kopa:');
      textcolor(3);

      gotoxy(52,9);
      textcolor(6);
      writeln('Vid:');
      textcolor(3);

      for r:=1 to 6 do
      for k:=1 to 6 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 6 do
      begin
        for k:=1 to 6 do
        begin
          gotoxy(k*5+15,r+9);
          if a[r,k]   <= 3  then textcolor(lightred);
          if a[r,k]   >= 4  then textcolor(yellow);
          if a[r,k]   >= 7  then textcolor(lightgreen);
          writeln(a[r,k]);
          end;
        for e:=1 to 6 do
        begin
         gotoxy(44,9+r*1);
         write('| ');
         textcolor(6);
         writeln(sr[r]);
          textcolor(3);
          end;
        for i:=1 to 6 do
        gotoxy(50,9+r*1);
        write('| ');
        textcolor(6);
        writeln(sr[r]/4:2:2);
        textcolor(3);
        end;
      textcolor(3);
      gotoxy(13,16);
      writeln('===================================================');
      gotoxy(13,17);
      textcolor(white);
      writeln('Kopa -');
      for r:=1 to 6 do
      begin
        gotoxy(15+r*5,17);
        writeln(sk[r]);
        end;
      textcolor(3);
      gotoxy(13,18);
      writeln('===================================================');
       textcolor(white);
      gotoxy(13,19);
     writeln ('Vid  -');
      for k:=1 to 6 do
      begin
        gotoxy(15+k*5,19);
        writeln(sk[k]/4:2:2);
        end;
      begin
        Randomize;
       For r:=1 to 6 do
       begin
       kv[r]:=Random(15);
       textcolor(red);
       gotoxy(60,r+9);
       writeln(kv[r]);
      end;
       end;
      readln;
      end.
                      
                                       
Поделись этим текстом, скопируй эту ссылку и отправь друзьям
RAW Paste Data
Последние Тексты