Почему не работает, никто не знает?

[Евгения18]

Почему не работает, никто не знает?

В лазарусе..
пишут что проект успешно собран а на форме ничего не появлется..
uses
graph;
const
radius=200;
var
driver,mode:integer;
ugol:real;
x,y:integer;
x0,y0:integer;
begin
driver:=installuserdriver('svga256',nil);
mode:=4;
initgraph(driver,mode,'');
x0:=getmaxx div 2;
y0:=getmaxy div 2;
ugol:=0;
while ugol<2*pi do begin
x:=x0+round(radius*cos(ugol));
y:=y0+round(radius*sin(ugol));
putpixel(x,y,white);
ugol:=ugol+pi/180;
end;
readln;
closegraph;
end.

 

[Vladimir_S]

В лазарусе.. пишут что проект успешно собран а на форме ничего не появлется..

Ничего про Лазарус не знаю, но при запуске в обычном Турбопаскале прекраснейшим образом рисуется пунктирная окружность. Но! Я при тестировании запускал свой модуль старта графического режима, а все Ваши установки закомментарил. Отсюда вывод: либо у Вас неправильно сконфигурирована команда InitGraph (что скорее всего), либо окно этого Лазаруса, либо и то, и другое. А в собственно программе ошибок нет.