Помощь - Поиск - Пользователи - Календарь
Полная версия: Проблемы с графикой
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Doomed
Нужно построить график функции 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
Проблема в том, что файл EGAVGA.BGI не находится в одной папке с EXE-шником...
Гость
Цитата(volvo @ 6.04.2007 11:38) *

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


Спасибо... smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.