Написать программу ** алгоритмическом языке PASCAL с использованием любого...

Question

Написать программу на алгоритмическом языке PASCAL с использованием любого оператора(номер 8)

---

Comments

составить блок схему по 8 номеру)

Answer 1

Увидел ответ для PascalABC.NET и не сдержался)))

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

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))<br>      .Foreach(t->Writeln(t[0]:4:1,t[1]:15:10))
end.

Результат
u= 3
-2.3  -0.8797052525
-2.1   0.5638810103
-1.9   0.7133050404
-1.7  -0.1090601034
-1.5   0.0403543461
-1.3  -0.8834179090
-1.1   0.0012077455
-0.9   1.5000000000
-0.7   1.5000000000
-0.5   1.5000000000
-0.3   1.5000000000
-0.1   1.5000000000
 0.1   1.5000000000
 0.3   1.5000000000
 0.5   0.2222222222
 0.7   0.3648548027
 0.9   0.4684788895
 1.1   0.5190905191

Answer 2

Код Pascal (Turbo/Free):

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)))<br>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))<br>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.



Пример работы программы:

u = 3
f(-2.3) = -0.879705252481176
f(-2.1) = 0.563881010320276
f(-1.9) = 0.713305040376838
f(-1.7) = -0.109060103362282
f(-1.5) = 0.0403543461246888
f(-1.3) = -0.883417909038021
f(-1.1) = 0.00120774553073702
f(-0.9) = 1.5
f(-0.7) = 1.5
f(-0.5) = 1.5
f(-0.3) = 1.5
f(-0.1) = 1.5
f(0.1) = 1.5
f(0.3) = 1.5
f(0.5) = 0.222222222222222
f(0.7) = 0.364854802680566
f(0.9) = 0.468478889531521
f(1.1) = 0.519090519090519

Comments

можете составить блок схему?

---

угу