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