Ответы
Ответ дал:
0
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var x:=0.6; var y:=0.0;
for var i:=1 to 100 do
begin
y:=3*x**2+sqrt(4*x)-7.3;
Writeln('y',y:0:4,' ','x=',x);
if x>0.8 then exit;
x:=x+0.04;
end;
end.
//Внимание! Если программа не работает, обновите версию!
begin
var x:=0.6; var y:=0.0;
for var i:=1 to 100 do
begin
y:=3*x**2+sqrt(4*x)-7.3;
Writeln('y',y:0:4,' ','x=',x);
if x>0.8 then exit;
x:=x+0.04;
end;
end.
Приложения:
![](https://st.uroker.com/files/0f2/0f2dc0c39596d6916b4becb090655a5b.png)
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад