Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c))

@looker · Регистрация: 06.02.2011

Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c)) с помощью использования процедур.

@Al50 · 30.01.2012, 23:14

looker, наверное всё-таки с использованием не процедур, а функций?

@Ev[G]eN · 30.01.2012, 23:14

опять же

Pascal

procedure Min(a, b, c: integer);
var
 min: integer;
begin
 min:=a;
  if b < min then min:=b
   else if c < min then min:=c;
 writeln(min);
end;
 
procedure Max(a, b, c: integer);
var
 max: integer;
begin
 max:=a;
  if b > max then max:=b
   else if c > max then max:=c;
 writeln(max);
end;

@looker 0 / 0 / 0 Регистрация: 06.02.2011 Сообщений: 17
		1
	Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)min(a,b))+max(min(a,b),min(b,c)) 30.01.2012, 23:00. Показов* 7908. Ответов 2 Метки нет (Все метки) Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c)) с помощью использования процедур. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Al50 60 / 40 / 30 Регистрация: 26.05.2011 Сообщений: 92
	30.01.2012, 23:14	2
	looker, наверное всё-таки с использованием не процедур, а функций? 0

Опции темы

Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c))

Решение