• СРОЧНО!!! Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)).Решить в Делфи

Ответы 1

  • Delphi 7 очень похож на Pascal. Поэтому я приведу код на PascalABC, который можно с легкостью запустить в среде разработки Делфи 7.Суть очень проста, создадим функции max и min, а потом выполним требуемые действия. var x,y,z,d:real; function min(a:real; b:real) : real; //нахождение минимума из 2-х чисел begin if(a > b) then min:=b else min:=a; end; function max(a:real; b:real; c:real) : real; //нахождение максимума из 2-х чисел begin if((a >= b) and (a >= c)) then max:=a; if((b >= a) and (b >= c)) then max:=b; if((c >= a) and (c >= b)) then max:=c; end; begin read(x,y,z,d); write(max (min (x, y), min (x, z), min (z, d))) ; //вывод ответа end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years