Помогите сделать в полном и сокращённым паскале и программу

Question

Помогите сделать в полном и сокращённым паскале и программу

---

Comments

Я не собираюсь тут сидеть и гадать, что означают эти школопедские словечки. Паскаль - это язык. Есть диалекты. Но "полный" и "сокращенный" он не бывает. Изъясняйтесь нормально, если хотите, чтобы Вас понимали.

---

Эникей, помоги с HTML

---

или JAVASCRIPT

---

Эникей, вот мне задали писать программу If полное и If сокращённый. Вот так наверно понятно

---

Если речь об if - это не совсем точное название, но вполне понятное и отражающее суть.

---

Так что поможете?

---

Т.е. в Вашем случае или будет один if - then - else, или два if.

---

Мне тоже

---

Вам полная программа нужна или только фрагмент кода?

---

полная программа

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var x := ReadReal('x =');

 var fx: real;

 // полный if

 if x < -1 then fx := 2 * x + 4

 else fx := x * x;

 // сокращенный if

 if x < -1 then fx := 2 * x + 4;

 if x >= -1 then fx := x * x;

 // совсем короткий вариант

 fx := x < -1 ? 2 * x + 4 : x * x;

 // результат

 Writeln(fx)

end.

Comments

Выбираете только тот кусок кода после комментария, который нужен