Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
ЕвгенийЧе
0 / 0 / 1
Регистрация: 11.01.2013
Сообщений: 38
1

Подсчитать количество гласных и согласных

25.06.2013, 00:04. Просмотров 642. Ответов 4
Метки нет (Все метки)

Доброго времени суток
Помогите завершить программу
Задача:

Дано текст из цифр и малых латинских букв. В конце текста - точка.
Определить, каких букв: гласных (a, e, i, o, u, y) или согласных
больше в этом тексте.

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

Pascal
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
32
33
program w4;
var
a1: string;
type
m=set of '0'..'9';
z=set of 'a'..'z';
var
i:integer;
glas,soglas: integer;
 
const let:z=['a','e','i','o','u','y'];
const num:m=['0','1','2','3'];
 
begin
glas:=0;
soglas:=0;
 
writeln('Vvedite tekst');
read(a1);
i:=0;
repeat
inc(i);
if a1[i] in num then continue
else
if a1[i] in let then
inc(glas) else
inc(soglas);
 
until a1[i] = '.';
writeln (glas);
writeln (soglas);
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.06.2013, 00:04
Ответы с готовыми решениями:

В символьном массиве подсчитать количество гласных и согласных букв.
Условие: В символьном массиве подсчитать количество гласных и согласных букв.(Английский алфавит....

Подсчитать количество гласных и согласных английских букв в тексте файла
В файле input.txt содержится произвольный текст. Подсчитать количество гласных и согласных...

Множества. Подсчитать количество гласных и согласных русских букв в строке
4. Дана строка. Подсчитать количество гласных и согласных русских букв. При решении задачи...

Найти и сохранить в строке те слова текста, количество гласных букв в которых превышает количество согласных
Дана строка. Словом текста считается любая последовательность букв русского алфавита; между...

Количество гласных и согласных букв в предложении.
Помогите пожалуйста с заданием.. с количеством сделала, а с процентами не могу 5. С клавиатуры...

4
rjxxx
Фрилансер
73 / 73 / 51
Регистрация: 25.10.2011
Сообщений: 317
25.06.2013, 00:14 2
Ваша программа работает, только неправильно согласные считает, на 1 больше.
0
ЕвгенийЧе
0 / 0 / 1
Регистрация: 11.01.2013
Сообщений: 38
25.06.2013, 00:17  [ТС] 3
Да, в Паскаль АВС не работала, а в Турбо работает. Только "." считает как согласную. Как же решить это. Буду признателен, если подскажете)
0
rjxxx
Фрилансер
73 / 73 / 51
Регистрация: 25.10.2011
Сообщений: 317
25.06.2013, 00:31 4
Странно, я проверял в ABC и там работало.
Pascal
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
program w4;
var
a1: string;
i:integer;
glas,soglas: integer;
 
const let=['a','e','i','o','u','y'];
 
begin
glas:=0;
soglas:=0;
 
writeln('Vvedite tekst');
read(a1);
i:=0;
repeat
inc(i);
if a1[i] in let then
inc(glas) else
if (a1[i]<>'.') then
inc(soglas);
until a1[i] = '.';
 
writeln (glas);
writeln (soglas);
end.
1
ЕвгенийЧе
0 / 0 / 1
Регистрация: 11.01.2013
Сообщений: 38
25.06.2013, 00:39  [ТС] 5
Спасибо, все работает, точка не считается)
0
25.06.2013, 00:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.06.2013, 00:39

Программа, определяющая количество гласных и согласных
Const gl=; sog=; Var s:string; qw:integer; wq:integer; Function Glas(s:string):byte;...

В строке А посчитать количество гласных и согласных букв
В строке А посчитать количество гласных и согласных букв и вывести сообщение о том, каких больше.

Определить количество гласных и согласных букв в предложении
определить кол-во гласных и согласных букв в предложении


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

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

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