Важная информация
Показано с 1 по 6 из 6

Тема: Задача по QBasic

  1. #1 Задача по QBasic 
    Новичок
    Регистрация
    23.05.2014
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Условие:
    Информация о количестве уроков в течение недели задана в виде массива. Определить, сколько дней студенты имеют по 4 пары, сколько - по 2 пары?

    Помогите решить)
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для rekby
    Регистрация
    08.04.2014
    Сообщений
    121
    Сказал(а) спасибо
    2
    Поблагодарили 38 раз(а) в 28 сообщениях
    Записей в блоге
    1
    Тут зависит от уровня абстракции который вам нужен.

    В простейшем случае - заведите две переменных, потом пробегитесь по массиву и если в очередной ячейке массива записано 2 - увеличивайте одну переменную. 4 - другую.

    Либо заведите еще один массив - на все возможные длины пар (7-10 элементов например) и увеличивайте значения элементов этого массива, потом выводите нужные.
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    Код vb:
     
    Private Sub i()
        Dim j$(), s$, ib$, f&, result&
        s = "2 3 3 4 2"
        j = Split(s)
        Do
            ib = InputBox("Сколько дней ?", , "2")
        Loop While Not IsNumeric(ib)
        If ib > (UBound(j) + 1) Then MsgBox "вы ввели больше": Exit Sub
        For f = 0 To ib - 1
            result = result + j(f)
        Next
        MsgBox result & " пар": Exit Sub
    End Sub
    Нет подписи : (
    Ответить с цитированием  
     

  4. #4  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    0 реакции.. тогда вот еще ответ, повеселее

    Код vb:
    Private Sub i()
        Dim j$(), s$, ib$, f&, result&
        Const week_for_student = 7
        Randomize Timer 'Сброс генератора к таймеру (неизвестно расписание)
        For f = 1 To week_for_student: s = s & " " & 1 + Int(Rnd * 9): Next
        j = Split(Mid(s, 2))
        Do
            ib = InputBox("Сколько дней собираетесь (м)учиться ?", , "3")
        Loop While Not IsNumeric(ib)
        If ib > (UBound(j) + 1) Then MsgBox "вы ввели больше": Exit Sub
        For f = 0 To ib - 1: result = result + j(f): Next
        MsgBox "И того: " & result & " пар,,, учите уроки :)"
    End Sub
    Нет подписи : (
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Задача по QBasic
    от Sanet в разделе QBasic
    Ответов: 2
    Последнее сообщение: 16.01.2014, 19:18
  2. Задача на файлы
    от nastasiya54 в разделе Pascal
    Ответов: 0
    Последнее сообщение: 15.01.2014, 00:55
  3. Задача
    от ExTReM13 в разделе C/C++
    Ответов: 1
    Последнее сообщение: 16.01.2013, 22:23
  4. задача на паскале
    от vetal в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 18.04.2012, 17:10
  5. задача каши на QBasic
    от foxiroot в разделе QBasic
    Ответов: 0
    Последнее сообщение: 28.12.2011, 00:38
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •