Sw_92

Задача 1
В группе 10 студентов писали контрольную работу. Составьте программу, позволяющую посчитать сколько студентов полуили оценку 2, оценку 3, оценку 4, оценку 5.

Задача 2
Найти среднее геометрическое только тех элементов в массиве X(n), которые попадают в интервал [a,b]. Границы интервала и элементы массива задать произвольно.

Margarita-San

Какой бейсик у тебя? код кинуть - не кину(у меня система слетела), но так могу помочь

Sw_92

Visual Basic я вообще в этом не бум бум, а на зачёт дали эти хадачи

Margarita-San

Эмм ну ты когда устанавливал(-ла), там было Visual studio 2008?
или ты это дело не листке увековечиваешь?

Sw_92

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

Margarita-San

1)
Dim mas(40) as byte
Dim k,l as short
randomize()
for i = 1 to 30
mas(i) = math.round(2+3 *rnd())
Select case mas(i)
Case 2 : sum2+=1
Case 3 : sum3+=1
Case 4 : sum4+=1
Case 5 : sum5+=1
Next
debug.writeline(sum2 & " студентов получили 2 за кр" )
debug.writeline(sum3 & " студентов получили 3 за кр" )
debug.writeline(sum4 & " студентов получили 4 за кр" )
debug.writeline(sum5 & " студентов получили 5 за кр" )

блин как отстойно, что basic не стоит

Sw_92

спасибо огромное а со второй задачей сможешь помочь?

Margarita-San

аа сори я там случайно начала писать 2ую задачу думала не сохранится
Dim mas(40) as byte
Dim sum2,sum3,sum4,sum5,i as short
randomize()
for i = 1 to 30
mas(i) = math.round(2+3 *rnd())
Select case mas(i)
Case 2 : sum2+=1
Case 3 : sum3+=1
Case 4 : sum4+=1
Case 5 : sum5+=1
Next
debug.writeline(sum2 & " студентов получили 2 за кр" )
debug.writeline(sum3 & " студентов получили 3 за кр" )
debug.writeline(sum4 & " студентов получили 4 за кр" )
debug.writeline(sum5 & " студентов получили 5 за кр" )
вот так правильно

Sw_92

СПАСИБО
а про среднее геометрическое знаешь как сделать? если тебе не сложно

Margarita-San

Dim mas(40),mas2(40) as byte
Dim a,b,srednee as short
Dim proizv as integer
randomize()
a = 1+Math.round(99*rnd())
b = Math.round( a+(100-a)*rnd())
for i = 1 to 30
mas(i) = math.round(100 *rnd())
if mas(i) >=a and mas(i) <=b then
for j =1 to 30
if mas2(j) = 0 then mas2(j)=mas(i)
Next j
end if
Next i
i = 0 : proizv = 1
for j = 1 to 30
if mas2(j) <>0 then proizv = proizv*mas(2): i+=1
next
srednee = proizv ^ (1 / i)
debug.writeline(srendee & " - среднее геометрическое чисел, принадлежащих отрезку [" & a & "," & b & "]" )

ох уже 3 часа, я может чё проглядела (кстати все операторы с большой буквы не забывай )

Sw_92

Спасибо огромнейшее :-* как я могу тебя отблагодарить?

Margarita-San

иди посади дерево , только здесь красная строка чё-то не пашет - не запутайся в операторах условия

Sw_92

обязательно первое дерево посвящу тебе

Margarita-San

надеюсь ты парень . а и там вместо 99 - 98 (опечатка), тьфу ты всё спать пора я ж не объявила

Dim mas(40),mas2(40) as byte
Dim a,b,srednee,proizv,i,j as byte
randomize()
a = 1+Math.round(98*rnd())
b = Math.round( a+(100-a)*rnd())
for i = 1 to 30
mas(i) = math.round(100 *rnd())
if mas(i) >=a and mas(i) <=b then
for j =1 to 30
if mas2(j) = 0 then mas2(j)=mas(i)
Next j
end if
Next i
i = 0 : proizv = 1
for j = 1 to 30
if mas2(j) <>0 then proizv = proizv*mas(2): i+=1
next
srednee = proizv ^ (1 / i)
debug.writeline(srendee & " - среднее геометрическое чисел, принадлежащих отрезку [" & a & "," & b & "]" )

Sw_92

надейся а вообще я парень почти 19 лет ты в контакте есть?