[Rogren]

Помогите решить:
Даны три действительных числа x, y, z. Составить программу, вычисляющую min(x+y, y+z, x+z)
На форуме нашел несколько подобных тем, но связать со своим заданием так и не смог.

[angvelem]

Что в итоге нужно получить?

[lmikle]

Код:

uses Math;

function Min3(x, y, z : Extended) : Extended;
begin
  Result := Min(Min(x,y),z);
end;

var
  x, y, z : Extended;
begin
  x := ...
  y := ...
  z := ...
  ShowMessage(FloatToStr(Min3(x+y, y+z, x+z)));
end;

[Rogren]

В итоге нужно получить как раз таки программу решающую и выводящую эти значения с оператором IF

[Rogren]

Сообщение от lmikle

Код:

uses Math;

function Min3(x, y, z : Extended) : Extended;
begin
  Result := Min(Min(x,y),z);
end;

var
  x, y, z : Extended;
begin
  x := ...
  y := ...
  z := ...
  ShowMessage(FloatToStr(Min3(x+y, y+z, x+z)));
end;

Не могли бы помочь написать более простыми командами?
Т.к просто сам не смогу объяснить преподавателю как работает эта программа.

[Rogren]

Код:

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
X,Y,Z:real;
function min(x,y,z:real):real;
begin
If x+y<y+z then
min:=x+y
else
min:=y+z;
End;
begin
WRITE('Vvedite X=');
Readln(X);
WRITE('Vvedite Y=');
Readln(Y);
WRITE('Vvedite Z=');
Readln(Z);
Writeln('min=',;
readln;
End.

Вот моя сырая заготовка, тут прописано не всё задание, писал чтобы разобраться как действует.Если возможно то подправьте мой код.

[angvelem]

Если уж так нужно использовать оператор if, откройте юнит Math и перепишите оттуда код.
P.S. А вашего препода нужно срочно уволить, чтобы дурью не маялся.

Код:

function min(x, y, z : Single) : Single;
begin
  if x + y < y + z then
    min := x + y
  else
    min := y + z;
end;

а этот код представляет пока собою бред, посмотрите, что вы спрашивали в самом начале и что наваяли здесь.

[Pyro]

Если возможно то подправьте мой код.

его возможно только выбросить.

Не могли бы помочь написать более простыми командами

в теме идеальная заготовка, а теперь её надо ухудшить, чтобы её смог понять даже ленивый студент?

[steam13]

всегда делал так)

Код:

var a,b,x,y,z,min:real;
begin
------- Тут считывайте как хотите ----------
min:=x+y;
a:=y+x;
b:=x+z;
if a<min  then min:=a;
if b<min then min:=b;
------------ выводим значение min-----------
end;

[Guroncheg]

Идеальный вариант для этого препода будет таков))

Код:

var x,y,z:real;
begin
readln(x,y,z);
if (x+y<y+z)and(x+y<x+z) then writeln(x+y:5:2);
if (y+z<x+y)and(y+z<x+z) then writeln(z+y:5:2);
if (x+z<x+y)and(x+z<z+y) then writeln(x+z:5:2);
readln;