Паскаль. вычислить значение функции заданной в виде графика. разветвляющийся алгоритм
311242aaa
3
17.01.2020 10:35
5
Другие вопросы по теме Информатика
Dimasimakov
24.05.2020 20:09
alinabugajcuk38
24.05.2020 20:08
простой221
24.05.2020 19:48
АнтонХабаров
24.05.2020 19:30
хорошист547
23.05.2020 21:03
dimabarabanov
23.05.2020 20:33
10RAM10
24.05.2020 21:03
Мелочь83
24.05.2020 21:07
7lavz
23.05.2020 20:42
Популярные вопросы
- Две прямые касаются окружности с центром О в точках А и В и пересекаются в точке...
3 - ОЧЕНЬ На координатной плоскости отметь точку E(3;5), точку D(5;7) и точку M(7;5).1....
2 - Напишите письмо другу о том что вы посетили астрономической лаборатории и рассматривали...
2 - Естествознание пятый класс ...
1 - Первая книга под названием «100 великих людей» вышла в издательстве «Вече» в 1998...
2 - Қолөнер – ежелден келе жатқан кәсіп. Ол халықтың өмірімен, тұрмысымен бірге дамып,...
1 - 13 3 ⋅4 \frac5{18} \cdot3 18 5 ⋅3 \frac7{18} \cdot32 18 7 ⋅32 \frac{11}{17}...
1 - Объясните разницу между показателями ВПП и ВНП на душу в Казахстане...
1 - 1. Распределите живые организмы на 3 группы: Продуценты консументы редуценты 1....
1 - Составить алгоритм и написать программу на языке С++ решения задачи согласно своего...
2
// PascalABC.NET
var
x, y: real;
Begin
WriteLn('Введите значение X');
ReadLn(x);
if (abs(x) > 2) then
y := 1
else if ((abs(x) <= 2) and (abs(x) > 1)) then
y := abs(x)
else
y := sqrt(1 - x*x);
WriteLn('f(x) = ', y);
End.