[Pascal]Błąd przy użyciu graph

[Tymon]

Ostatnio znowu katuje trochę Pascala - do szkoły potrzeba ;) Jednak mam problem z użyciem modułu graph, wykonuję kod:

Program prog;
Uses graph;
begin
  { Tutaj cos xP }
  InitGraph(...);
end.

Czy podobny i zawsze uruchomienie kończy się błędem

Syntax error, "Unit" expected but "Uses" found

lub czymś tego typu. Jestem pewien że nie ma błędu w składni kodu etc. - gdy nie używam graph to wszystko działa (oprócz funkcji tego modułu xD).

 

Jestem szczęśliwym użytkownikiem Free Pascala na WinXP ;3

 

BTW. Nigdy nie miałem takiego problemu pracując na TP7.

[blackmaul]

Musisz zawsze zadeklarować 3 zmienne. Tutaj masz przykładowy kodzik:

program grafika;

uses Graph;
var Karta, Tryb, x, y, z : Integer;
   napis : string;
begin
DetectGraph(Karta, Tryb);
InitGraph(Karta, Tryb, 'c:\bp\bgi');
if GraphResult<>grOk then halt;

SetColor(yellow); { ustawiam kolor napisu, figur }
SetBkColor(blue); { ustawiam tlo }

{ wylosujmy cos w rozsadnych granicach - chodzi mi o zmienna z ;D }
randomize;
x:=random(11);
y:=0; { 0 - domyslny - poziomo, 1 to pionowo }
z:=random(3); {wielkosc czcionki}

SetTextStyle(x,y,z);

Napis:='Graph nie jest trudny';
{ wypisz po srodku ekranu }
OutTextXY(GetMaxX div 2-TextWidth(Napis) div 2,GetMaxY div 2-TextHeight(Napis) div 2,
         Napis);

readln;
CloseGraph;
End.

[Marmot]

Graph pod Free Pascal trochę jest zwalony :P . Ściągnij sobie WinGraph, funkcje się prawie nie różnią, a robisz wtedy aplikacje windowsowe, nie konsolowe ;p .

[Tymon]

Black, chyba nie zrozumiałeś problemu ;) Błąd pojawiam mi się wtedy gdy deklaruje chęć użycia modułu graph.

 

Marmot, tak tylko że zależy mi na tych konsolowych, jest to trochę durne i absurdalne ale wymaga tego moja nauczycielka xD A z WinGraph się jeszcze zapoznam ;P

 

Dzięki za odpowiedzi.

[blackmaul]

Hm, a masz w folderze z zapisanym programem pliki graph'u?

[Tymon]

Mam, przecież nie jestem taki głupi :P

 

.bgi też jest :D

[Marmot]

No właśnie, żeby działał Graph, to musisz mieć plik .BGI tam gdzie plik .exe, bo inaczej nie pójdzie. Chyba wiesz o tym :P .

Bo ja pamiętam, że bawiłem się kiedyś Graphem pod Windows jeszcze i jak pisałem tak:

program graficzny;
uses crt, graph;
var
sterownik:integer;
tryb:integer;
begin
sterownik:=EGA;
tryb:=EgaLo;
initgraph(sterownik,tryb,'');
{ ... }
closegraph;
end.

...i zawsze działało. Poszukaj pliku .bgi z nazwą sterownika który ustawiłeś. Raczej jest to w Free Pascal, a jak nie ma, to trudno ;p . Może ty zrobiłeś błąd.

 

EDIT: Skoro dałeś, to ja już nie wiem :P . Może spróbuj przeinstalować freepascal, bo może coś graph masz uszkodzony...