Версия для печати темы

Автор: Doomed 6.04.2007 15:36

Нужно построить график функции cos(x)

Полсе запуска программы т.е. уже в самой программе выдает следующую ошибку:
BGI Error: Graphics not initialized (use InitGraph)

Проблема здесь или я ошибаюсь?

Var grDriver : Integer;
      grMode : Integer;
      x,y:real;{extended;}
      i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grmode, '');

program qwe;
Uses Graph,crt;
const shag=0.1;
	lgr=0;
	pgr=50;
	zcrtX=320;
	zcrty=240;
	mtrX=10;
	mtrY=10;
	colorG=15;
	colorOXY=4;
	OXYminX=-100;
	OXYmaxX=100;
	OXYminY=-100;
	oxymaxY=100;

Var grDriver : Integer;
     grMode : Integer;

   x,y:real;{extended;}
       i:integer;
Begin
readkey;
grDriver:=Detect;
InitGraph(grDriver, grmode, '');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);
x:=lgr;
while x<=pgr do begin
y:=cos(x);
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg);
x:=x+shag;
end;
readkey;
closegraph;
end.

Автор: volvo 6.04.2007 15:38

Проблема в том, что файл EGAVGA.BGI не находится в одной папке с EXE-шником...

Автор: Гость 6.04.2007 16:34

Цитата(volvo @ 6.04.2007 11:38)