Написать программу на VB согластно заданию. Даны итоги выборов в Думу в городе: по K округам известно число голосовавших за представителей M

+ 0 -

Dimitrija

03 апр. 2014 г., 22:28:03 (10 лет назад)

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

+ 0 -

ксюшкаааааааааа

03 апр. 2014 г., 23:42:35 (10 лет назад)

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

+ 0 -

Snegurochka12

04 апр. 2014 г., 2:31:42 (10 лет назад)

VB6? VB.NET?

+ 0 -

Kuksinigor

04 апр. 2014 г., 4:02:19 (10 лет назад)

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

+ 0 -

Lazairenko79

04 апр. 2014 г., 5:26:30 (10 лет назад)

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

+ 0 -

Azazazamusaeva

04 апр. 2014 г., 5:58:19 (10 лет назад)

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