Написать программку на алгоритмическом языке 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
// 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
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
Кристина Лаврененко
сможете составить блок схему?
Виолетта
угу
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов