+ Ответить в теме
Страница 3 из 4 ПерваяПервая 1 2 3 4 ПоследняяПоследняя
Показано с 41 по 60 из 72

Тема: Q Basic

  1. #41
    Наш Чел Dron247 кто это? Аватар для Dron247
    Регистрация
    18.07.2007
    Адрес
    Братск
    Возраст
    35
    Сообщений
    298
    Поблагодарил(а)
    29
    Получено благодарностей: 37 (сообщений: 32).

    Talking

    Цитата Сообщение от Dim@Z Посмотреть сообщение
    Вот скажите тут кому-нибудь пригодилось рисование в Qbasic ?!
    НУ.... да, когда я учась в школе вместо зачетов по информатике, писал 2д игрушко, там самолетик летел и стрелял в бомбачки что летели навстречу))))

  2. #42
    Кандидат в умники dGoD кто это? Аватар для dGoD
    Регистрация
    18.01.2008
    Сообщений
    409
    Поблагодарил(а)
    8
    Получено благодарностей: 56 (сообщений: 38).

    По умолчанию

    ))))) порадовали, почитал топик, чувство как будто на китайской 8 битке в Duck Hunt, тока что порубился.

  3. #43
    Ветеран Dim@Z кто это? Аватар для Dim@Z
    Регистрация
    15.04.2006
    Адрес
    г.Братск
    Возраст
    33
    Сообщений
    1,291
    Поблагодарил(а)
    256
    Получено благодарностей: 225 (сообщений: 176).

    По умолчанию

    Цитата Сообщение от Dron247 Посмотреть сообщение
    НУ.... да, когда я учась в школе вместо зачетов по информатике, писал 2д игрушко, там самолетик летел и стрелял в бомбачки что летели навстречу))))
    Не ну помимо школы, он где-нибудь прогодился ?! (:
    Number one (:

  4. #44
    Юзер Frukt кто это? Аватар для Frukt
    Регистрация
    03.07.2007
    Возраст
    34
    Сообщений
    116
    Поблагодарил(а)
    88
    Получено благодарностей: 20 (сообщений: 15).

    Question Help

    Помогите вот с такой задачкой:

    1. Вывести матрицу А размером 6x5.
    2. Посчитать количество К1 положительных и К2 отрицательных элементов матрицы А.
    3. Образовать массив Z из максимальных и минимальных значений каждой строки матрицы А.
    4. Упорядочить элементы 2-й и 3-й строки матрицы А в порядке убывания.
    5. Вывести на печать: исходную матрицу А, К1, К2, массив Z, матрицу после сортировки.

  5. #45
    Кандидат в умники Positiff кто это? Аватар для Positiff
    Регистрация
    02.08.2007
    Возраст
    34
    Сообщений
    352
    Поблагодарил(а)
    50
    Получено благодарностей: 350 (сообщений: 83).

    По умолчанию

    1. Вывести матрицу А размером 6x5.
    Что значит вывести?
    Последний раз редактировалось Positiff; 03.04.2008 в 18:31.
    Я ураган. Неважно, что в стакане.

  6. #46
    Юзер Frukt кто это? Аватар для Frukt
    Регистрация
    03.07.2007
    Возраст
    34
    Сообщений
    116
    Поблагодарил(а)
    88
    Получено благодарностей: 20 (сообщений: 15).

    По умолчанию

    Цитата Сообщение от Positiff Посмотреть сообщение
    Что значит вывести?
    1. Ввести мартицу

  7. #47
    Кандидат в умники Positiff кто это? Аватар для Positiff
    Регистрация
    02.08.2007
    Возраст
    34
    Сообщений
    352
    Поблагодарил(а)
    50
    Получено благодарностей: 350 (сообщений: 83).

    По умолчанию

    Ага, значит все-таки ввести. Каждый элемент вручную..?
    В принципе пункты 1, 2, 4, 5 без проблем. С 3 хз, можно, но шибко корявенький там код получится)
    Я ураган. Неважно, что в стакане.

  8. #48
    Юзер Werwolf кто это? Аватар для Werwolf
    Регистрация
    24.03.2008
    Возраст
    38
    Сообщений
    164
    Поблагодарил(а)
    24
    Получено благодарностей: 22 (сообщений: 13).

    По умолчанию

    Плохая, очень плохая программа! Мозг засоряет

  9. #49
    Мастер Paralax кто это? Аватар для Paralax
    Регистрация
    16.10.2006
    Сообщений
    871
    Поблагодарил(а)
    215
    Получено благодарностей: 298 (сообщений: 178).

    По умолчанию

    Цитата Сообщение от Positiff Посмотреть сообщение
    С 3 хз, можно, но шибко корявенький там код получится)
    Ничего не корявый
    Код:
     
    Dim A(6, 5)
    Dim Z(6, 2)
    Randomize
    
    For i = 1 To 6
        For j = 1 To 5
            A(i, j) = Int((10 * Rnd) - 5)
        Next
    Next
    For i = 1 To 6
        Z(i, 1) = -1000000
        Z(i, 2) = 1000000
        
        For j = 1 To 5
            If Z(i, 1) <= A(i, j) Then
                Z(i, 1) = A(i, j)
            End If
            If Z(i, 2) >= A(i, j) Then
                Z(i, 2) = A(i, j)
            End If
        Next
    Next

  10. #50
    Кандидат в умники Positiff кто это? Аватар для Positiff
    Регистрация
    02.08.2007
    Возраст
    34
    Сообщений
    352
    Поблагодарил(а)
    50
    Получено благодарностей: 350 (сообщений: 83).

    По умолчанию

    Дополню
    Код:
    Dim A(6, 5)
    Dim Z(6, 2)
    K1 = 0
    K2 = 0
    
    Randomize
    
    For i = 1 To 6
        For j = 1 To 5
            A(i, j) = Int((10 * Rnd) - 5)
            If A(i, j) >=0 Then
               K1 = K1 + 1
               Else
               K2 = K2 + 1
            End If
        Next
    Next
    For i = 1 To 6
        Z(i, 1) = -1000000
        Z(i, 2) = 1000000
        
        For j = 1 To 5
            If Z(i, 1) <= A(i, j) Then
                Z(i, 1) = A(i, j)
            End If
            If Z(i, 2) >= A(i, j) Then
                Z(i, 2) = A(i, j)
            End If
        Next
    Next
    Print "Массив А"
    For i = 1 To 6
        For j = 1 To 5
            If j = 5 Then
                Print A(i, j)
            Else
                Print A(i, j);
            End if
        Next
    Next
    Print "Количество положительных элементов: ", K1
    Print "Количество отрицательных элементов: ", K2
    Print "Массив Z"
    For i = 1 To 6
        For j = 1 To 2
            If j = 2 Then
                Print Z(i, j)
            Else
                Print Z(i, j);
            End if
        Next
    Next
    Ну и сортированный массив далее.. Я хз, запутался двумерный сортировать, не приходилось)
    Я ураган. Неважно, что в стакане.

  11. #51
    Новичок Катюха** кто это? Аватар для Катюха**
    Регистрация
    12.04.2007
    Возраст
    31
    Сообщений
    3
    Поблагодарил(а)
    16
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию Помогите решить задачки.....хотя бы одну. Пожалуйста...

    1)Ввести с клавиатуры текст. Распечатать самое длинное слово(пробелов между словами может быть несколько).

    2)В вводимим с клавиатуры произвольном предложении на русском языке заменить все множественные пробелы на одинарные.

    3)В вводимом с клавиатуры произвольном предложении поменять 2 любых слова местами.
    Последний раз редактировалось Катюха**; 04.04.2008 в 18:55.

  12. #52
    Мастер Paralax кто это? Аватар для Paralax
    Регистрация
    16.10.2006
    Сообщений
    871
    Поблагодарил(а)
    215
    Получено благодарностей: 298 (сообщений: 178).

    По умолчанию

    Цитата Сообщение от Positiff Посмотреть сообщение
    Ну и сортированный массив далее.. Я хз, запутался двумерный сортировать, не приходилось)
    "Пузырьковый" метод

    Код:
     
    FOR Col=2 TO 3
    FOR i = 1 TO 5
            Limit = 5
            DO
                    Switch = FALSE
                    FOR Row = 1 TO (Limit - 1)
                        IF A(Col,Row) > A(Col,Row + 1) THEN
                            SWAP A(Col,Row), A(Col,Row + 1)
                            Switch = Row
                        END IF
                    NEXT
                    Limit = Switch
            LOOP WHILE Swith
    NEXT i
    NEXT Col

  13. #53
    Кандидат в умники Positiff кто это? Аватар для Positiff
    Регистрация
    02.08.2007
    Возраст
    34
    Сообщений
    352
    Поблагодарил(а)
    50
    Получено благодарностей: 350 (сообщений: 83).

    По умолчанию

    Ну и в итоге)
    Код:
    Cls
    Dim A(6, 5)
    Dim Z(6, 2)
    K1 = 0
    K2 = 0
    
    Randomize
    
    For i = 1 To 6
        For j = 1 To 5
            A(i, j) = Int((10 * Rnd) - 5)
            If A(i, j) >=0 Then
               K1 = K1 + 1
               Else
               K2 = K2 + 1
            End If
        Next
    Next
    For i = 1 To 6
        Z(i, 1) = -1000000
        Z(i, 2) = 1000000
        
        For j = 1 To 5
            If Z(i, 1) <= A(i, j) Then
                Z(i, 1) = A(i, j)
            End If
            If Z(i, 2) >= A(i, j) Then
                Z(i, 2) = A(i, j)
            End If
        Next
    Next
    Print "Массив А"
    For i = 1 To 6
        For j = 1 To 5
            If j = 5 Then
                Print A(i, j)
            Else
                Print A(i, j);
            End if
        Next
    Next
    Print "Количество положительных элементов: ", K1
    Print "Количество отрицательных элементов: ", K2
    Print "Массив Z"
    For i = 1 To 6
        For j = 1 To 2
            If j = 2 Then
                Print Z(i, j)
            Else
                Print Z(i, j);
            End if
        Next
    Next
    FOR Col=2 TO 3
    FOR i = 1 TO 5
            Limit = 5
            DO
                    Switch = FALSE
                    FOR Row = 1 TO (Limit - 1)
                        IF A(Col,Row) > A(Col,Row + 1) THEN
                            SWAP A(Col,Row), A(Col,Row + 1)
                            Switch = Row
                        END IF
                    NEXT
                    Limit = Switch
            LOOP WHILE Swith
    NEXT i
    
    NEXT Col
    
    Print "Отсортированный массив: "
    For i = 1 To 6
        For j = 1 To 5
            If j = 5 Then
                Print A(i, j)
            Else
                Print A(i, j);
            End if
        Next
    Next

    Для массива из произвольных чисел.


    Добавлено через 2 минуты
    2)В вводимим с клавиатуры произвольном предложении на русском языке заменить все множественные пробелы на одинарные.
    В QBasic? На русском? О_о
    Последний раз редактировалось Positiff; 04.04.2008 в 21:46. Причина: Добавлено сообщение
    Я ураган. Неважно, что в стакане.

  14. #54
    Новичок Катюха** кто это? Аватар для Катюха**
    Регистрация
    12.04.2007
    Возраст
    31
    Сообщений
    3
    Поблагодарил(а)
    16
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    Да. там просто нада предложение вводить не англ. буквами а русскими (ctrl-нажимаешь и всё).
    могу дать задачу с решением на подобе

  15. #55
    Мастер Paralax кто это? Аватар для Paralax
    Регистрация
    16.10.2006
    Сообщений
    871
    Поблагодарил(а)
    215
    Получено благодарностей: 298 (сообщений: 178).

    По умолчанию

    Катюха**

    Пункт 1

    Код:
     
    CLS
    DIM w$(100)
    INPUT s$
    First = 1
    Words = 0
    FOR i = 1 TO LEN(s$)
       IF ASC(MID$(s$, i, 1)) = 32 THEN
          Words = Words + 1
          w$(Words) = MID$(s$, First, i - First)
          IF i + 1 <= LEN(s$) THEN
            First = i + 1
          END IF
        END IF
    NEXT
    FindWord = 0
    MaxLen = 0
    FOR i = 1 TO Words
      IF LEN(w$(i)) >= MaxLen THEN
         MaxLen = LEN(w$(i))
         FindWord = i
      END IF
    NEXT
    PRINT s$
    PRINT w$(FindWord)

  16. 1 пользователь сказал cпасибо Paralax за это полезное сообщение:

    Катюха** (04.04.2008)

  17. #56
    Наш Чел Dron247 кто это? Аватар для Dron247
    Регистрация
    18.07.2007
    Адрес
    Братск
    Возраст
    35
    Сообщений
    298
    Поблагодарил(а)
    29
    Получено благодарностей: 37 (сообщений: 32).

    По умолчанию

    Цитата Сообщение от Dim@Z Посмотреть сообщение
    Не ну помимо школы, он где-нибудь прогодился ?! (:
    нет, нет и нет! Язык давно мертв! Его юзают чтоб учить детей програмить и не засорять им моск всякими библиотеками!))))

    З.Ы. вот VB.Net я юзаю, и другим советую, из всех известных мне языков,, дает столко всяких возможностей что аж....*ля)))

  18. #57
    Мастер Paralax кто это? Аватар для Paralax
    Регистрация
    16.10.2006
    Сообщений
    871
    Поблагодарил(а)
    215
    Получено благодарностей: 298 (сообщений: 178).

    По умолчанию

    Катюха**

    Нашел пару багов последний вариант
    пункт 1
    пункт 3
    Код:
     
    CLS
    DIM w$(100)
    RANDOMIZE 100
    's$ = "О сколько нам открытий чудных готовит просвещенья дух"
    INPUT s$
    First = 1
    Words = 0
    FOR i = 1 TO LEN(s$)
       IF ASC(MID$(s$, i, 1)) = 32 THEN
          Words = Words + 1
          w$(Words) = MID$(s$, First, i - First)
          IF i + 1 <= LEN(s$) THEN
            First = i + 1
          END IF
        END IF
    NEXT
    IF First < LEN(s$) THEN
          Words = Words + 1
          w$(Words) = MID$(s$, First, i - First)
    END IF
     
    FindWord = 0
    MaxLen = 0
    FOR i = 1 TO Words
      IF LEN(w$(i)) >= MaxLen THEN
         MaxLen = LEN(w$(i))
         FindWord = i
      END IF
    NEXT
    PRINT s$
    PRINT w$(FindWord)
    DO
       Word1 = INT((Words * RND) + 1)
       Word2 = INT((Words * RND) + 1)
    LOOP WHILE Word1 = Word2
    SWAP w$(Word1), w$(Word2)
    newstr$ = ""
    FOR i = 1 TO Words
      newstr$ = newstr$ + w$(i) + " "
     
    NEXT
    PRINT newstr$
    Добавлено через 45 минут

    Катюха**

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

    Пункт 2

    Вот решение
    Код:
     
    s$ = "О сколько     нам открытий     чудных готовит просвещенья дух"
    newstr$ = ""
    IsSpace = 0
    For i = 1 To Len(s$)
      If Asc(Mid$(s$, i, 1)) = 32 Then
        If IsSpace = 0 Then
     
          newstr$ = newstr$ + Mid$(s$, i, 1)
          IsSpace = 1
     
        End If
     
      Else
     
          newstr$ = newstr$ + Mid(s$, i, 1)
          IsSpace = 0
     
      End If
    Next
    Print s$
    Print newstr$
    Последний раз редактировалось Paralax; 06.04.2008 в 00:21. Причина: Добавлено сообщение

  19. 1 пользователь сказал cпасибо Paralax за это полезное сообщение:

    Катюха** (05.04.2008)

  20. #58
    Новичок sever кто это?
    Регистрация
    27.11.2008
    Возраст
    41
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    у Кого нибудь есть прикольный анимированыи рисунок

  21. #59
    Юзер blin кто это? Аватар для blin
    Регистрация
    09.06.2006
    Адрес
    Санкт-Петрбург
    Возраст
    59
    Сообщений
    78
    Поблагодарил(а)
    15
    Получено благодарностей: 24 (сообщений: 12).

    По умолчанию

    Цитата Сообщение от Dron247 Посмотреть сообщение
    З.Ы. вот VB.Net я юзаю, и другим советую, из всех известных мне языков,, дает столко всяких возможностей что аж....*ля)))
    И в отличии от C#.NET читабелен нормально и GUI намного круче работает

  22. #60
    Джедай Vader Лечу Vader Лечу Vader Лечу Vader Лечу Vader Лечу Vader Лечу Vader Лечу Vader Лечу Vader Лечу Vader Лечу Vader Лечу Аватар для Vader
    Регистрация
    12.10.2006
    Адрес
    Planet of the Apes
    Возраст
    39
    Сообщений
    3,408
    Поблагодарил(а)
    556
    Получено благодарностей: 3,038 (сообщений: 1,429).

    По умолчанию

    Цитата Сообщение от blin Посмотреть сообщение
    И в отличии от C#.NET читабелен нормально и GUI намного круче работает
    Ыыыы! Эксперты в атаке! Извините.


    [нервно грызет край стола]

  23. 1 пользователь сказал cпасибо Vader за это полезное сообщение:

    $Eagle$ (02.12.2008)

+ Ответить в теме
Страница 3 из 4 ПерваяПервая 1 2 3 4 ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

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

     

Похожие темы

  1. Классика эротического кино
    от Lkgios в разделе Эротика
    Ответов: 15
    Последнее сообщение: 24.11.2015, 18:06

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
Рейтинг@Mail.ru
Администрация сайта не выражает согласия
с высказыванием участников форума и не несет
ответственности за их содержание.

Копирование любого материала возможно только
при наличии ссылки на сайт.