18.05.2010, 01:53
|
#4 (permalink)
|
Новичок
Регистрация: 18.05.2010
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
ща напишу
Program ....;
uses Graph;
var Gd, Gm: Integer;
begin
Gd:=Detect;
InitGraph (Gd,Gm,'');
setbkcolor (14);
Setcolor (7);
line (120,210,320,10);
line (320,10,520,210);
line (120,210,320,410);
line (520,210,320,410);
Readln;
end.
Типа нарисовать ромб серого цвета на оранжевом фоне, кста понимаю малёк кривоват он. но оно то запускается, цвет меняет ромба тока линий, а фона нет.
|
|
|