Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Program gr_4;
uses graph,crt;
var Gd,Gm,i: integer;
begin
Gd:=Detect;
initgraph(Gd, Gm, '');
line(150,100,200,200);
line(150,100,100,200);
line(100,200,190,130);
line(190,130,110,130);
line(110,130,200,200);
readkey;
closegraph;
end.
uses graph,crt;
var Gd,Gm,i: integer;
begin
Gd:=Detect;
initgraph(Gd, Gm, '');
line(150,100,200,200);
line(150,100,100,200);
line(100,200,190,130);
line(190,130,110,130);
line(110,130,200,200);
readkey;
closegraph;
end.