Задача.В Delphi

[Chup1k]

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

Описать функцию Max2(A,B) вещественного типа, находящую минимальное из двух вещественных чисел А и В. Используя эту функцию описать функцию Max4(A,B,C,D) вещественного типа, находящую максимальное из четырех вещественных чисел А,В,С и D. C помощью этой функции найти максимальные из наборов (A,B,C,D),(A,B,C,E),(A,C,D,E), если даны числа A,B,C,D,E.

[Stilet]

Function Max2(a,b:double):Double;begin if a>b then result:=a else result:=b;end;

Function Max4(a,b,c,d:double):Double;begin if max2(a,b)<max2(c,d) then result:=max2(c,d) else result:=max2(a,b);end;

Примерно так в общем.

[Chup1k]

А можешь все написать просто я в информатике не бум бум!!! Я тебя серовно не понял

[Stilet]

А может всетки почитаешь методичку? Или книгу по классическому Паскалю (этого хватит). Хотя бы как программу простейшую построить.
Вот: http://www.debryansk.ru/~lpsch/uchit...al/pas_lek.htm
Прям кстати про твой Max2, да еще с примером.

[Chup1k]

Спасибо большое!!! Щас почитаю

[Chup1k]

Дак это программирование в Паскале

[Chup1k]

Помогите пожалуйсто!!!! Мне некогда разбираться!!! Завтро надо сдавать!!!! Либо крайний срок после завтро...

[Mad_Cat]

var a,b,c,d,e:real;
Function Max2(a,b:real):real;begin if a>b then result:=a else result:=b;end;
Function Max4(a,b,c,d:real):real;begin Result:=max2(max2(a,b),max2(c,d));end;
begin read(a,b,c,d,e);writeln(max4(A,B,C,D));writeln(max4(A,B,C,E));writeln(max4(A,C,D,E));readln;end.