Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
n1ck
0 / 0 / 0
Регистрация: 19.12.2011
Сообщений: 7
#1

Подсчитать количество шипящих букв в слове - QBasic

07.01.2012, 17:24. Просмотров 728. Ответов 5
Метки нет (Все метки)

1)Задача:
подсчитать количество шипящих букв в слове
2)Задача:
В массиве из 10 элементов найти и отпечатать колличество и сумму элементов, значение которых больше последнего элемента массива.
3)Задача:
Дана матрица 3 порядка. Уменьшить отрицательные элементы матрицы в 2,3 cтолбцах на 4 единицы. Вывести на печать исходную и новую матрицы
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2012, 17:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсчитать количество шипящих букв в слове (QBasic):

Подсчитать количество шипящих букв в слове - QBasic
подсчитать количество шипящих букв в слове (Любое слово)

Подсчитать количество шипящих букв в слове - QBasic
Задача: подсчитать количество шипящих букв в слове

Подсчитать количество букв K и D в слове - QBasic
Помогите решить задачи: а) Дан массив В (N). Если пятый элемент таблицы меньше десятого элемента, то присвоить этим элементам удвоенное...

Подсчитать количество различных букв в заданном слове - QBasic
ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ! 1.В ЭВМ вводятся по очереди данные о росте N учащихся класса.Определить средний рост учащихся класса. ...

Ввести слово и в слове подсчитать количество согласных букв - QBasic
Need help =\ 1) Ввести слово и в слове подсчитать количество согласных букв 2) Дан массив из 12 элементов. Найти количество элементов...

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

5
Коровьев
98 / 43 / 10
Регистрация: 02.05.2011
Сообщений: 408
08.01.2012, 13:09 #2
2ая
PureBasic
1
2
3
4
5
6
7
8
/заполнили массив
k=0
s=0
FOR i=1 TO 10 
IF a(i)>a(10) THEN k=k+1 AND s=s+a(i)
NEXT i
PRINT(i)
PRINT(s)
Добавлено через 20 минут
1ая
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
INPUT a$
b=LEN(a$)
k=0
FOR i=1 TO b
s$=MID$(a$,i,1)
SELECT CASE s$
CASE "ш":k=k+1
CASE "ч":k=k+1
CASE "щ":k=k+1
CASE "ц":k=k+1
END SELECT
NEXT i
PRINT(k)
PC ниодин код я не проверял
1
m-ch
5247 / 794 / 217
Регистрация: 25.02.2011
Сообщений: 1,090
Записей в блоге: 1
08.01.2012, 13:43 #3
Вариант 1 задачи:
PureBasic
1
2
3
4
5
6
a$ = "Шипящие"
k = 0
FOR i = 1 TO LEN(a$)
IF INSTR("ЦЧШЩцчшщ", MID$(a$, i, 1)) THEN k = k + 1
NEXT i
PRINT k
1
кот Бегемот
Платежеспособный зверь
8444 / 3883 / 742
Регистрация: 28.10.2009
Сообщений: 10,058
08.01.2012, 17:01 #4
Ц- не шипящая она в списке лишняя, а вот Ж - не хватает
1
n1ck
0 / 0 / 0
Регистрация: 19.12.2011
Сообщений: 7
09.01.2012, 00:44  [ТС] #5
Это спасибо, а как нарисовать Блок-схему к ним?
0
Памирыч
09.01.2012, 00:55     Подсчитать количество шипящих букв в слове
  #6
 Комментарий модератора 
n1ck, П.п 4.5 Правил:Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
09.01.2012, 00:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2012, 00:55
Привет! Вот еще темы с ответами:

Подсчитать число различных букв в слове - QBasic
Подсчитать число различных букв в слове. Нашел на паскале эту задачу, как пределать эту задачу на qbasic length вроде нет в basic , ...

Во введенном тексте подсчитать количество символов в слове максимальной длины - QBasic
Приветик ребят!) Это ппц(((( Это реально решить на QBasic?? Подруга сказала, что тут проблемы с типом переменных будут о_О Ребят,...

Подсчитать количество содержащихся в строке гласных и согласных букв. - QBasic
Дана строка-предложение на русском языке. Подсчитать количество содержащихся в строке гласных и согласных букв.

Заполнить литерный массив заглавными английскими буквами и подсчитать количество букв - QBasic
#1 Дан литерный массив 4х5. Заполнить его заглавными английскими буквами и подсчитать количество букв, которые по алфавиту находятся...


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

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

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