СРОЧНО Составить блок схему и программу для вычисления значения функции 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
Приложения:
Ответил bataxe45
0
Вот так вот получилось. Записать можно каждый прямоугольник под ромбом
Приложения:
Ответил bataxe45
0
Вот немного код выше можно подредактировать "Writeln('Значение функции равно ', y:4:2)"
Новые вопросы