Написать программу ** VB согластно заданию. Даны итоги выборов в Думу в городе: по K...

Question

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

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

Comments

Тебе, наверно, в VBA для Экселя надо? Или в чистом VB?

---

В чистом VB или в Delphi

---

Во как!!! Да разве они совместимы?))))

---

VB6? VB.NET?

---

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

---

Ты же создал вопрос. Я там уже решаю

---

спасибо, жду))

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

Comments

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

---

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

---

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