Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/14: Рейтинг темы: голосов - 14, средняя оценка - 4.57
Ханапов
2 / 2 / 2
Регистрация: 26.01.2013
Сообщений: 59
1

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

20.02.2013, 18:34. Просмотров 2786. Ответов 1
Метки нет (Все метки)

Привет. Задали программу. которая считала бы количество гласных и согласных, вот мой код
Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const Alph:set of ['A'..'Z','a'..'z'];                                       //думаю, что собака зарыта именно здесь
        Vowel:set of ['A','E','I','O','U','Y','a','e','i','o','u','y'];          // в месте объявления множеств
        Consonant=Alph-Vowel;
var s:string;
    i,j,k:word;
 
begin
  repeat
   j:=0;k:=0;
   readln(s);
   for I := 1 to length(s) do
     begin
       if (s[i] in Consonant) then inc(j);
       if (s[i] in Vowel) then inc(k)
     end;
   writeln('Consonants quantity = ',j);
   writeln('Vowel quantity = ',k);
  until false
end.
беда в том, что сколько я не бился, он не заработал! объявлял множества как типы и как константы-не помогло((( SOS пожалуйста(((
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.02.2013, 18:34
Ответы с готовыми решениями:

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

Количество гласных и согласных букв
Очень нужен срочно код этой программы «Количество гласных и согласных букв» , просто как это...

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

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

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

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26858 / 17999 / 7113
Регистрация: 22.10.2011
Сообщений: 31,689
Записей в блоге: 6
20.02.2013, 18:49 2
Delphi
1
2
3
4
const 
   Alph = ['A'..'Z','a'..'z'];
   Vowel = ['A','E','I','O','U','Y','a','e','i','o','u','y'];
   Consonant = Alph - Vowel;
этого достаточно...
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.02.2013, 18:49

Определить,каких букв больше:гласных или согласных
Строка содержит произвольный русский текст. Определить,каких букв больше:гласных или согласных. ...

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

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


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

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

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