Как решить данную задачу в Turbo Pascal?

Question

[9milesz]

Даны Z,X и Y. Вычислить R=max(x+y,z,y+z), если x>y. В противном случае R=x+y+z.

Вот, что уже имею:

var
z,x,y,r:real;
function max(x, y, z:real):real;
begin
writeln('Vvedite X');
readln(x);
writeln('Vvedite Y');
readln(y);
writeln('Vvedite Z');
readln(z);
if (x>y)
then
R:=max(max(x+y,z),y+z);
else
R:=x+y+z;
writeln('R=',R);
end.

Собственно это не работает, не знаю как правильно организовать. Возможно, что я пошел вообще не тем путем. Задачу попросил сделать мой друг. Понятно, что надо бы ему самому разбираться, но что поделать, друг есть друг. Сам я паскаль не видел с 9 класса и вполне возможно, что "очевидные" для Вас вещи окажутся для меня вовсе не такими. Поэтому прошу, по мере возможности, подсказать максимально "понятнее", если так можно выразится.

Answer 1

[9milesz]

Вот полный ответ. Вроде все правильно)

var
z,x,y,r:real;
function max(x,y : real) : real;
begin
   if (x > y) then max := x
   else max := y;
end;
begin
writeln('Vvedite X');
readln(x);
writeln('Vvedite Y');
readln(y);
writeln('Vvedite Z');
readln(z);
if (x>y)
then
R:=max(max(x+y,z),y+z) else R:=x+y+z;
writeln('R=',R);
end.

Answer 2

[kstyle]

напишите еще функцию max() сначала

Comments

[9milesz]

Там, где я перечисляю переменные?

[kstyle]

9milesz: пардон, не так понял. уберите строку function max ....

[9milesz]

kstyle: Если убрать function max, то pascal будет жаловаться на неизвестный идентификатор.

[ldv]

9milesz: uses math; в начале программы допишите, а function max(x, y, z:real):real; удалите.

[9milesz]

Дело в том, что этого файла нет в turbo pascal. Я конечно найду его и постараюсь подключить, но вот примут ли такую работу?

[ldv]

Михаил Абраменко: тогда допишите функцию

function max(x,y : real) : real;
begin
   if (x > y) then result := x
   else result := y;
end;

, или перепишите ее для 3-х аргументов

[9milesz]

ldvldv: А как же z? Прошу прощение, если это глупый вопрос, но я предупреждал)

[ldv]

Михаил Абраменко: В вашем коде используется функция max для двух аргументов

[9milesz]

ldvldv: "R=max(x+y,z,y+z)" же, Z есть

[ldv]

Михаил Абраменко: замените строчку function max(x, y, z:real):real; на

function max(x,y : real) : real;
begin
   if (x > y) then result := x
   else result := y;
end;

[9milesz]

ldvldv: Сделал, как вы написали, ругается на result, неизвестный идентификатор.

[ldv]

Михаил Абраменко: замените result на max тогда

[9milesz]

ldvldv: Спасибо, теперь все в порядке вроде бы, но ругается на else "Error 113 : Error in statement" - Данный символ не может быть первым символом в операторе.

[ldv]

Михаил Абраменко: R:=max(max(x+y,z),y+z); ";" (точка с запятой) лишняя

[9milesz]

Михаил Абраменко: Разобрался! Спасибо!)

[9milesz]

ldvldv: А как вас поблагодарить? Вы писали в комментариях и тут нельзя нажать "нравится"