С помощью пользовательской функции определить: (max(a,a+c)+max(a,b+c))/(1-max(a∙b+c,1.5) )

@banderlog555 · Регистрация: 27.03.2014

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

Даны действительные a, b, c. С помощью пользовательской функции определить:
(max(a,a+c)+max(a,b+c))/(1-max(a∙b+c,1.5) )

Помогите пожалуйста написать программу

@bvg7 · 27.04.2014, 23:17

Можно реализовать такие функции:

Pascal

function max(a, b: real): real;
begin
   result := a;
   if (b > result) then
      result := b;
end;
 
 
function myfunc(a, b, c: real): real;
var
   a1, b1, c1: real;
begin
   a1 := max(a, a+c);
   b1 := max(a, b+c);
   c1 := max(a*b+c, 1.5);
   result := (a1+b1)/(1-c1);
end;

Переменные a1, b1, c1 введены для наглядности. Можно и без них.
Если резервное слово "result" не поддерживается, то нужно его заменить на имя функции.

@banderlog555 0 / 0 / 0 Регистрация: 27.03.2014 Сообщений: 15
		1
	С помощью пользовательской функции определить: (max(a,a+c)+max(a,b+c))/(1-max(a∙b+c,1.5) ) 27.04.2014, 17:19. Показов 2300. Ответов 1 Метки нет (Все метки) Даны действительные a, b, c. С помощью пользовательской функции определить: (max(a,a+c)+max(a,b+c))/(1-max(a∙b+c,1.5) ) Помогите пожалуйста написать программу 0

Опции темы

С помощью пользовательской функции определить: (max(a,a+c)+max(a,b+c))/(1-max(a∙b+c,1.5) )

Решение