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

Question

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

---

Answer 1

Var
  x, y: real;

begin
  Write('Введите значение аргумента: ');
  Readln(x);
  if x <= 1 then y := -1 / sqr(x)<br>  else if x <= 0 then y := -x<br>  else y := -sqr(x);
  Writeln('Значение функции равно ', y)
end.

Тестовое решение:

Введите значение аргумента: -2.7
Значение функции равно -0.137174211248285

Comments

Забыл блок-схему))) Добавил.

Answer 2

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

Comments

Вот немного код выше можно подредактировать "Writeln('Значение функции равно ', y:4:2)"