Составить программу, которая приводит к появлению четырех квадратов по углам экрана.

@SkN[i]lpl[e][r] · Регистрация: 12.05.2011

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

Составить программу, которая приводит к появлению четырех квадратов по углам экрана. После нажатия клавиши Enter они окрашиваются в ярко-бирюзовый цвет. После второго нажатия на клавишу Enter все исчезает.

@azzaq · 14.05.2011, 19:59

Pascal

uses crt,graph;
var gd,gm,i : integer;
begin
gd := Detect;
InitGraph(gd,gm,'');
i := 0;
repeat
if i = 1 then
  setfillstyle(1,11);
bar(1,1,100,100);
bar(getmaxX-100,1,getmaxX,100);
bar(1,getmaxY-100,100,getmaxY);
bar(getmaxX-100,getmaxY-100,getmaxX,getmaxY);
readkey;
i := i + 1;
until i = 2;
closegraph;
end.

@SkN[i]lpl[e][r] 9 / 6 / 5 Регистрация: 12.05.2011 Сообщений: 282
		1
	Составить программу, которая приводит к появлению четырех квадратов по углам экрана. 12.05.2011, 19:42. Показов 1386. Ответов 1 Метки нет (Все метки) Составить программу, которая приводит к появлению четырех квадратов по углам экрана. После нажатия клавиши Enter они окрашиваются в ярко-бирюзовый цвет. После второго нажатия на клавишу Enter все исчезает. 0

	14.05.2011, 19:59

Опции темы

Составить программу, которая приводит к появлению четырех квадратов по углам экрана.

Решение