помогите решить

Автор темы

N Nick Участник 15.11.2007

#1

помогите решить :
1) определить число, получаемое выписыванием в обратном порядке цифр заданного числа.(цикл While)
2) вычислить дробную часть среднего геометрического 3 заданных положительных чисел(линейный)
3)написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое.(цикл FOR)
Заранее благодарю!

 

M morpheus Участник 15.11.2007

#2

Сколько платите?

 

R root Участник 15.11.2007

#3

Для: Morpheus
На полном "интуазизме" h34r:

 

R root Участник 15.11.2007

#4

Код:

var
ArrayAR: array of real;
i: integer;
res: real;
begin
SetLength(ArrayAR, 5);
for i:=1 to 5 do
begin
readln(ArrayAR[i]);
res:= res+ArrayAR[i];
end;
res:= res/5;
writeln(' среднее арифметическое: ', res);
readln;


end.

это ка бы демо.... ну есть же в программах h34r:

Код:

 var
ArrayAR: array of real;
i: integer;
res: real;
begin
SetLength(ArrayAR, 3);
for i:=1 to 3 do
begin
readln(ArrayAR[i]);
res:= res+ArrayAR[i];
end;
res:= exp(1/3*ln(res));
writeln('Среднее геометрическое: ', frac(res));
readln;


end.

Первое задание очень сложно сделать там нужно использовать таблицу векторов прерываний.:blink:

 

N Nick Участник 15.11.2007

#5

спасибо за решение!

Всем привет из Казахстана

 

B Barmutik Участник 16.11.2007

#6

Программист .. это звучит гордо Мда...