Важная информация
Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 11

Тема: Помогите решить в QB

  1. #1 Помогите решить в QB 
    Новичок
    Регистрация
    14.12.2014
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Программирование в QBasic
    1) Даны три числа А, В, С. Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим.
    2) Дан массив Х(20) с целыми числами диапазон (-25 +25) Найти среднее арифметическое отрицательных чисел и среднее геометрическое положительных элементов массива.
    3) Составить из слова КОНСТИТУЦИЯ пять новых слов.
    4) Дана квадратная матрица Y на 25 элементов. Матрица заполнена целыми числами из диапазона (-15 +15) Найти сумму 3-го столбца, кол-во нулевых элементов в матрице, заменить первый элемент матрицы числом 200.
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    _Anya_, ваши темы дубликаты удалены. Будьте добры ознакомьтесь с правилами форума.

    1, 2, 4 - задания лёгкие их вы должны сделать сами.
    3-ю посмотрю на неделе - там нужен текстовый файлик(словарь русского языка) и алгоритм отсеивания слов в нём.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
     

  3. #3  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    Задания действительно легкие, жаль у меня нет под рукой редакторов QB
    я бы в Excel-е решил в течении дня (неторопясь)
    Нет подписи : (
     

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

    надо перекомбинировать все буквы из этого слова, начиная с двух заканчивая
    полным количеством, тоесть комбинировать так, как если бы вместо ряда символов шел ряд чисел
    и каждую комбинацию найти в словаре.. вот и все
    Нет подписи : (
     

  5. #5  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Взял словарь отсюда, именовал Slovar.txt.

    Прогнал на FreeBASIC через это, чтобы убрать лишнее:

    FreeBasic Code:
    1. '$Lang:"FBLite"
    2.  
    3. OPEN "Slovar.txt" FOR INPUT AS #1
    4. OPEN "Slovar2.txt" FOR OUTPUT AS #2
    5.  
    6.     WHILE NOT EOF(1)
    7.        INPUT #1, Slovo$
    8.        Slovo$ = LTRIM$(Slovo$)
    9.        Slovo$ = LEFT$(Slovo$, INSTR(1, Slovo$, " ") - 1)
    10.        IF LEN(Slovo$) > 1 THEN
    11.          PRINT #2, Slovo$
    12.        END IF
    13.     WEND
    14.  
    15. CLOSE #2
    16. CLOSE #1


    После этого удалил Slovar.txt, а Slovar2.txt переименовал в Slovar.txt.
    Далее пишем прожку на QBasic:

    Код Qbasic:
    CONST NeedWords = 5    '  Сколько слов выводить
     
    DEFINT A-Z             '  Все недекларир. целый тип
    DECLARE FUNCTION MyLCASE$ (IStr$)
     
    DIM Chars(255), Slovo$
    DIM Dlins(34)
    DIM SHARED Ishodn$
    CLS : INPUT "Vvedite slovo: ", Ishodn$
    Ishodn$ = MyLCASE$(Ishodn$)
    IF LEN(Ishodn$) = 0 THEN END
    FOR i = 1 TO LEN(Ishodn$)
       k = ASC((MID$(Ishodn$, i, 1)))
       Chars(k) = -1
    NEXT
     
    PRINT : PRINT "Processing..."
    PRINT STRING$(80, 196)
     
    OPEN "Slovar.txt" FOR INPUT AS #1
      OPEN "Slova.txt" FOR OUTPUT AS #2
        '  Пройдёмся по всему файлу
        WHILE NOT EOF(1)
           INPUT #1, Slovo$  ' Читаем слово
           Stat = -1         ' Пока оно попадает
             '  Проверим, есть ли в слове буквы исходника
           FOR i = 1 TO LEN(Slovo$)
              k = ASC(MID$(Slovo$, i, 1))  '  Берём букву
              Stat = Stat AND Chars(k)     '  Отсееваем
           NEXT
             '  Положим слово в файл и узнаем длины найденных слов
           IF Stat THEN
             PRINT #2, Slovo$: Dlins(LEN(Slovo$)) = Dlins(LEN(Slovo$)) + 1
           END IF
        WEND
      CLOSE #2
      '  Откроем созданный файл из найденных слов
      OPEN "Slova.txt" FOR INPUT AS #2
      '  С максимальной длины в меньшую сторону
      dl = 34: ok = 0: norep$ = ""
      DO
        IF Dlins(dl) > 0 THEN
          SEEK #2, 1    ' На первое слово в файле
          DO WHILE NOT EOF(2)
             INPUT #2, Slovo$  ' Читаем слово
             IF LEN(Slovo$) = dl THEN
               '  Если не повторяется
               IF INSTR(norep$, Slovo$) = 0 AND Slovo$ <> Ishodn$ THEN
                 norep$ = norep$ + " " + Slovo$ + " "
                 PRINT Slovo$: ok = ok + 1: EXIT DO
               END IF
             END IF
          LOOP
          Dlins(dl) = Dlins(dl) - 1
        ELSE : dl = dl - 1
        END IF
      LOOP UNTIL ok = NeedWords OR dl = 1
     
      CLOSE #2
    CLOSE #1
    PRINT STRING$(80, 196); "ok..."
    WHILE INKEY$ = "": WEND
     
    '  Простенький кустарный LCASE для русских символов
    '
    FUNCTION MyLCASE$ (IStr$)
    DIM u AS INTEGER, Bukv, OStrn$
     
    FOR u = 1 TO LEN(IStr$)
      
      Bukv = ASC(MID$(IStr$, u, 1))
      IF Bukv > 127 AND Bukv < 144 THEN Bukv = Bukv + 32
      IF Bukv > 143 AND Bukv < 160 THEN Bukv = Bukv + 80
      IF Bukv = 240 THEN Bukv = 241
     
      OStrn$ = OStrn$ + CHR$(Bukv)
    NEXT u
     
    MyLCASE$ = OStrn$
    END FUNCTION

    В архив положу код на QB\QBasic, адаптированный код на FB, EXE-шник и готовый словарь.
    Вводите слово "Конституция", оно вам выдаст те слова русского языка, которые можно составить из неуникальных
    букв этого слова. Можно дописать случай для уникальных, там несколько строк кода, но нет времени\желания.
    Юзайте...
    Вложения
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
     

  6. 2 пользователя(ей) сказали cпасибо:

    FelixMacintosh (17.12.2014), Абадябер (16.12.2014)

  7. #6  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    284
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    мне думается что студентке первого курса не ати специальности такую программу написать вряд ли бы задали.
    думаю задачка 3 на знание функции работы со строками.
     

  8. #7  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    думаю задачка 3 на знание функции работы со строками.
    Хе хе, ну зато она теперь хотя бы знает КАКИЕ слова нужно нарезать.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
     

  9. Пользователь сказал cпасибо:

    nik_1 (17.12.2014)

  10. #8  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
    Хе хе, ну зато она теперь хотя бы знает КАКИЕ
    Не лень-же вам было.. хотя, если человек чтото подобное делает значит он счастлив,
    потому-что у него много свободного времени ))

    я тоже хотел выложить на этом форуме, продукты своего творчества
    но не знаю куда, здесь нет ветки VBA-Excel.. эххх жаль
    Последний раз редактировалось >Quiet Snow<; 17.12.2014 в 09:39. Причина: Объединение сообщений
    Нет подписи : (
     

  11. #9  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    284
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Цитата Сообщение от FelixMacintosh Посмотреть сообщение
    я тоже хотел выложить на этом форуме, продукты своего творчества
    но не знаю куда, здесь нет ветки VBA-Excel.. эххх жаль
    в общих вопросах можно. я так думаю.
     

  12. #10  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    Надо бы вот что сделать, немедленно ставить ветку VBA,
    но только одну ветку а не как на сайбере, ветка VBA и ветка MS Office Excel
    где пользователи порой не догадываются о соседних тематических (одинаковых) форумах
    и поставьте меня модератором, я человек общительный и моментально привлеку пользователей
    и даже серьёзных инвесторов

    а то так и будет,.... первый из специалистов пришел я, привел умного друга
    друг(теперь уже бывший) стал модератором, а я остался в жопе.. несправедливо

    но, если хотите наблюдать унылую картину, то вы всегда можете оставить все как есть
    и просьба меня не передёргивать, я очень впечатлителен..
    Последний раз редактировалось >Quiet Snow<; 17.12.2014 в 09:38. Причина: Объединение сообщений
    Нет подписи : (
     

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

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

Похожие темы

  1. Помогите решить
    от gekas в разделе Pascal
    Ответов: 1
    Последнее сообщение: 16.11.2014, 19:45
  2. Помогите решить задачи по С++
    от александр22 в разделе Общие вопросы программирования
    Ответов: 2
    Последнее сообщение: 21.05.2014, 14:00
  3. Помогите решить
    от Origina1 в разделе Visual Basic
    Ответов: 1
    Последнее сообщение: 15.12.2013, 07:35
  4. Ответов: 0
    Последнее сообщение: 01.07.2012, 22:03
  5. Помогите решить задачу
    от Дмитрий 1993 в разделе QBasic
    Ответов: 3
    Последнее сообщение: 24.01.2012, 17:00
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •