Сделать таблицей в Паскаль, помогите пожалуйста
Параметр:
𝑥 = 0.01(0.01)0.1
Табулирование функций :
y=e^z
z=e^x
Чем помочь, что именно не получается? Что пробовали делать?
Кроме таблицы, ничего больше не выдает, не считает, где ошибка ?
Program tabl3;
Const
P=' ';
T=' ';
Var
e,y,z,x:real;
Begin{tabl3}
WriteLn(T, 'ВАР.4');
WriteLn;
WriteLn;
{Вывод заголовка таблицы}
WriteLn(T,'┌────────┬──────────┬──────────┐');
WriteLn(T,'│ x │ y │ z │');
WriteLn(T,'├────────┼──────────┼──────────┤');
e:=2.7;
x:=0.01;
while x>0.1 do
begin
x:=x+0.01;
y:=exp(z); z:=exp(x);
WriteLn(T,'│',P,x:4:2,P,'│',P,y:6:3,P,'│',P,z:5:3,P,'│');
end;
{Окончание таблицы}
WriteLn(T,'└────────┴──────────┴──────────┘')
End.{tabl3}
х изначально 0.01, а в цикле условие “пока х больше 0.1”, то есть ни разу не выполнится.
Program tabl3;
Const
P=' ';
T=' ';
Var
i:real;
e,y,z,x:real;
Begin{tabl3}
WriteLn(T, 'ВАР.4');
WriteLn;
WriteLn;
{Вывод заголовка таблицы}
WriteLn(T,'┌────────┬──────────┬──────────┐');
WriteLn(T,'│ x │ y │ z │');
WriteLn(T,'├────────┼──────────┼──────────┤');
e:=2.718;
x:=0.01;
while x<=0.1 do
begin
x:=x+0.01;
y:=exp(z); z:=exp(x);
{Вывод строки таблицы}
WriteLn(T,'│',P,x:4:2,P,' │',P,y:6:3,P,' │ ',P,z:5:3,P,' │');
end;
{Окончание таблицы}
WriteLn(T,'└────────┴──────────┴──────────┘')
End.{tabl3}
почему у меня считает не до 0,1 а до 0,11
и ответ по “y” на следующей строке
т.е должно быть в первой строке (x.y.z) 0.2; 2.774.; 1.020 ? не могу понять в чем ошибка , спасибо заранее
Так тут цикл до
то есть последний раз туда войдет когда 0.1, и прибавит еще 0.01.