Народ Help!!! Очень надо помочь!!!!

[Vovan777]

Народ Help!!! Очень надо помочь!!!!
Написань на Pascale 2 проги!!
кому не сложно кто в этом хорошо понимает помогите!!!


1. Описать функцию, которая возвращает количество разных цифр входящих в запись числа типа Longint.
2. Использовать подпрограммы (ввода, вывода, обрабатывающей части). Даны 3 матрицы целых чисел: (4*3), (4*4), (3*3). Распечатать ту из них, в которой находится максимальное среднее геометрическое положительных элементов 3-го столбца матриц. Считать, что такая матрица одна.

[Хыиуду]

Первое
val(x,str,code);
count=0;
for i:=0 to 9 do
if pos(chr(ord('0')+i),str)<>0 then inc(count);
result:=count;
Х - заданное число. str - строка, остальные целые

[Oleg_Rus]

а как найти максимальное среднее геометрическое положительных элементов?..


_____________________________________________
если долго ломать компьютер, он может сломаться.

[somewhere]

а как найти максимальное среднее геометрическое положительных элементов?..

среднее геометрическое N елементов есть корень N-ой степени из их произведения

[Oleg_Rus]

а если использовать экспоненту?

например, с точки зрения алгебры, 2 в 8 степени пишем так:
2^8=Exp(8*ln(2))

или что-то в этом роде...

а если вместо 2 просто записать произведение необходимых элементов рассматриваемой матрицы?
_________________________________
Сидит программист за рулем автомобиля.
Скорость 130 км/ч.
Вдруг, со всего ходу, врезается в столб.
Программист улетает метров на 10 из лобового стекла, а на панели высветилась надпись: "Game Over"...

[Хыиуду]

То есть for i:=1 to length(a) do s=s*a;
result:=exp(1/length(a)*ln(s))
а - массив этих переменных, s - extended;

[Oleg_Rus]

--------------------------------------------------------------------------------

То есть for i:=1 to length(a) do s=s*a;
result:=exp(1/length(a)*ln(s))
а - массив этих переменных, s - extended;

-------------------------------------------------------------------------------
во-во!!