Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
nastёna
0 / 0 / 0
Регистрация: 23.05.2010
Сообщений: 2
1

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

26.05.2010, 16:41. Просмотров 758. Ответов 6
Метки нет (Все метки)

Ребят, помогите с зачей плз
в школе паскаль был я его хоть как то понимала а сейчас в универе начался бэйсик а я в нем блондинкО

напишите программу для определения колличества участков, площадь котрых Р1<P ,и количество участков площадь которых P1>=P. Р-среднее арифмитическое площадей

Добавлено через 45 секунд
заранее спс

Добавлено через 4 минуты
количество площадей должно быть рандомным(((
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2010, 16:41
Ответы с готовыми решениями:

Дан одномерный массив. Составьте программу определения количества элементов массива, больше среднего арифметического всех элементов.
Дан одномерный массив. Составьте программу определения количества элементов массива, больше...

Составить программу определения количества элементов массива, больших среднего арифметического всех его элементов.
Составить программу определения количества элементов массива, больших среднего арифметического всех...

Напишите программу в С для вычисления среднего арифметического для 3 чисел
Имею код, но он не работает. Что делать!? Помогите! int main() { float x,y,z,p; ...

Написать программу для нахождения количества значений элементов массива меньших среднего арифметического
1. Дан двумерный числовой массив A состоящий из 35*35 элементов. Написать программу для нахождения...

Напишите программу для нахождения среднего арифметического всех натуральных нечетных двузначных чисел, кратных 3
2)Напишите программу для нахождения среднего арифметического всех натуральных нечетных двузначных...

6
аналитика
здесь больше нет...
3352 / 1664 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
26.05.2010, 19:47 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
dim s()
 
n=int(rnd*100)' кол-во участков - случ. величина
redim s(1 to n)
for i=1 to n
   s(i)=rnd^2*100'чтобы не равномерно была распределена
   summa=summa+s(i)
next i
s_avg=summa/n
for i=1 to n
   if s(i)>s_avg then n1=n1+1
   if s(i)<s_avg then n2=n2+1
next i
msgbox "больше средней - " & n1 & vbnewline & _
       "меньше средней - " & n2,,"всего " & n
2
nastёna
0 / 0 / 0
Регистрация: 23.05.2010
Сообщений: 2
28.05.2010, 19:08 3
спасибо огромное!)

блин нехочу показаться наглой, но нельзя ли усовершенствовать задачу так что бы площади брались с листа еХсель?

Добавлено через 28 минут
уря сама смогла доделать задачу!!!!
Аналитик спс еще раз
0
аналитика
здесь больше нет...
3352 / 1664 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
28.05.2010, 19:10 4
пойду обрадую себя: вобью текст задачи и получу ответ
халява к всегда сладка но совесть есть не множко в закрамах
куда дела?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
dim s(), r as range, с as range
 
set r = range("A1:A30")
n=r.count' кол-во участков
redim s(1 to n)
for each с in r
   s(i)=c.value
   summa=summa+s(i)
next c
s_avg=summa/n
for i=1 to n
   if s(i)>s_avg then n1=n1+1
   if s(i)<s_avg then n2=n2+1
next i
msgbox "больше средней - " & n1 & vbnewline & _
       "меньше средней - " & n2,,"всего " & n
твои площади в "A1:A30"
0
Svetik*
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 2
28.05.2010, 21:24 5
блиин) у меня почти такая же задача)) может вы и мне поможите) пожаалуйста!) просто это мой допуск на экзамен((( задача 5.1, буду ооочень благодарна!!)
0
Миниатюры
напишите программу для определения количества участков, площадь котрых больше среднего арифметического площадей   напишите программу для определения количества участков, площадь котрых больше среднего арифметического площадей  
аналитика
здесь больше нет...
3352 / 1664 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
28.05.2010, 22:33 6
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
dim s()
 
n=val(inputbox("Сколько участков?"))' кол-во участков
redim p(1 to n)
for i=1 to n
   p(i)=val(inputbox("Площадь участка №" & i & "?"))
   summa=summa+p(i)
   summa_kv=summa_kv+p(i)^2
next i
p_avg=summa/n
p_kv_avg=summa_kv/n
sigma=sqr(p_kv_avg-p_avg^2)
for i=1 to n
   if p(i)<p_avg-sigma then n1=n1+1
   if p_avg-sigma<=p(i) and p(i)<=p_avg+sigma then n2=n2+1
   if p(i)>p_avg+sigma then n3=n3+1
next i
msgbox "малых - " & n1 & vbnewline & _
       "средних - " & n2 & vbnewline & _
       "больших - " & n3,,"всего " & n
удачи на экзамене
1
Svetik*
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 2
29.05.2010, 00:11 7
огромное спасииибо))
0
29.05.2010, 00:11
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2010, 00:11

Напишите программу для нахождения среднего арифметического всех натуральных трехзначных чисел на отрезке [300; 900].
Напишите программу для нахождения среднего арифметического всех натуральных трехзначных чисел на...

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

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


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

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

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