Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран

@Ivan56 · Регистрация: 07.02.2013

Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран.в Turbo Pascal 7

Kodzaev · 07.02.2013, 16:06

Pascal

Uses crt;
Var
  i: Byte;
BEGIN
Clrscr;
Randomize;
For i:=0 to 15 do
begin
  TextColor(i);
  Write(Random(100),' ');
end;
Readln
END.

@Ivan56 · 07.02.2013, 16:16 **[ТС]**

Спасибо огромное

@Spase · 08.02.2013, 12:00

Pascal

program lab51_3;
uses crt;
var i,c:integer;
begin
clrscr;
for i:=1 to 16 do
begin
c:=1+random(15);
textcolor(1+random(15));
gotoxy(random(79),random(39));
writeln(c);
end;
readkey;
end.

Вот так лучше будет

@Ivan56 0 / 0 / 0 Регистрация: 07.02.2013 Сообщений: 13
		1
	Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран 07.02.2013, 15:59. Просмотров 2052. Ответов 3 Метки нет (Все метки) Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран.в Turbo Pascal 7 0

@Ivan56 0 / 0 / 0 Регистрация: 07.02.2013 Сообщений: 13
	07.02.2013, 16:16 [ТС]	3
	Спасибо огромное 0

Опции темы