Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(ab,a+b), min(a2 –ba,b3-3*a)

@Daes · Регистрация: 26.09.2016

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

Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a)), Y2=min(Y12+Y,5.25),
где min(x,x1) подпрограмма

Добавлено через 6 минут
Решить процедурой и функцией

@JuriiMW · 25.01.2017, 09:03

Daes, а что выделить в процедуру и функцию?
В PABC.NET уже есть встроенная функция min… Смысла её переделывать нет!

Pascal

begin
  (var a, var b) := (ReadLnReal('a ='), ReadLnReal('b ='));
  var Y := min(a,b);
  var Y1 := min(min(a*b,a+b), min(a*a-b*a,b*b*b-3*a));
  var Y2 := min(Y1*Y1+Y,5.25);
  WriteLnFormat('Y = {1}{0}Y1 = {2}{0}Y2 = {3}', NewLine, Y, Y1, Y2);
end.

@Daes 0 / 0 / 0 Регистрация: 26.09.2016 Сообщений: 40
		1
	Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(ab,a+b), min(a2 –ba,b3-3a) 25.01.2017, 08:53. Показов* 2248. Ответов 1 Метки нет (Все метки) Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(ab,a+b), min(a2 –ba,b3-3a)), Y2=min(Y12+Y,5.25), где min(x,x1) подпрограмма Добавлено через 6 минут* Решить процедурой и функцией 0

Опции темы

Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a)

Решение

Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(ab,a+b), min(a2 –ba,b3-3*a)