Var x,u,dx:real; Begin Write('u = ');ReadLn(u); dx:=0.2; x:=-2.3; Repeat if x <= -1 then WriteLn('f(',x:0:1,') = ',Exp(3*Cos(x*x*x*x))) else if x < 0.5 then WriteLn('f(',x:0:1,') = ',u/2) else WriteLn('f(',x:0:1,') = ',x*x/(x*x*x+1)); x:=x+dx; Until x > 1.2 End.
Код Pascal (ABC/ABC.NET):
Var x,u,dx:real; Begin Write('u = ');ReadLn(u); dx:=0.2; x:=-2.3; Repeat if x <= -1 then WriteLn('f(',x:0:1,') = ',Power(Cos(Power(x,4)),3)) else if x < 0.5 then WriteLn('f(',x:0:1,') = ',u/2) else WriteLn('f(',x:0:1,') = ',x*x/(Power(x,3)+1)); x:=x+dx; Until x > 1.2 End.
<em>Увидел ответ для PascalABC.NET и не сдержался)))</em>
<em>// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var u:=ReadReal('u='); var x:=-2.3; Range(-23,12,2).Select(k->k/10) .Tabulate(x->x<=-1?Power(Cos(Power(x,4)),3):x<0.5?u/2:x*x/(x*x*x+1)) .Foreach(t->Writeln(t[0]:4:1,t[1]:15:10)) end.
Колибри пчела и оса умеют летать но Колибри это птица а пчела и оса это насекомые.То что их объединяет 1.Они они питаются цветочным нектаром. 2.Они могут летать.