PDA

Просмотр полной версии : Народ Help!!! Очень надо помочь!!!!



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


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

Хыиуду
03.12.2006, 19:05
Первое
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
07.12.2006, 10:43
а как найти максимальное среднее геометрическое положительных элементов?..


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

somewhere
07.12.2006, 10:56
а как найти максимальное среднее геометрическое положительных элементов?..
среднее геометрическое N елементов есть корень N-ой степени из их произведения

Oleg_Rus
08.12.2006, 10:39
а если использовать экспоненту?

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

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

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

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

Oleg_Rus
08.12.2006, 11:12
--------------------------------------------------------------------------------

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

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