Turbo Pascal-Error-POMOCY!

Odpowiedz


RECAPTCHA_EXPLAIN
Emotikony
:D :) :( :o 8O :? 8) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: ;) :!: :?: :idea: :arrow: :| :mrgreen:

BBCode włączony
[Img] włączony
[Flash] wyłączony
[URL] włączony
Emotikony włączone

Przegląd tematu
   

Rozwiń widok Przegląd tematu: Turbo Pascal-Error-POMOCY!

Turbo Pascal-Error-POMOCY!

autor: ewunia9125 » 3 cze 2009, 19:35

Więc mam tak wszystko napisane a jak naciskam Compile to wyskakuje"Error 15: File not found (GRAPH.TPU.)."
Co jest źle? Pomóżcie... :cry:


Program Costam;
uses Graph;
var gdriver, gmode : integer;
begin
gdriver := Detect; { sam se wykryj }
gmode := VgaHi; { myslalby kto, wYSOKA rOZDZIELCZOSC 640x480x16 }

InitGraph(gdriver,gmode,'..\bgi\'); { sterowniki sa w sciezce RELATYWNEJ }


ClearDevice; {wyczysc ekran}
SetBkColor(LightGray); { lekkoszary podkladzik}

SetTextStyle(DefaultFont,HorizDir,6); {dosmyslny font, poziom, rozmiar 6 }
Setcolor(Red); { na czerwono }
OutTextXY(210,60,'Z S E'); { w pozycji 210,60 }

SetTextStyle(TriplexFont,HorizDir,1); {Font potrojny, poziom, rozmiar 1 }
Setcolor(Green); { na zielono }
OutTextXY(200,140,'Zesp˘l Szk˘l Ekonomicznych'); { w pozycji 200,140 }

SetTextStyle(DefaultFont,HorizDir,1); {domyslny font , poziom, rozmiar 1}
Setcolor(Brown); { na bronzowo }
OutTextXY(450,450,'Nacisnij Enter'); { w pozycji 450x450 }

SetTextStyle(GothicFont,HorizDir,1); { po gotycku, poziom, rozmiar 1 :}
Setcolor(Yellow); { na zolto }
OutTextXY(10,450,'Autor: ewunia'); { w pozycji 10,450 }

SetColor(White); { na czerwono }
MoveTo(160,450);LineTo(520,140); {linia (160,450)-(520,140)}
SetColor(Red); { na bialo }
Moveto(160,220);LineTo(520,440); {linia (160,220)-(520-440)}

readln; { tu czekamy na wcisniecie klawisza }
closegraph;
end.

Na górę