Решить через Pascal ABC y=lnx+6x^3 cos(x+9)
Ответы на вопрос
Ответил smnoregrets
0
var x,y:real;
begin
x:=1.0;
while x<=10 do begin
y:=ln(x)+6*x*x*x*cos(x+9);
writeln(x,' ',y);
x:=x+1;
end;
end.
begin
x:=1.0;
while x<=10 do begin
y:=ln(x)+6*x*x*x*cos(x+9);
writeln(x,' ',y);
x:=x+1;
end;
end.
Ответил sk102666
0
строками
Ответил smnoregrets
0
не понимаю, что по строкам?
Ответил Аноним
0
А можно вопрос? Откуда следует, что надо делать табуляцию функции от 1 до 10?
Ответил smnoregrets
0
условие задачи неясное, просто "решите"
Ответил Аноним
0
А... Вы фантазию проявили, понятно)))
Ответил Аноним
0
var
x,y:real;
begin
Write('x='); Read(x);
y:=Ln(x)+6*x*x*x+Cos(x+9);
Writeln('y = ',y)
end.
x,y:real;
begin
Write('x='); Read(x);
y:=Ln(x)+6*x*x*x+Cos(x+9);
Writeln('y = ',y)
end.
Ответил sk102666
0
добавте пожалуйста строку для сокращения ответа , до сотых после запятой
Ответил Аноним
0
Исправьте на Writeln('y = ',y:0:2)
Ответил sk102666
0
спасибо
Ответил Аноним
0
Пожалуйста
Новые вопросы