Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
RVCSGO
0 / 0 / 2
Регистрация: 15.10.2015
Сообщений: 21
#1

В массиве 60 вещественных чисел вычислить среднее значение - Pascal ABC

15.10.2015, 22:21. Просмотров 223. Ответов 1
Метки нет (Все метки)

В массиве 60 вещественных чисел вычислить среднее значение.Разделить исходный массив на два, в первый с которой отобрать числа,больше среднего значения,во второй меньше
http://www.cyberforum.ru/pascalabc/thread1559493.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2015, 22:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В массиве 60 вещественных чисел вычислить среднее значение (Pascal ABC):

Вычислить среднее квадратичное значение для каждой из N последовательностей вещественных чисел
Средний уровень Вычислить среднее квадратичное значение для каждой из N...

Дан файл вещественных чисел. Подсчитать среднее значение чисел большее 3
Файл уже заполнен. Не надо его заполнять на рандоме. Помогите пожалуйста.

Вычислить среднее арифметическое тангенсов трех вещественных чисел
Казалось бы легкие задачи, а не получается... Заранее огромное спасибо.. 6....

Вычислить среднее арифметическое двух заданных вещественных чисел
Вычислить среднее арифметическое двух заданных вещественных чисел. Входные...

Вычислить среднее арифметическое тангенсов трех вещественных чисел
Вычислить среднее арифметическое тангенсов трех вещественных чисел. Входные...

1
bio4
2 / 2 / 3
Регистрация: 15.10.2015
Сообщений: 19
16.10.2015, 01:05 #2
C++
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
29
30
31
32
33
34
35
36
37
38
kod
float mas[60];//ваш массив как-то заполненый
float midl;//среднее
int midl_H=0;/*я буду записывать в нее верхние разряд на время подсчета среднего, чтобы увеличить предел размера float (:р это смайлик)*/
float midl_L=0;//переменная для среднего значения
int i;
for(i=0;i<60;i++)//меньше 60 т.к. подсчет начинается с 0 (i=0-первый элемент массива, 59-й элемент последний)
 {
   midl_L+=mas[i];
   if(midl_L>10001)
    {
      midl_H+=floor(midl_L)/10000; //floor() это целая часть от числа 
      midl_L=midl_L-midl_H*10000;
    }
 
 }
midl=midl_H*1000/6.0+midl_L/60; //6.0 это чтоб результат был вещественный
//здесь среднее значение можно вывести то есть переменную midl
//дальше создание необходимых массивов
float mas_small[];
float mas_big[];
int small=0;
for(i=0;i<60;i++)
 {
   if(mas[i]<midl)
    small++;
 }
float mas_small=new float(small);
float mas_big=new float(60-small);
int s=0;
int b=0;
for(i=0;i<60;i++)
 {
   if(mas[i]<midl)
   mas_small[s++]=mas[i];
   else
    mas_big[b++]=mas[i]; 
 }
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.10.2015, 01:05
Привет! Вот еще темы с решениями:

В массиве вещественных чисел вычислить
В одномерном массиве,состоящем из n вещественных элементов, вычислить 1....

Вывести массив из 50 вещественных чисел от 20 до 40, вычислить среднее арифметическое , посчитать количество элементов.
Добрый день.Задали задание, в паскале я только начинающий. Ничего не могу...

Найти среднее арифметическое значение простых чисел в массиве.
Помогите пожалуйста с задачами :) Задачи на одномерный массив: 1) Дан...

Вычислить округленное значение логарифма модуля суммы синусов двух заданных вещественных чисел
Вычислить округленное значение логарифма модуля суммы синусов двух заданных...


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

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

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