AKez
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Такая ошибка выходит на черном экране: Graphics not initialized (use InitGraph)
Вот сама программа
program Ex;
uses graph, crt;
var a,b:integer;
begin
a:=detect;
initgraph (a,b,' ');
setlinestyle (0,1,3);
setcolor (1);
ellipse (300,170,303,255,5,90);
line (271, 245, 327, 330);
line (327, 256, 327, 330);
line (271, 290, 327, 290);
line (271, 290, 327, 300);
line (271, 300, 327, 310);
line (271, 310, 327, 310);
line (271, 310, 327, 320);
line (271, 320, 327, 330);
line (271, 330, 290, 340);
line (310, 340, 327, 330);
line (290, 340, 310, 340);
readln;
closegraph;
end.
В чем ошибка?
Как я понял ошибка в инициализации граф. режима. Что нужно сделать чтобы его открыть?
|
