Процедуры и функции Опции

[Art87]

Уважаемые форумчане. Помогите пожалуйста задачку решить.

[Art87]

Посмотрите, нормально, нет?

var f,g:real;
x,v,dx:integer;

function y(x:integer;f:real;v:integer):real;
var g:real;
begin
 g:=0.0098/((1/60)*(1/60));
 y:=x*sin(f)/1-(g*x*x)/(2*v*v*cos(f)*cos(f));
end;
begin
 v:= 35;
 f:=2*Pi/6;
 x:=-2;
 dx:=2;
 repeat
  x:=x+dx;
 until y(x,f,v)<0;
 writeln('With V=35km/h and Angle=2P/6 way(path) = ',x);

 v:= 30;
 f:=Pi/4;
 x:=-2;
 dx:=2;
 repeat
  x:=x+dx;
 until y(x,f,v)<0;
 writeln('With V=30km/h and Angle=P/4 way(path) = ',x);
 readln;
end.

Сообщение отредактировано: Art87 - 19.10.2005 10:48