mam taki program który nie działa jak należy (w TP)
[code]
uses crt, graph;
var
x, d,karta,tryb: integer;
k,v: byte;
y: integer;
h: real;
procedure bum(v,k:byte);
begin
h:=arctan(k);
for x:= 1 to 600 do
begin
y:=round((10/(2 * v * v))*x*x - x* h); {czy ten wzór jest <ort>wogule </ort>poprawny???}
if y+350 < 351 then putpixel(x, y+350, 2);
end;
end;
begin
writeln('podaj v i k');
readln(V);
readln(K);
karta:=detect;
initgraph(karta,tryb,'c:\tp\bgi');;
bum(v,k);
readkey;
closegraph;
end.
[/code]
i teraz ... dlaczego wykres nie zmienia sie po wpisaniu innego kąta?