Технический форум - Показать сообщение отдельно

BerGmaN · 12.05.2015, 13:11

Ну да без вставок примерно выходит что то такое.
program kvadrat;
uses graph;
begin
InitGraph(9, 2, 'D:\tp7\bgi');
SetColor(3);
Rectangle(100,100,200,200);
repeat until keypressed;
CloseGraph;
end.

12.05.2015, 13:11	#3 (permalink)
BerGmaN Новичок Регистрация: 12.05.2015 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ну да без вставок примерно выходит что то такое. program kvadrat; uses graph; begin InitGraph(9, 2, 'D:\tp7\bgi'); SetColor(3); Rectangle(100,100,200,200); repeat until keypressed; CloseGraph; end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070