Напишите программу , которая возвращает наименьшее из значений

@gogo2099 · Регистрация: 20.11.2016

Author24 — интернет-сервис помощи студентам

Напишите программу , которая возвращает наименьшее из значений |x-y|, |y-z|, |z-x|. С помощью функций.

@Hitoku · 14.03.2017, 23:06

Pascal

function fun(x,y,z:integer):integer;
begin
  if (ABS(x-y)<ABS(y-z)) and (ABS(x-y)<ABS(z-x)) then
    fun:=ABS(x-y) else
  if (ABS(y-z)<ABS(x-y)) and (ABS(y-z)<ABS(z-x)) then
    fun:=ABS(y-z) else
  if (ABS(z-x)<ABS(y-z)) and (ABS(z-x)<ABS(x-y)) then
    fun:=ABS(z-x);
end;
var
  x,y,z:integer;
begin
  write('x,y,z = '); readln(x,y,z);
  write(fun(x,y,z));
end.

@bormant · 15.03.2017, 08:22

Hitoku,
Возможно, спецфункция для конкретно этой задачи излишня:

Pascal

function min(a, b: Integer): Integer;
begin
  if a<b then min:=a else min:=b;
end;
...
  WriteLn(min(Abs(x-y),min(Abs(y-z),Abs(z-x))));

@gogo2099 1 / 1 / 0 Регистрация: 20.11.2016 Сообщений: 85
		1
	Напишите программу , которая возвращает наименьшее из значений 14.03.2017, 21:13. Показов 1408. Ответов 2 Метки нет (Все метки) Напишите программу , которая возвращает наименьшее из значений \|x-y\|, \|y-z\|, \|z-x\|. С помощью функций. 0

	15.03.2017, 08:22

Напишите программу , которая возвращает наименьшее из значений

Решение