Задача с While. Опции

[pepper]

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

[klem4]

{$n+}
uses crt;
const
   start = 1.909;
   stop  = 6.23;
     dx  = 1.005;
     t   = 10;
function L(x:extended):extended;
begin
   l:=sqrt(1+sqr(x))+t;
end;

var x:extended;

Begin
   clrscr;
   x:=start;
   while x<=stop+dx/2 do
    begin
       writeln('x=',x:3:5,'   l=',l(x):7:5);
       x:=x+dx;
    end;
   readln;
end.

[pepper]

Спасибо klem4.
Но я задачу уже сам решил:

Код

Program N;
Var dx,t,x,l:real;
begin
Writeln ('vvedite dx,t');
readln (dx,t);
x:=1.909;
While x<=6.23 do
begin
l:=sqrt(1+x*x)+t;
x:=x+dx;
Writeln ('l=',l:8:6);
end;
end.

Ну так вот... В следующий раз ты задачу СНАЧАЛА попытайся решить сам, это первое.
А второе - теги CODE не просто так сделаны...

Сообщение отредактировано: volvo - 17.06.2006 14:34