Написать программу на VB согластно заданию.
Даны итоги выборов в Думу в городе: по K округам известно число голосовавших за представителей M партий, а также число не участвовавших в голосовании по каждому округу. Выборы в округе считаются состоявшимися, если в голосовании приняло участие не менее P % избирателей. Определить в каких округах выборы состоялись.
Ответы
Ответ дал:
0
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
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
Ответ дал:
0
Alex, ты можешь эту программу на QBasic написать?? или как перевести на QB это программу?(если возможно)
Ответ дал:
0
Запросто. Создай вопрос.
Ответ дал:
0
или вот эту задачу:Получены результаты выборов в городскую Думу: по каждому из К округов известно число голосовавших за представителей каждой из М партий, а также известно число не участвовавших в голосовании. Выборы в округе считается состоявшимся, если в голосовании приянло участие не менее Р процентов избирателей. Определить, в каких округах был высший процент голосовавших избирателей и номера партий, получивших наибольшее число голосов в округах, где выборы считается состоявшимися. Исходная
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад