Записать формулу в Паскале.

[Сергей Немцов]

Нужно записать данную формулу в паскале,где x[i] - элементы массива.

Правильно ли записано?Уж больно большие числа получаются.

Var i,n:integer;
q,u:real;
x:array[1..100] of real;
Begin
write('n=');
readln(n);
for i:=1 to n do
read(x[i]);
q:=1;
 for i:=1 to n do
  begin
  q:=q*(exp(i*ln(abs(x[i]))));
  u:=q/(sqrt(abs(x[i]/i)));
  end;
writeln('u=',u);
End.

[type_Oleg]

А чему у вас равно q в самом начале?

[Сергей Немцов]

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

А чему у вас равно q в самом начале?

единице,не дописал.

[Аватар]

q:=1;
for i:=1 to n do q:=q*exp(i*ln(abs(x[i])))/sqrt(abs(x[i]/i));
writeln('q=',q);

Что делать будешь, если x[i]=0?

[Сергей Немцов]

Сообщение от Аватар

q:=1;
for i:=1 to n do q:=q*exp(i*ln(abs(x[i])))/sqrt(abs(x[i]/i));
writeln('q=',q);

Что делать будешь, если x[i]=0?

Данный случай игнорируется,так как изначально элементы должны задаваться по формуле(ни один элемент не будет равен 0),я просто проверяю формулу с ручным вводом,дабы проверить правильность написания самой формулы.
Так как она выдает очень большие числа (например для x[1]=2 x[2]=5 x[3]=8 ; u = 15676,734)

[type_Oleg]

Сообщение от Аватар

..Что делать будешь, если x[i]=0?

Да, мне тоже интересно.
В условиях задачи как сказано - любые числа или любые, кроме 0.
Во 2-м случае, просто - не вводишь 0, и все.
А в первом - чисто математически, в данном случае неопределенность 0/0 равна 0 ( точнее 0 в степени i-1/2)
Так что if еще надо.

[Аватар]

u = 15676,734

А где там у меня u?
На глаз ~7000

[Сергей Немцов]

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

Да, мне тоже интересно.
В условиях задачи как сказано - любые числа или любые, кроме 0.
Во 2-м случае, просто - не вводишь 0, и все.
А в первом - чисто математически, в данном случае неопределенность 0/0 равна 0 ( точнее 0 в степени i-1/2)
Так что if еще надо.

а при x[1]=2 x[2]=5 x[3]=8 ; u = 15676,734
это не многовато?

Сообщение от Аватар

А где там у меня u?
На глаз ~7000

Не у вас,а у меня так считает,не могу найти ошибку..