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

scorpius · 27.02.2012, 12:35

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

Vladimir_S · 27.02.2012, 12:55

Цитата:

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

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

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

scorpius · 27.02.2012, 13:10

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

(

Vladimir_S · 27.02.2012, 14:13

Код:

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 · 27.02.2012, 20:13

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

scorpius · 26.03.2012, 18:43

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

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

scorpius · 26.03.2012, 18:45

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

Vladimir_S · 26.03.2012, 20:16

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

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

writeln('New array:')

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

Цитата:

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

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

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

scorpius · 26.03.2012, 20:27

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

Vladimir_S · 26.03.2012, 20:34

Цитата:

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

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

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

27.02.2012, 12:35	#1 (permalink)
scorpius Member Регистрация: 20.02.2012 Сообщений: 27 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal. Работа с одномерными массивами пожалуйста,помогите... не понимаю,как делать..(((

27.02.2012, 13:10	#3 (permalink)
scorpius Member Регистрация: 20.02.2012 Сообщений: 27 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Стыдно..очень (

27.02.2012, 20:13	#5 (permalink)
scorpius Member Регистрация: 20.02.2012 Сообщений: 27 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо, очень помогли!!!!!!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

26.03.2012, 18:43	#6 (permalink)
scorpius Member Регистрация: 20.02.2012 Сообщений: 27 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	вот только не могу понять,что такое Р,gm. и почему P:=1.0; P:=P*a[i]; и вот эти строки: gm:=Exp(Ln(P)/30); writeln('Geometric mean is ',gm:0:3); writeln('New array:') совсем запутался..

26.03.2012, 18:45	#7 (permalink)
scorpius Member Регистрация: 20.02.2012 Сообщений: 27 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	и почему a[i]:=Random(90)+10, а не a[i]:=Random(100)?..

26.03.2012, 20:27	#9 (permalink)
scorpius Member Регистрация: 20.02.2012 Сообщений: 27 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	очень здорово разъясняете!