Пользовательские функции, которые вычисляют соответственно минимум и максимум из двух чисе

@orif · Регистрация: 08.03.2011

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

Напишите пользовательские функции, которые вычисляют соответственно минимум и максимум из двух чисел. Вычислите значение выражения:

@Ultim[a]te · 02.04.2011, 17:56

Pascal

function _Exp(x:real):real;
const e=0.00001;
var Sum,SumCh:real;
    n:integer;
begin
SumCh:=x; Sum:=1; n:=1;
  while abs(SumCh)>e do
    begin
    Sum:=Sum+SumCh;
    inc(n);
    SumCh:=SumCh*x/n
    end;
  _Exp:=Sum;
end;
 
function min(a:real; b:real):real;
begin
if (a<b) then
  min:=a
  else
  min:=b
end;
 
function max(a:real; b:real):real;
begin
if (a>b) then
  max:=a
  else
  max:=b
end;
 
var n,x,y,z:real;
 
begin
writeln('Введите x,y,z');
read(x,y,z);
n:=(min(_Exp(x)+y,y-z))/(max(_Exp(x),y));
writeln('Ответ: ',n);
end.

@orif · 02.04.2011, 18:00 **[ТС]**

спасибо.

@orif 22 / 22 / 9 Регистрация: 08.03.2011 Сообщений: 155
		1
	Пользовательские функции, которые вычисляют соответственно минимум и максимум из двух чисе 02.04.2011, 17:29. Показов 1423. Ответов 2 Метки нет (Все метки) Напишите пользовательские функции, которые вычисляют соответственно минимум и максимум из двух чисел. Вычислите значение выражения: Миниатюры 0

@orif 22 / 22 / 9 Регистрация: 08.03.2011 Сообщений: 155
	02.04.2011, 18:00 [ТС]	3
	спасибо. 0

Пользовательские функции, которые вычисляют соответственно минимум и максимум из двух чисе

Решение