Изобразить на экране пять разноцветных окон, расположенных по диагонали черного экрана

@___Alex___ · Регистрация: 26.12.2011

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

Используя модуль CRT изобразить на экране пять разноцветных окон, расположенных по диагонали черного экрана (0,0,80,25).

@Puporev · 14.01.2012, 21:25

Pascal

uses crt;
var i,h,w:byte;
begin
textbackground(0);
clrscr;
h:=5;
w:=16;
for i:=1 to 5 do
 begin
  window(w*(i-1)+1,h*(i-1)+1,w*i,h*i);
  textbackground(i+1);
  clrscr;
 end;
readln
end.

@___Alex___ 0 / 0 / 0 Регистрация: 26.12.2011 Сообщений: 41
		1
	Изобразить на экране пять разноцветных окон, расположенных по диагонали черного экрана 14.01.2012, 20:58. Показов 1485. Ответов 1 Метки нет (Все метки) Используя модуль CRT изобразить на экране пять разноцветных окон, расположенных по диагонали черного экрана (0,0,80,25). 0

	14.01.2012, 21:25

Изобразить на экране пять разноцветных окон, расположенных по диагонали черного экрана

Решение