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

Формулировка задачи:

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

заранее спс

количество площадей должно быть рандомным(((

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
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

Оцени полезность:

7 голосов , оценка 4.286 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы