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

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

Задать свой вопрос
Ангелина Фюрст
составить блок схему по 8 номеру)
2 ответа
Увидел ответ для 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-gt;k/10)
      .Tabulate(x-gt;xlt;=-1?Power(Cos(Power(x,4)),3):xlt;0.5?u/2:x*x/(x*x*x+1))
      .Foreach(t-gt;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
Код Pascal (Turbo/Free):

Var
   x,u,dx:real;
Begin
Write('u = ');ReadLn(u);
dx:=0.2;
x:=-2.3;
Repeat
if x lt;= -1 then WriteLn('f(',x:0:1,') = ',Exp(3*Cos(x*x*x*x)))
else if x lt; 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 gt; 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 lt;= -1 then WriteLn('f(',x:0:1,') = ',Power(Cos(Power(x,4)),3))
else if x lt; 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 gt; 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
Кристина Лаврененко
сможете составить блок схему?
Виолетта
угу
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт