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

Гость 90 12th Nov, 2019

                                           
                         program sekmes;
uses crt;
var r,k,e,i,s,vid:integer;
  sr:array[1..5] of integer;
    sk:array[1..6] of integer;
    v:array[1..6] of string=('Korps','Grund','Pumps','Chals','Maris','Gulbs');
    mip:array[1..6] of string =('Fiz','Mat','Krv','Ang','Inf','Bio');
    a:array[1..6,1..5] of integer;
    kv:array[1..6] of integer;
    st:array[1..6] of integer;
    vid: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
        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;
///////////////////////////////////////////////////////////////////////
             for R:=1 to 6 do
             begin
               kv[r]:=random(13)+1;
               gotoxy(64,9+r*1);
               writeln(kv[r]);
             begin
               gotoxy(63,8);
               textcolor(lightblue);
               write('Kav:');
                     end;
                     begin
                         gotoxy(63,9);

        if kv[r]>=8 then textcolor(lightmagenta);
        if kv[r]<=7 then textcolor(lightgreen);
////////////////////////////////////////////////////////////////////////
                    end;
             end;
               for r:=1 to 6 do
               begin
                gotoxy(62,9+r*1);
                textcolor(7);
               write('| ');
      end;
for r:=1 to 6 do
/////////////////////////////////////////////////////////////
      begin
                gotoxy(15+r*5,8);
                textcolor(blink);
                writeln(mip[r]);

      end;
/////////////////////////////////////////////////////////////
       for r:=1 to 6 do
       begin

        IF vid<=4.0 then st[r]:=10;
        IF (4.0<vid)and(vid<=4.9) then st[r]:=45;
        IF (5.0<vid)and(vid<=5.9) then st[r]:=60;
        IF (6.0<vid)and(vid<=6.9) then st[r]:=75;
        IF (7.0<vid)and(vid<=7.9) then st[r]:=90;
        IF vid>8.0 then st[r]:=150;
        if kv[r]>8 then st[r]:=10;
            gotoxy(71,9+r*1);
                 writeln(st[r]);


        end;
/////////////////////////////////////////////////////////////
      gotoxy(50,8);
      textcolor(lightgray);
      writeln('Kopa:');
      textcolor(7);
/////////////////////////////////////////////////////////////
      gotoxy(56,8);
      textcolor(6);
      writeln('Vid:');
      textcolor(7);
//
      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]   >= 3  then textcolor(yellow);
          if a[r,k]   >= 7  then textcolor(lightgreen);
          writeln(a[r,k]);
          end;
        for e:=1 to 6 do
        begin
         gotoxy(49,9+r*1);
         write('| ');
         textcolor(8);
         writeln(sr[r]);
          textcolor(7);
          end;
        for i:=1 to 6 do
        BEGIN
        gotoxy(54,9+r*1);
        write('| ');
        textcolor(6);
        vid[r]:sk[r]/6;
        textcolor(7);
        writeln(vid[r]:2:2);
           end;

        end;
      textcolor(lightgreen);
      gotoxy(13,16);
      writeln('-----------------------------------------------');
      gotoxy(13,17);
      textcolor(lightblue);
      writeln('Kopa -');
      for r:=1 to 6 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 k:=1 to 6 do
      begin
        gotoxy(15+k*5,19);
        writeln(sk[k]/6:2:2);
        end;
      readln;
      end.
                      
                                       
Поделись этим текстом, скопируй эту ссылку и отправь друзьям
RAW Paste Data
Последние Тексты