Составить программу на языке Pascal

[SonicTheHedgenog]

Помогите составить программу.
Вот само задание: дано число x. Напечатать в порядке возрастания числа ch(x), 1 + |x| и 2*x*(1+ x);
Заранее спасибо

[WinCoder]

>> Помогите составить программу.
Задавайте вопросы, ответим.

[SonicTheHedgenog]

Как в pascal'е напечатать в порядке возрастания числа ch(x), 1 + |x| и 2*x*(1+ x)?=)

[min@y™]

Как в pascal'е напечатать в порядке возрастания числа ch(x), 1 + |x| и 2*x*(1+ x)?

1. вычислить три числа.
2. отсортировать их по возрастанию.
3. отправить их в цикле на принтер.

[SonicTheHedgenog]

Сообщение от min@y™

1. вычислить три числа.
2. отсортировать их по возрастанию.
3. отправить их в цикле на принтер.

Ok, как вычислить в паскале ch(x) ?

[min@y™]

Ok, как вычислить в паскале ch(x) ?

y:= ch(x);

[min@y™]

если под ch подразумевается гиперкосинус, то

function ch(const x: double): double;
begin
  result:= (exp(​x) +​ exp(​‑x)) / ​2;
end;

[SonicTheHedgenog]

Сообщение от min@y™

если под ch подразумевается гиперкосинус, то

function ch(const x: double): double;
begin
  result:= (exp(​x) +​ exp(​‑x)) / ​2;
end;

Как записать 1+ |x|?

[min@y™]

Как записать 1+ |x|?

z:= 1 + abs(x);

[SonicTheHedgenog]

Сообщение от min@y™

z:= 1 + abs(x);

Что-то наподобие этого должно получиться :

Program demo;
Var
y,z : integer;
function ch(const x: double): double;
begin
  result:= (exp(x) + exp( x)) / 2;
end;
begin
Writeln ('Vvedite x');
Readln(x);
y:=ch(x);
z:= 1 + abs(x);
a:= 2*x*(1+x);
writeln('y=',y,'z=',z,'a =’,a);
End.

или бред написал?