Question

Написать программу на VB согластно заданию.

Даны итоги выборов в Думу в городе: по K округам известно число голосовавших за представителей M партий, а также число не участвовавших в голосовании по каждому округу. Выборы в округе считаются состоявшимися, если в голосовании приняло участие не менее P % избирателей. Определить в каких округах выборы состоялись.

Answer 1

Sub Z()
Dim k As Integer
Dim m As Integer
Dim p As Single
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim x As Integer
k = InputBox("Количество округов")
m = InputBox("Количество партий")
p = InputBox("Порог явки изберателей (в %)")
s = "Выборы состоялись в округах: "
For i = 1 To k
    For j = 1 To m
        x = InputBox("Округ " & i & ". Голосов за партию №" & j)
        n = n + x
    Next j
    x = InputBox("Округ " & i & ". Не голосовало")
    If (n / (n + x) * 100) > p Then s = s & i & "; "
    n = 0
Next i
MsgBox (s)
End Sub

Answer 2

Alex, ты можешь эту программу на QBasic написать?? или как перевести на QB это программу?(если возможно)

Answer 3

Запросто. Создай вопрос.

Answer 4

или вот эту задачу:Получены результаты выборов в городскую Думу: по каждому из К округов известно число голосовавших за представителей каждой из М партий, а также известно число не участвовавших в голосовании. Выборы в округе считается состоявшимся, если в голосовании приянло участие не менее Р процентов избирателей. Определить, в каких округах был высший процент голосовавших избирателей и номера партий, получивших наибольшее число голосов в округах, где выборы считается состоявшимися. Исходная