Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача с While.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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 не просто так сделаны...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.