Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
16
Добавлен:
10.12.2013
Размер:
261 б
Скачать
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.
Соседние файлы в папке 4