Напишите программу для определения количества участков, площадь котрых больше среднего арифметического площадей - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д