Задача в Паскале

[spankyham]

Даны три числа x, y, z. Вычислить S = min(z, max(y, x))
Прошу помочь...
Вроде бы простая задача, но я не доганяю смысл этой формулы...

[AVer]

Я думаю это просто наибольшее/наименьшее значение из двух..

[spankyham]

хм...дык тут двойная скобка....как решать то ваще?)

[Stilet]

А смысл прост:

function max(q,w:real):real begin if q>w then max:=q else max:=w;end;
function min(q,w:real):real begin if q<w then max:=q else max:=w;end;

begin
readln(x,y,z);
writeln(min(z,max(x,y)));
readln;
end.

[spankyham]

=) спс ) агаг, проще некуда ))) а что такое q и w???

[Stilet]

Параметры функций. Назови их по другому например
max(DED,BABA:real)

[spankyham]

program rgr;
uses crt;
function max(q,w:real):real; begin if q>w then max:=q else max:=w;end;
function min(q,w:real):real; begin if q<w then max:=q else max:=w;end; - Error 88: "(" expected. - вот што пишет....

var: x,y,z:real;
begin
   clrscr;
   readln(x,y,z);
   writeln(min(z,max(x,y));
   readln;
end.

[AVer]

function min(q,w:real):real; begin if q<w then min:=q else min:=w;end;

И там еще пара ошибочек. Вот код:

function max(q,w:real):real; begin if q>w then max:=q else max:=w;end;
function min(q,w:real):real; begin if q<w then min:=q else min:=w;end;

var x,y,z:real;

begin
   readln(x,y,z);
   writeln(min(z,max(x,y)):5:2);
   readln;
end.

[spankyham]

спс)) теперь прошу объясните в чем смысл этой задачи??? а то мне её как ргр защищать.....

[AVer]

Я же говорю подправил ошибки. Скопируй мой код.

На будушее: после var двоеточие не нужно.