0 / 0 / 0
Регистрация: 06.04.2011
Сообщений: 27
1

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел последовательности

08.04.2011, 16:02. Показов 4833. Ответов 5
Метки нет (Все метки)

дана последовательность стоящая из n вещественных чисел.вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2011, 16:02
Ответы с готовыми решениями:

Циклы: определить среднее арифметическое отрицательных чисел последовательности
Пожалуйста, помогите решить задачу в Delphi! В переменную последовательно вводятся числа....

Дан массив вещественных чисел. Найти среднее арифметическое положительных и отрицательных чисел
Дан массив вещественных чисел А(А1,А2,…,Аn). Найти среднее арифметическое положительных и...

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел
Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных...

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

5
5682 / 2273 / 466
Регистрация: 20.11.2009
Сообщений: 7,647
Записей в блоге: 1
08.04.2011, 21:23 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
var
  A,B: Array[1..100] of Real;
  i: Integer;
  x,y: Real;
begin
  for i := 1 to Length(A) do
    begin
      A[i] := RandomRange(1, 100);
      x := x + A[i];
      x := x / Length(A);
    end;
 
    for i := 1 to Length(B) do
      begin
        B[i] := RandomRange(-100, -1);
        y := y + B[i];
        y := y / Length(B);
      end;
 
      Caption := 'Среднее позитивных = '+FloatToStrF(x, ffFixed, 0, 3)+': '+
                 'Среднее негативных = '+FloatToStrF(y, ffFixed, 0, 3);
end;
так? или было что-то другое задумано?
0
0 / 0 / 0
Регистрация: 06.04.2011
Сообщений: 27
09.04.2011, 11:25  [ТС] 3
здесь надо решать без массивов...потому что тема цикл...если не трудно напишите комментарии что делали в этой программе
0
5682 / 2273 / 466
Регистрация: 20.11.2009
Сообщений: 7,647
Записей в блоге: 1
09.04.2011, 11:59 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
procedure TForm1.Button1Click(Sender: TObject);
var
  A,B: Array[1..100] of Real; // объявили 2 массива
  i: Integer;                 // объявили переменную счетчик
  x,y: Real;                  // объявили промежуточные переменные
begin
  for i := 1 to Length(A) do  // запустили цикл
    begin
      A[i] := RandomRange(1, 100); // заполним массив случайным числом в промежутке 1..100
      x := x + A[i];               // сложим все элементы массива
      x := x / Length(A);          // поделим сумму элементов массива на длину массива, то есть посчитаем среднее арифм.
    end;
 
    for i := 1 to Length(B) do         // в этой части все по аналогии
      begin                            // только оперируем с массивом В
        B[i] := RandomRange(-100, -1); // в который записываем числа случайным образом в промежутке -100..-1
        y := y + B[i];                 // и так же само как и в первом случае вырешиваем среднее
        y := y / Length(B);
      end;
 
      Caption := 'Среднее позитивных = '+FloatToStrF(x, ffFixed, 0, 3)+': '+ // здесь выведем результаты наших вычислений
                 'Среднее негативных = '+FloatToStrF(y, ffFixed, 0, 3);      // для А и для В
end;
А если не с массивом решать, где тогда хранить наши значения?
0
0 / 0 / 0
Регистрация: 06.04.2011
Сообщений: 27
09.04.2011, 12:11  [ТС] 5
for i := 1 to Length(A) do
вот в цикле почему то обнаруживается ошибка и почёркиваеться length(a)
0
5682 / 2273 / 466
Регистрация: 20.11.2009
Сообщений: 7,647
Записей в блоге: 1
09.04.2011, 13:55 6
а что у вас за среда? у меня отлично работает
да еще в разделе Uses нужно добавить Math - это для RandomRange
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2011, 13:55
Помогаю со студенческими работами здесь

Вычислить сумму и среднее арифметическое вводимой последовательности чисел
В задаче сказано: Напишите программу, вычисляющую сумму и среднее арифметическое...

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

В матрице вычислить в каждой строке количество, сумму и среднее арифметическое отрицательных чисел
Здравствуйте! Чего-то не получается вот такая задача: В двухмерном массиве вычислить в каждой...

Как вычислить среднее значение набора чисел ? (не среднее арифметическое)
Мне нужно найти ср.рост среди всех людей, код я уже написал, но не знаю как вычислить ср.значение


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru