profile
Размещено 4 года назад по предмету Информатика от Unfit

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

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

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

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.