Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Дан текст на русском языке. Найти количество гласных букв (Pascal ABC)

5-9 класс

Dsfdfwrdfsdf 27 дек. 2015 г., 2:28:03 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Rubin23st
27 дек. 2015 г., 4:02:15 (8 лет назад)

program gt;
var a:string;
k,l,i:integer;
begin
readln(a);
//Сначала переведем вес текст в нижний регистр
l:=length(a);
k:=0;
for i:=1 to l do
begin
if(ord(a[i])>64)and(ord(a[i])<91)then a[i]:=chr(ord(a[i])+32);
if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k+1; //здесь вместо точек пиши как ////предедушие но с гласными(другими) буквами
end;
writeln(k);
end.

Ответить

Другие вопросы из категории

78. Укажите понятия , определяемые следующими словами ( запишите в прямоугольниках ) .

а) Группа слов , которая выражает _______________________________________
законченную мысль : ______________________________________
б) Значимая часть слова , которая _______________________________________
стоит после корня и служит ______________________________________
для образования новых слов : _______________________________________
в) Часть речи , которая указывает _______________________________________
на предметы , признаки и количества , ________________________________________
но не называют их : _______________________________________
г) Расстояние , преодолеваемое ________________________________________
за единицу времени : _____________________________________ д) Часть прямой , ограниченная ____________________________________ с двух сторон : ____________________________________ е) Многоугольник с наименьшим _____________________________________ числом сторон : ______________________________________ ж) Фигура , боковые грани которой - ______________________________________
треугольники , а основание - многоугольник : _____________________________________
з) Натуральное число , на которое заданное _____________________________________
натуральное число делится без остатка : ____________________________________
и) Натуральное число , имеющее только два ____________________________________
делителя - единицу и само это число : _____________________________________
к) Два числа , произведение которых равно 1 : __________________________________

Читайте также

определите полный набор данных для решения следующих задач обработки информации:

1)вычисление стоимости покупок в магазине;
2)вычисление суммы сдачи от данных вами продавцу денег;
3)определение времени показа по телевизору интересующего вас фильма;
4)вычисление площади треугольника;
5)определение времени падения кирпича с крыши дома;
6)определение месячной платы за расход электроэнергии;
7)перевод русского текста на итальянский язык;
8)перевод итальянского текста на русский язык.

Информационное сообщение на русском языке, первоночально записанное в 8 битовом коде Windows,было перекодировано в 16 битную кодировку unicode.

Врезультате информационный объем сообщения стал 2 Мбайта .найти количество симвалов в сообщении

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

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

решить любые 2 задачи, пожалуйста!!! или хотя бы одну в PASKALe

1. Найти те элементы массива, которые равны сумме двух своих соседей. Первый и последний элемент имеют только по одному соседу, поэтому искомыми быть не могут.
На вход программе сначало подается значение n<=100 – количество элементов в массиве. В следующей строке расположены сами элементы массива – целые числа, по модулю не превосходящие 10000. Выдайте значения искомых элементов массива в том же порядке, в каком они располагались во входных данных.

2. На вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. Всего будет введено не более 100000 чисел. Подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т.д. и выдайте результат. В выходных данных всегда должно быть 9 чисел.
3. Текст на английском языке запишите в массив a[1..1000] of char. Помимо английских букв в нем могут встречаться пробелы и знаки препинания. В массиве b [‘A’ ..’Z’’] of integer получите сведения о том, сколько и каких букв встречается в этом тексте. При подсчете строчные и прописные буквы не различать. На вход программе подается значение n<=1000 – количество символов в тексте. В следующей строке входных данных расположены сами символы (без разделителей). Выдайте 26 чисел – значения элементов массива b.
Пример

Входные данные
Выходные данные
12
Hello world!
0 0 0 1 1 0 0 1 0 0 0 3 0 0 2 0 0 1 0 0 0 0 1 0 0 0

4. Подсчитайте за один проход, сколько его элементов равны максимальному элементу.
На вход программе сначала подается значение n<=100 – количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. Выдайте количество искомых элементов массива.

5. В массиве, заполненным произвольными целыми числами, найдите два числа, произведение которых максимально. Вложенные циклы не используйте. На вход программе сначала подается значение n<=10000 – количество элементов в массиве. В следующей строке входных данных расположены сами элементы – целые числа, по модулю не превосходящие 30000. Выдайте два искомых числа в порядке неубывания.
6. На вход программе сначала подается значение n<=100 – количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. Распечатайте только те значения элементов массива, которые встречаются в нем ровно один раз. Элементы следует распечатывать в том порядке, в котором они встречаются в массиве.



Вы находитесь на странице вопроса "Дан текст на русском языке. Найти количество гласных букв (Pascal ABC)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.