Дроби. Делфи

[AnL]

Доброго времени суток!
Подскажите пожалуйста как вычислить среднее геометрическое значение всех дробей. Вычисление геом.прогрессии представить в виде процедуры или функции. Массив состоит из 5 дробей.

Спасибо!

[Stilet]

Что еще за дроби?

[Mad_Cat]

как вычислить среднее геометрическое значение всех дробей. Вычисление геом.прогрессии представить в виде процедуры или функции. Массив состоит из 5 дробей.

Сначала считайте их произведение а потом корень 5-ой степени из него!

[AnL]

type natur=1..high(longint);
frac=record
p:longint;
q:natur;
end;

массив из дробей
a:array [1..6] of frac;

произведение вычисляет отдельная процедура, а вот проблема как раз с вычислением корня..пишет разные типы extended и integer

вычисление корня в процедуре, ругается на разные типы
exp(1/5*ln((a.p*b.p)/(a.q*b.q)))

[Mad_Cat]

произведение вычисляет отдельная процедура, а вот проблема как раз с вычислением корня..пишет разные типы extended и integer.

А код показать не желаете 7

[AnL]

Произведение вычисляет, а с прогрессией не уверен и не доделано

код программы

[Mad_Cat]

ну кто ж во frac толкает extended) обьявите

procedure srgeom(a,b:frac; var c:extended);

и буит вам счастье

[AnL]

Тогда получается, что результат не дробь?? Результат должен быть в виде сокращенной дроби.

[Mad_Cat]

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

Тогда получается, что результат не дробь?? Результат должен быть в виде сокращенной дроби.

тогда считайте отдельно корень из числителя и отдельно из знаменателя
округляйте до целого -->сокращайте и получите приблизительно свою дробь)