Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
Nastya345678
1

В введенном тексте подсчитать количество цифр, всех букв, прописных букв, заглавных букв

23.04.2014, 16:47. Показов 1908. Ответов 1
Метки нет (Все метки)

Помогите,пожалуйста
программа на QBasic
В введенном тексте подсчитать количество цифр,всех букв, прописных букв,заглавных букв
Заглавные латинские буквы с 65-90 код,строчные с 97-122,заглавные русские 128-175,строчные русские буквы 224-239.цифры 48-57 код
заранее спасибо
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2014, 16:47
Ответы с готовыми решениями:

Во введенном тексте подсчитать количество прописных и заглавных букв
Введенном тексте подсчитать кол-во прописных и заглавных букв Добавлено через 4 часа 37 минут...

Строки. Подсчитать количество заглавных букв в тексте; вывести на экран слова, имеющие наименьшее количество букв... (подправить)
Дано задачу: С клавиатуры вводится строка. Составить программу, которая подсчитывает количество...

Подсчитать количество содержащихся в ней цифр, прописных букв и строчных букв.
Дана строка. Подсчитать количество содержащихся в ней цифр, прописных букв и строчных букв.

Дана строка. Подсчитать количество содержащихся в*ней цифр, прописных букв и строчных букв (на С)
Помогите решить задачу. Есть вот такой код, но он считает только строчные буквы. #include...

1
Заблокирован
23.04.2014, 18:09 2
Лучший ответ Сообщение было отмечено как решение

Решение

Вот код
(программа проверена)
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
DEFSTR T
DEFINT C, N
CLS
INPUT "Vvedite TEXT"; tt
n1 = 0
n2 = 0
n3 = 0
n4 = 0
n5 = 0
FOR n = 1 TO LEN(tt)
   t = MID$(tt, n, 1)
   c = ASC(t)
   SELECT CASE c
      CASE 65 TO 90
         n1 = n1 + 1
      CASE 97 TO 122
         n2 = n2 + 1
      CASE 128 TO 159
         n3 = n3 + 1
      CASE 160 TO 175, 224 TO 239
         n4 = n4 + 1
      CASE 48 TO 57
         n5 = n5 + 1
   END SELECT
NEXT n
PRINT "Kol A,B,C ...="; n1
PRINT "Kol a,b,c ...="; n2
PRINT "Kol RUS ...="; n3
PRINT "Kol rus ...="; n4
PRINT "Kol 1,2,3 ...="; n5
END
Удачи вам!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.04.2014, 18:09

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дана строка. Подсчитать количество содержащихся в ней цифр, прописных букв и строчных букв
Дана строка. Подсчитать количество содержащихся в ней цифр, прописных букв и строчных букв.

Введите с клавиатуры некоторый текст и подсчитать в нем количество слов, букв, цифр,строчных букв, заглавных б
Напишите пожалуйста программу в С++: Введите с клавиатуры некоторый текст и подсчитать в нем...

Подсчитать, сколько было введено: латинских прописных букв, кириллических прописных букв, цифр, знаков переноса, прочих символов.
Помогите, пожалуйста, написать программу :scratch: Подсчитать, сколько было введено: латинских...

Введённом тексте с клавиатуры подсчитать количество букв, цифр и пробелов
Введённом тексте с клавиатуры подсчитать количество букв, цифр и пробелов.

Файл: подсчитать количество знаков препинания, заглавных и прописных букв
Дан текстовый файл содержащий русский текст. Необходимо подсчитать количество знаков препинания,...

Подсчитать сумму количества букв и количества гласных букв во введенном тексте
Написать программу, которая запрашивает у пользователя текст, а затем подсчитывает в нем сумму...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.