Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
eugine0401
0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 3
1

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

04.12.2013, 16:47. Просмотров 474. Ответов 6
Метки нет (Все метки)

Дан массив P(N) из N чисел. Вычислить среднее геометрическое значение тех элементов массива, которые по абсолютной величине <1.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2013, 16:47
Ответы с готовыми решениями:

Написать функцию, вывести результаты вычислений
помогите (сделайте за меня) За отсутствием русской раскладки пользуйтесь трансляторами.

Вывести на экран монитора преобразованное множество, запись или строку, а также вывести результаты вычислений
Помогите пожалуйста:help: 1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести...

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

Результаты вычислений вывести в виде таблицы с заголовком
Задание 1!!!!:Результаты вычислений вывести в виде таблицы с заголовком. Вычисленные значения ряда...

Как занести результаты вычислений в двумерный массив?
Задача: найти значения y=e^(x^(2)-10), если -1&lt;x&lt;1 с шагом в 0,1. Результаты оформить в виде...

6
Looper
3 / 3 / 3
Регистрация: 13.01.2013
Сообщений: 36
04.12.2013, 16:49 2
Цитата Сообщение от eugine0401 Посмотреть сообщение
Дан массив P(N) из N чисел. Вычислить среднее геометрическое значение тех элементов массива, которые по абсолютной величине <1.
Где затык?
0
eugine0401
0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 3
04.12.2013, 17:52  [ТС] 3
я вообще не шарю в этом. Поэтому и выложил.
0
Immo
216 / 206 / 101
Регистрация: 02.10.2012
Сообщений: 881
04.12.2013, 19:50 4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
  p:array of integer;
  i,n,num,sum:integer;
  armean:real;
begin
write('N - ');
readln(n);
SetLength(p,n);
randomize;
sum:=0;
num:=0;
armean:=0;
 
  for i:=0 to n do
    begin
     p[i]:=random(20)-10;
     write(p[i]:3);
     if p[i]>1 then
       begin
         sum:=sum+p[i];
         inc(num);
       end;
    end;
 
armean:=sum/num;
writeln('Arithmetic mean - ', FormatFloat('0.0',armean));
readln;
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27031 / 18075 / 7147
Регистрация: 22.10.2011
Сообщений: 31,823
Записей в блоге: 6
04.12.2013, 20:21 5
Среднее геометрическое и среднее арифметическое - это немного разные вещи, правда, Immo? К тому же твой код элементарно вылетит с ошибкой контроля границ.

Delphi
1
2
3
4
5
6
7
8
9
10
11
  pp := 1;
  Count := 0;
  for i := Low(p) to High(p) do
    if abs(p[i]) < 1 then
    begin
      pp := pp * p[i];
      inc(Count);
    end;
 
  if Count > 0 then
    geom := Power(abs(pp), 1 / Count);
0
Immo
216 / 206 / 101
Регистрация: 02.10.2012
Сообщений: 881
04.12.2013, 20:24 6
да и правда не так прочитал, а с чего вдруг мой код вылетит то?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27031 / 18075 / 7147
Регистрация: 22.10.2011
Сообщений: 31,823
Записей в блоге: 6
04.12.2013, 20:26 7
С того, что при длине динамического массива = N, обращаться можно к элементам с индексами, начиная от 0 и до N-1, а не от 0 до N
0
04.12.2013, 20:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2013, 20:26

Вывести на печать исходный массив и предпоследний столбец массива
Заполнить случайными числами матрицу n*m. Вывести на печать исходный массив и предпоследний столбец...

Протабулировать функцию у = 4cos (х2-2) на промежутке [-1; 1] с шагом h = 0,02. Результаты вычислений вывести
Протабулировать функцию у = 4cos (х2-2) на промежутке с шагом h = 0,02. Результаты вычислений...

Протабулировать функцию у = 4cos (х2-2) на промежутке [-1; 1] с шагом h = 0,02. Результаты вычислений вывести
Протабулировать функцию у = 4cos(х2-2) на промежутке с шагом h = 0,02. Результаты вычислений...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru