Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
13 / 13 / 5
Регистрация: 02.08.2012
Сообщений: 162

Найти количество слов с заданными символами

21.05.2013, 21:51. Показов 544. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вечер добрый!
Надо найти количество слов в строке с заданными 3 символами
Код который у меня вышел:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
REM string_2
CLS
DIM latter$
DIM c1$
DIM c2$
DIM c3$
check1 = false
check2 = false
check3 = false
PRINT "Vvedit re4ennja:"
INPUT latter$
INPUT "Vvedit 1-i sumvol: ", c1$
INPUT "Vvedit 2-i sumvol: ", c2$
INPUT "Vvedit 3-i sumvol: ", c3$
FOR i = 1 TO LEN(latter$)
    IF latter$(i) = " " THEN
        IF check1 AND check2 AND check3 THEN k = k + 1
        check1 = false
        check2 = false
        check3 = false
    ELSEIF latter$(i) = c1$ THEN
        check1 = true
    ELSEIF latter$(i) = c2$ THEN
        check2 = true
    ELSEIF latter$(i) = c3$ THEN
        check3 = true
    END IF
NEXT
PRINT
PRINT "Kilkist sliv v re4enni sho mistjat zadani sumvolu: "; k
END
Только почему-то не хочет правильно считать
Спасибо!

Добавлено через 19 минут
Тему можно закрыть, проблему решил так:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
REM string_2
CLS
DIM latter$
DIM c1$
DIM c2$
DIM c3$
check1 = false
check2 = false
check3 = false
PRINT "Vvedit re4ennja:"
INPUT latter$
INPUT "Vvedit 1-i sumvol: ", c1$
INPUT "Vvedit 2-i sumvol: ", c2$
INPUT "Vvedit 3-i sumvol: ", c3$
FOR i = 1 TO LEN(latter$)
    IF MID$(latter$, i, 1) = " " THEN
        IF check1 = true AND check2 = true AND check3 = true THEN k = k + 1
        check1 = false
        check2 = false
        check3 = false
    ELSEIF latter$(i) = c1$ THEN
        check1 = true
    ELSEIF latter$(i) = c2$ THEN
        check2 = true
    ELSEIF latter$(i) = c3$ THEN
        check3 = true
    END IF
NEXT
PRINT
PRINT "Kilkist sliv v re4enni sho mistjat zadani sumvolu: "; k
END
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.05.2013, 21:51
Ответы с готовыми решениями:

Найти в строке слова, начинающиеся и заканчивающиеся заданными символами
Очередная задача, пробовал но, не смог. Понимаю что без циклов не обойтись но, как реализовать так и не понял, помогите пожалуйста. ...

Вывести количество слов с найденными символами
#include <stdlib.h> #include <stdio.h> #include <string.h> int x=0; char s, temp; char aga; FILE *fp1,*fp2; void main() {...

Посчитать в строке количество слов, заканчивающихся символами «ая»
Посчитать в строке количество начинающихся на сочетание «ав». using System; using System.Collections.Generic; using System.Linq; ...

1
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
21.05.2013, 22:51
Фигня
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.05.2013, 22:51
Помогаю со студенческими работами здесь

Работа с символами. Подсчитать количество слов в строках
Доброго времени суток. Хочу узнать, как делаются задания такого плана: Записать в восемь строчных переменных столько же строк с...

Найти количество слов в словаре, если известно количество страниц, количество слов на странице и средняя длина слова
помогите с программой, которая выполняет эти расчеты: В русско-английском словаре 948 страниц, на каждой странице в среднем 30 слов. Каждое...

Определить количество слов, начинающихся и заканчивающихся совпадающими символами
Определить кол-во слов, начинающихся и заканчивающихся совпадающими символами c помощью строк. Распечатать эти слова. Текст...

Подсчитать и вывести на экран количество слов, символами которых являются двоичные цифры
Строка, введенная пользователем, состоит из слов, разделенных запятой. Подсчитать и вывести на экран количество слов, символами которых...

Найти количество слов содержащих только символы латинского алфавита, а среди них количество слов с гл. и согл
Найти количество слов содержащих только символы латинского алфавита, а среди них количество слов с равным количеством гласных и согласных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru