Предмет: Информатика,
автор: htdfhhd
СРОЧНО Составить блок схему и программу для вычисления значения функции y в зависимости от х
Приложения:

Ответы
Автор ответа:
0
var
x, y: real;
begin
Write('Введите значение аргумента: ');
Readln(x);
if x <= 1 then y := -1 / sqr(x)
else if x <= 0 then y := -x
else y := -sqr(x);
Writeln('Значение функции равно ', y)
end.
Тестовое решение:
Введите значение аргумента: -2.7
Значение функции равно -0.137174211248285
x, y: real;
begin
Write('Введите значение аргумента: ');
Readln(x);
if x <= 1 then y := -1 / sqr(x)
else if x <= 0 then y := -x
else y := -sqr(x);
Writeln('Значение функции равно ', y)
end.
Тестовое решение:
Введите значение аргумента: -2.7
Значение функции равно -0.137174211248285
Приложения:

Автор ответа:
0
Вот так вот получилось. Записать можно каждый прямоугольник под ромбом
Приложения:

Автор ответа:
0
Вот немного код выше можно подредактировать "Writeln('Значение функции равно ', y:4:2)"
Похожие вопросы
Предмет: Музыка,
автор: nata4ka04
Предмет: Қазақ тiлi,
автор: matmila4566
Предмет: Информатика,
автор: jonibek69
Предмет: Геометрия,
автор: misterhaustov