Рассчитать значение z=max(a,2b) max(2a-b,b) определив и использовав функцию max(x,y)

@Dan13 · Регистрация: 10.02.2014

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

Рассчитать значение z=max(a,2b)+max(2a-b,b) определив и использовав функцию max(x,y) – максимальное из двух чисел.

Kodzaev · 07.04.2014, 21:38

Pascal

function max(x, y: integer): integer;
begin
  if x > y then
    max := x
  else
    max := y
end;
 
var
  a, b, z: integer;
 
begin
  Write('A = '); ReadLn(a);
  Write('B = '); ReadLn(b);
  z := max(a, 2 * b) + max(2 * a - b, b);
  WriteLn('Z = ', z);
end.

@Cyborg Drone · 07.04.2014, 23:15

Dan13, странные дают Вам задания... Видите ли, функция max(a, b) в Pascal ABC встроенная, незачем её определять...

@Dan13 0 / 0 / 0 Регистрация: 10.02.2014 Сообщений: 9
		1
	Рассчитать значение z=max(a,2b) max(2a-b,b) определив и использовав функцию max(x,y) 07.04.2014, 21:25. Показов 7717. Ответов 2 Метки нет (Все метки) Рассчитать значение z=max(a,2b)+max(2a-b,b) определив и использовав функцию max(x,y) – максимальное из двух чисел. 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	07.04.2014, 23:15	3
	Dan13, странные дают Вам задания... Видите ли, функция max(a, b) в Pascal ABC встроенная, незачем её определять... 0

Рассчитать значение z=max(a,2b) max(2a-b,b) определив и использовав функцию max(x,y)

Решение