Процедуры и функции

[junkie]

Добрый День.Не могли бы помочь чайнику с задачками:
Даны действительные числа a и b. Получить u=min(a,b) , v=min(ab,a+b) , min(u+v^2, пи ).
Заранее благодарен.

[Sazary]

В чем конкретно проблема? Что не получается?
Функция min:

function min(a, b : real) : real;
begin
if a<b then min := a
else min := b;
end;

[junkie]

Проблема в том,что я чайник

[Sazary]

Проблема в том,что я чайник

С этой проблемой я вам точно не смогу помочь

А функция выше. Берите ее и считайте то, что нужно.

[junkie]

Помогите еще с одной задачкой,пожалуйста!
Даны три квадратичные матрица 10 порядка.Наути ту из них,у котороый наименьший след(сумма диагональных элементов).

[Sazary]

Даны три квадратичные матрица 10 порядка.Наути ту из них,у котороый наименьший след(сумма диагональных элементов).

Объявляете тип матрица:

type matrix = array[1..10,1..10] of integer;

И функцию для нахождения следа:

function sled(matr : matrix) : integer;
var i,s : integer;
begin
s := 0;
for i:=1 to 10 do
 s := s + matr[i,i];
sled := s;
end;