Pascal. Работа с одномерными массивами

[scorpius]

Pascal. Работа с одномерными массивами




пожалуйста,помогите... не понимаю,как делать..(((

 

[Vladimir_S]

пожалуйста,помогите... не понимаю,как делать..

И не стыдно? Задачки-то школьные! Ладно, ждите, будет время - нарисую. Хотя... знали бы Вы, до чего противно иметь дело с лоботрясами, стоящими на позиции "не умею и не знаю и учиться не желаю!".

 

[scorpius]

Стыдно..очень
(

 

[Vladimir_S]

Var
 a,b:Array[1..30] of Integer;
 P,gm:Real;
 i:byte;
Begin
 Randomize;
 P:=1.0;
 writeln('Initial array:');
 for i:=1 to 30 do
  begin
   a[i]:=Random(90)+10;
   write(a[i]:4);
   P:=P*a[i];
  end;
 writeln;
 gm:=Exp(Ln(P)/30);
 writeln('Geometric mean is ',gm:0:3);
 writeln('New array:');
 for i:=1 to 30 do
  begin
   b[i]:=a[i]-Round(gm);
   write(b[i]:4);
  end;
 readln
End.

 

[scorpius]

Спасибо, очень помогли!!!!!!:tehnari_ru_088:

 

[scorpius]

вот только не могу понять,что такое Р,gm. и почему P:=1.0; P:=P*a; и вот эти строки:
gm:=Exp(Ln(P)/30);
writeln('Geometric mean is ',gm:0:3);
writeln('New array:')

совсем запутался..

 

[scorpius]

и почему a:=Random(90)+10, а не a:=Random(100)?..

 

[Vladimir_S]

Ну что же, раз Вы пытаетесь разобраться, а не, как некоторые, просто тупо переписать и не глядя сдать - помогу с превеликим удовольствием.

совсем запутался..

Сейчас распутаю, потерпите.
Для начала - проясним суть задания: прежде всего, нужно найти среднее геометрическое 30 чисел. По определению это значит, что нужно найти произведение этих чисел, а затем извлечь из него корень тридцатой степени. Из этого и будем исходить.

вот только не могу понять,что такое Р,gm.

Идентификаторы. P - это произведение 30-ти чисел, gm - искомое среднее геометрическое.

и почему P:=1.0; P:=P*a;

Потому что именно так ищется произведение элементов массива: присваивается исходное значение, равное 1, а затем последовательно домножается на каждый элемент.

и вот эти строки: gm:=Exp(Ln(P)/30);

А это есть извлечение корня 30-й степени. Если Вы не в курсе, то извлечение корня степени n эквивалентно возведению в степень 1/n. Возведение же числа в произвольную степень делается так: берется логарифм основания, умножается на показатель и от результата берется экспонента. Несколько подробнее об этом здесь, в самом конце.

writeln('Geometric mean is ',gm:0:3);

Выдача на экран сообщения (на англ. языке) "Среднее геометрическое есть" и дальше полученный результат. Формат 0:3 означает "показать три знака после десятичной точки, а до нее - уж как получится".

writeln('New array:')

Вывод на экран заголовка "Новый массив:"

и почему a:=Random(90)+10, а не a:=Random(100)?..

Потому что Ваш вариант допускает a=0, каковое значение при вычислении среднего геометрического является запретным. У меня поставлен диапазон от 10 до 99. Можете другой взять, лишь бы не допустить появления среди элементов массива нуля.

 

[scorpius]

очень здорово разъясняете!

 

[Vladimir_S]

очень здорово разъясняете!

Вопрос не в том, как разъясняю. Всё понятно, или еще есть вопросы? Не стесняйтесь, спрашивайте, если что.

 

[scorpius]

вот в концовочке еще одну строку не совсем понимаю :
b:=a-Round(gm)

 

[Vladimir_S]

вот в концовочке еще одну строку не совсем понимаю :
b:=a-Round(gm)

Так ведь в задании велено получить массив b путем вычитания из элементов массива a округленного до целого среднего геометрического. Вот это оно и есть.

 

[scorpius]

Ах, точно. Спасибо!!!!!!

 

[Vladimir_S]

Ах, точно. Спасибо!!!!!!

"Всегда к услугам Вашим..." ©