Ответы
Ответ дал:
0
Var a,x,y:real;
Begin
a:=6.4;
While a <= 7.8 do
Begin
x:=(a+2)/(7*a);
if x < 6 then y:= Sin(x/2)+3
else if x <= 7.5 then y:=x*(x-3)
else y:=Exp(6*Ln(7*x*x));
WriteLn('y(',x:0:3,') = ',y);
a:=a+0.3
End;
End.
Begin
a:=6.4;
While a <= 7.8 do
Begin
x:=(a+2)/(7*a);
if x < 6 then y:= Sin(x/2)+3
else if x <= 7.5 then y:=x*(x-3)
else y:=Exp(6*Ln(7*x*x));
WriteLn('y(',x:0:3,') = ',y);
a:=a+0.3
End;
End.
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад