Нарисовать квадрат, который постоянно менянт цвет

@hennessy7219 · Регистрация: 06.06.2016

Author24 — интернет-сервис помощи студентам

Нарисовать квадрат , который постоянно менянт цвет а когда нажимаешь любую клавишу прекращает.

@Puporev · 08.06.2016, 10:08

Pascal

uses graph,crt;
var x,y,a,i:integer;
begin
randomize;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
a:=y div 2;
outtextXY(x-100,10,'Stop any key(no Enter)');
repeat
i:=2+random(14);
setfillstyle(1,i);
setcolor(i);
bar(x-a,y-a,x+a,y+a);
delay(500);
until keypressed;
cleardevice;
setcolor(15);
outtextXY(x-50,y,'Press Enter');
readln
end.

Добавлено через 19 минут
Пожалуй лучше так.

Pascal

uses graph,crt;
var x,y,a,i:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
a:=y div 2;
outtextXY(x-100,10,'Stop any key(no Enter)');
i:=1;
repeat
inc(i);
if i=8 then inc(i);
if i=16 then i:=2;
setfillstyle(1,i);
setcolor(i);
bar(x-a,y-a,x+a,y+a);
delay(500);
until keypressed;
cleardevice;
setcolor(15);
outtextXY(x-50,y,'Press Enter');
readln
end.

@hennessy7219 · 08.06.2016, 10:35 **[ТС]**

Спасибо)

@hennessy7219 0 / 0 / 0 Регистрация: 06.06.2016 Сообщений: 68
		1
	Нарисовать квадрат, который постоянно менянт цвет 08.06.2016, 09:37. Показов 1855. Ответов 2 Метки нет (Все метки) Нарисовать квадрат , который постоянно менянт цвет а когда нажимаешь любую клавишу прекращает. 0

@hennessy7219 0 / 0 / 0 Регистрация: 06.06.2016 Сообщений: 68
	08.06.2016, 10:35 [ТС]	3
	Спасибо) 0

Нарисовать квадрат, который постоянно менянт цвет

Решение