Даны действительные числа x и y, вычислить значение функции z

@topgear · Регистрация: 13.05.2014

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

Даны действительные числа x и y.
Вычислить функцию :
z= max(x,y),при x<0
и
z=min(x,y), при x>=0
Пожалуйста помогите

@Svager · 13.05.2014, 19:37

Pascal

uses crt;
var x,y:real;
function max(x,y:real):real;
 begin
  if x<y then
   max:=y
  else
   max:=x;
 end;
function min(x,y:real):real;
 begin
  if x<y then
   min:=x
  else
   min:=y;
 end;
begin
 clrscr;
  write('x=');
   readln(x);
  write('y=');
   readln(y);
  if x<0 then
   writeln('Ìàêñèìóì = ',max(x,y):0:2)
  else
   if x>=0 then
    writeln('Ìèíèìóì = ',min(x,y):0:2);
 readkey;
end.

@topgear 0 / 0 / 0 Регистрация: 13.05.2014 Сообщений: 2
		1
	Даны действительные числа x и y, вычислить значение функции z 13.05.2014, 19:22. Показов 2702. Ответов 1 Метки нет (Все метки) Даны действительные числа x и y. Вычислить функцию : z= max(x,y),при x<0 и z=min(x,y), при x>=0 Пожалуйста помогите 0

	13.05.2014, 19:37

Даны действительные числа x и y, вычислить значение функции z

Решение