Написать функцию min для вычисления значения выражения

@UnFam0uS · Регистрация: 26.09.2009

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

Даны значения c, d, m, k. Напишите функцию min для вычисления значения следующего выражения: (min(c+d,m,k)+min(k,c,m))/(3+min(k,d-m,c+m)).

@mamedovvms · 15.10.2009, 12:52

Pascal

function min(a,b,c:real):real;
var minim:real;
begin
minim:=a;
if b<minim then minim:=b;
if minim>c then minim:=c;
min:=minim;
end;

@Страдалецъ · 15.10.2009, 13:37

Вообще-то из условия задачи не следует, что данная функция должна вычислять и для чего нужны именно 3 параметра. С таким-же успехом это может быть нахождение среднего. То что функция носит такое же название, как и известная функция min мало о чем говорит.
Вполне возможно, что она должна работать так:

Pascal

function Min(p1,p2,p3: Integer): Integer;
begin
 Min := p1+p2;
 if p1+p2 > p3 then Min := p3;
end;

Или совсем по другому. В общем черный ящик.

@yanyk1n · 15.10.2009, 13:42

достаточно использовать функцию min для двух чисел. Тогда:

Pascal

program fe;
uses crt;
var c,d,m,k:integer;
t:real;
 
function min(a,b:integer):integer;
begin
 if a>b then min:=b else min:=a;
end;
 
function min3(a,b,c:integer):integer;
begin
 min3:=min(a,min(b,c));
end;
 
begin
 clrscr;
 readln(c,d,m,k);
 t:=(min3(c+d,m,k)+min3(k,c,m))/(3+min3(k,d-m,c+m));
 writeln(t:0:4);
 readln;
end.

@mamedovvms · 15.10.2009, 13:45

Сообщение от k1ry4

достаточно использовать функцию min для двух чисел

ну ты еще бы еще для каждого уловия if написал бы функцию, сам то понял что сделал, сначала написал для двух а потом для трех, хотя можно было просто для трех написать, а для двух совсем не писать)))))))))))))))))))))))))))))))))))))))

@unick12345 · 15.10.2009, 13:48

или растянуть программу чтобы для каждой операции отдельную функцию

@yanyk1n · 15.10.2009, 13:52

Сообщение от k1ry4

function min3(a,b,c:integer):integer;
begin
min3:=min(a,min(b,c));
end;

теперь есть замечания?

@unick12345 · 15.10.2009, 14:52

с самого начала видели, вот только всеравно много функций для 4 значений.

@UnFam0uS 4 / 4 / 0 Регистрация: 26.09.2009 Сообщений: 45
		1
	Написать функцию min для вычисления значения выражения 15.10.2009, 12:47. Показов 1603. Ответов 7 Метки нет (Все метки) Даны значения c, d, m, k. Напишите функцию min для вычисления значения следующего выражения: (min(c+d,m,k)+min(k,c,m))/(3+min(k,d-m,c+m)). 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	15.10.2009, 13:45	5
	Сообщение от k1ry4 достаточно использовать функцию min для двух чисел ну ты еще бы еще для каждого уловия if написал бы функцию, сам то понял что сделал, сначала написал для двух а потом для трех, хотя можно было просто для трех написать, а для двух совсем не писать))))))))))))))))))))))))))))))))))))))) 0

@unick12345 1852 / 1174 / 190 Регистрация: 27.03.2009 Сообщений: 4,514
	15.10.2009, 13:48	6
	или растянуть программу чтобы для каждой операции отдельную функцию 0

@yanyk1n 4341 / 1473 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	15.10.2009, 13:52	7
	Сообщение от k1ry4 function min3(a,b,c:integer):integer; begin min3:=min(a,min(b,c)); end; теперь есть замечания? 0

@unick12345 1852 / 1174 / 190 Регистрация: 27.03.2009 Сообщений: 4,514
	15.10.2009, 14:52	8
	с самого начала видели, вот только всеравно много функций для 4 значений. 0

Опции темы