Помогите составить программы ** языке Паскаль,пожалуйста 1. Дано вещественное число x....

Question

Помогите составить программы на языке Паскаль,пожалуйста

1. Дано вещественное число x. Для функции, представленной графиком, вычислить y = f (x).
2. Найти максимальное (минимальное значение).
3. Выяснить, принадлежит ли точка Р(х, у) заштрихованной области.

Каждая картинка соответствует номеру задачи

---

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var x:=ReadReal('x=');
  var y:real;
  if x<1 then y:=0.5**x<br>  else
    if x<4 then y:=4<br>    else y:=5;
  Writeln(y)
end.

№2

begin
  var(x,y,z):=ReadReal3('Введите x,y,z:');
  Writeln('min=',Min(Sin(x+y),Min(5-6*y,Tan(Abs(z)))))
end.

№3

begin
  var(x,y):=ReadReal2('Введите x,y:');
  if (y<2.5*x+2) and (y<-2.5*x+2) and (y>-3) then Writeln('Принадлежит')
  else Writeln('Не принадлежит')
end.

Comments

А ты не знаешь как это то же только в Lazarus сделать?

---

Буду благодарен

---

По Лазарусу страдают на Украине, а у нас в России им не пользуются практически, так что у меня его нет. И еще - этот код несовместим с Free Pascal, который используется в Лазарус. Так что надо сразу в вопросе указывать необходимый диалект языка/систему программирования.

---

А что значит 0,5**x?

---

0.5 в степени х

---

В PascalABC.NET так можно писать