Кто подскажет как в Lazarus при програмировании как на паскале, чтоб он показывал графику.
Причем модуль crt он принял а graph не хочет.
Вот код программы написанной на паскале на винде.
program gr;
uses graph,crt;
Var n,m,q,x,y,x1,y1:integer; y2,x2,e,c,d,s,h,fc,fd,fs: real;
begin
clrscr;
n:=detect;
initgraph(n,m,'');
for x:=0 to 640 do putPixel(x,240,7);
for y:=0 to 480 do putPixel(320,y,7);
Y:=9;
repeat
For x:=-2 to 2 do
PutPixel (320+x,y,7);
y:=y+8
until y>480;
x:=8;
repeat
for y:=-2 to 2 do
putPixel(x,240+y,7);
x:=x+8
until x>630;
OutTextXY (50,244,'-31');
OutTextXY (585,244,'30');
OutTextXY (327,3,'29');
OutTextXY (327,455,'-27');
outtextxy (327,244,'0');
x2:=-31;
repeat
begin
y2:=x2*x2*sin(x2)-cos(x2)-0.1;
x1:=round(x2*8+320);
y1:=round(240-6*y2);
putPixel(x1,y1,14);
Delay(0);
q:=q+1;
end;
x2:=x2+0.0001
until x2>30;
readln;
closeGraph;
end.