Строки

PacMan · 12.03.2011, 14:56

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

Long Cat · 12.03.2011, 16:00

Код:

program Project2;
  const
   allchrs:set of char=['A'..'Z'];
   glasn:set of char=['A','E','I','O','Y','U'];
  var
   s:string;
   i:integer;
   cnt:integer;
begin
 readln(s);
 cnt:=0;
 for i:=1 to length(s) do
 begin
   if(upcase(s[i]) in (allchrs-glasn)) then
   begin
    inc(cnt);
   end;
 end;
 writeln(cnt);
 readln;
end.

PacMan · 13.03.2011, 22:14

Огромное спасибо.

12.03.2011, 14:56	#1 (permalink)
PacMan Member Регистрация: 07.02.2011 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Строки Здравствуйте, помогите с программой пожалуйста... Ввести строку с клавиатуры. Подсчитать во введенном тексте число согласных букв английского алфавита.

12.03.2011, 14:56
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Я уверен, что решение вашей проблемы имеется по этим ссылкам Строки в С Строки Строки Строки Строки

13.03.2011, 22:14	#3 (permalink)
PacMan Member Регистрация: 07.02.2011 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Огромное спасибо.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070