Skocz do zawartości

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


Tymon

Rekomendowane odpowiedzi

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.

Odnośnik do komentarza
Udostępnij na innych stronach

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.

Odnośnik do komentarza
Udostępnij na innych stronach

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.

Odnośnik do komentarza
Udostępnij na innych stronach

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...

Odnośnik do komentarza
Udostępnij na innych stronach

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
  • Ostatnio przeglądający   0 użytkowników

    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...