mam problem z takim programikem w turbo pascalu. Wersja 7.0. Nie razumie polecenia graph przy kompilacji, i z tego co wiem jest to problem z biblioteka. Jest to prosta animacja- poruszajacy sie punkt, petla z kodem wynikowym. Co moze byc przyczyna?
program strzal;
uses Crt, GRAPH;
var x,y :integer;
a,alfa,b,vo :real;
odl :string [5];
ster, tryb :integer;
begin
clrscr;
write('vo'); readln(vo);
writeln('kat');
write('alfa='); readln(alfa)
;alfa:=alfa*Pi/180;
ster:=detect; tryb:=detect;
InitGraph(ster,tryb,'c:\bp\bgi
');
SetColor(RED);
Line(0,349,639,349);
a:=9.81/(2*sqr(vo*cos(alfa)));
b:=-sin(alfa)/cos(alfa);
x:=0;
y:=348;
PutPixel (x,y,White);
repeat
delay(50);
PutPixel (x,y,Black);
x:=x+5;
y:=348+round((a*x+b)*x);
PutPixel (x,y,White)
until (x>=639) ;
SetTextJustify (Centertext,CenterText);
if x>639
then OutTextXY (319,174,'Odleglosc ponad 640 m')
else begin
Str (x,odl);
OutTExtXY (319,174,'Odleglosc: '+odl+' m')
end;
repeat
until KeyPressed;
Closegraph
end.
turbo pascal
turbo pascal
ster:=detect; {detect - nie detectgraph}
InitGraph(ster,tryb,'c:\bp\bgi'); {sprawdź w jakim katalogu znajdują się pliki *.BGI
InitGraph(ster,tryb,'c:\bp\bgi'); {sprawdź w jakim katalogu znajdują się pliki *.BGI
turbo pascal
Dzieki za pomoc. Poprawilem i sproboje go uruchomic.
[ Dodano: 18 Lutego 2008, 12:19 ]
Nic nie pomoglo
[ Dodano: 17 Marca 2008, 20:13 ]
Podalem mu dokladna sciezke dostepu, z tym ze foldery bgi, bin, units sa nie w katalogu TP, tylko gdzies indziej, a wlasnie w units jest ten graph. I nic.
[ Dodano: 18 Lutego 2008, 12:19 ]
Nic nie pomoglo
[ Dodano: 17 Marca 2008, 20:13 ]
Podalem mu dokladna sciezke dostepu, z tym ze foldery bgi, bin, units sa nie w katalogu TP, tylko gdzies indziej, a wlasnie w units jest ten graph. I nic.