
Whosts.ru
Гость 92 12th Nov, 2019
MARKUP 2.70 KB
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
Последние Тексты
- Whosts.ru
Хостинг текста | 7 | 12 часов назад
- Whosts.ru
Хостинг текста | 6 | 12 часов назад
- История Таяр и Людей
Хостинг текста | 17 | 1 день назад
- 31234
Хостинг текста | 13 | 2 дня назад
- Whosts.ru
Хостинг текста | 13 | 3 дня назад
- Whosts.ru
Хостинг текста | 27 | 4 дня назад
- Кря
Хостинг текста | 27 | 5 дней назад
- Whosts.ru
Хостинг текста | 33 | 5 дней назад
- Whosts.ru
Хостинг текста | 35 | 6 дней назад
- Whosts.ru
Хостинг текста | 26 | 1 неделю назад