Здравствуйте, господа !Нужна помощь с Pascal ! Нужно перевести систему уравнения в код!...

Question

Здравствуйте, господа !Нужна помощь с Pascal ! Нужно перевести систему уравнения в код!
На картинке 2 формулы, те что в правой части картинки!Помогите пожалуйста

---

Comments

Непонятно, какие значения y будет иметь на интервалах, которые не описаны.

---

В этом и фишка, преподаватель ничего не сказал, о ничего, просто дала задание и не более...

---

Это не фишка, а ошибка либо в определении функции, либо в задании, где нужно в таком случае указать о необходимости вывода сообщения, когда функция не определена.

---

И, конечно же, это никакая не "система уравнений", а определение кусочной функции. Математику нужно учить лучше...

Answer 1

1.
var x,y:real;
begin
write('x = '); readln(x);
if x>=5 
  then begin y:=x*x+5; writeln('y = ',y); end
  else if x<2 then begin y:=0; writeln('y = ',y); end<br>              else writeln('Функция не определена');
end.

Пример:
x = 6
y = 41

2.
var x,y:real;
begin
write('x = '); readln(x);
if x<2 <br>  then begin y:=3/(x*x*x)-2/(x*x); writeln('y = ',y); end
  else if x<=5 then begin y:=3*x*x-2*x*x; writeln('y = ',y); end<br>               else writeln('Функция не определена');
end.

Пример:
x = 3
y = 9