!!!!!!!!!!!!!ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ!!!!!!!!!!!!

[Vovchik]

большое спосибо !!!!!!!!!!!!!!!!!!!!!!!!!

[Medved]

А вообще, в Turbo Pascal можно нажать alt+F5 и посмотреть, чё компу не нравицца.

[Vovchik]

чесно говоря я незнаю что у меня за поскаль Турбо или нет
но даже Alt+f5 не помощает !!!!!!!

[Medved]

Я имел ввиду борландовский редактор turbo pascal , а вообще - alt+F5 вызывает окно пользователя. Там можно посмотреть, какой именно еррор ты допустил. Признаться, я этим редактором не пользуюсь, но он довольно распространён.

[Vovchik]

uses crt;

var
Graphdriver, Graphmode:integer;
x1,x2,y1,y2:integer;
BEGIN
GraphDriver:=detect;
InitGraph(Graphdriver,graphmode,'');
If Graphresult<> grOk then
Halt(1);
randomize;
repeat
x1:=random(getmaxX);
x2:=random(getmaxY);
y1:=random(getmaxX );
y2:=random(getmaxY);
until keypreesed;
readln;
closeGraph;
END.


Вот ето програма а призапуске получаеца проблема скажыте что мне делать, может гдето ошыбка ?????!!!!!!!!!!

ПОМОГИТЕ А ТО С ЕТИМ ГРАФО У МЕНЯ ПОЛНЫЙ ЗАЛЁТ !!!!!!!!

[Medved]

Нада бы чё-та всё-таки присваивать в graphmode, не думал o_0?

[Medved]

И uses GRAPH написать...

[Medved]

И либо я чё-та не допираю (более вероятно) либо у халт нет параметров

[Vovchik]

И uses GRAPH написать...

ой я просто перепутал а так я знаю што надо писать uses Graph;

[Vovchik]

кстате забыл сказать я ету прогу прогнал через f8 и не понемаю почему но на

If Graphresult<> grOk then
Halt(1);

выбивает halt(1);!!!!!!
а когда я его убираю то при запуске получаечёрный екран !!!!!!!!!!