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

@Щенок · Регистрация: 12.12.2011

Author24 — интернет-сервис помощи студентам

Hi people!Помогите с написанием программы.Программа звучит так:"В произвольном предложение определить количество согласных букв"(с помощью строковых величин,а также можно использовать процедуры и функции для обработки строковых величин).Заранее благодарю!
Начало программы следующее(можно свой вариант,но если можно,то лучше попроще=)):

Pascal

program car;
uses crt;
var a:string [N];
b:string [N];
k:integer;(счетчик количества согласных букв),
i:integer;(параметр цикла for),
l:integer;(длина строки).

@swillrocker · 17.02.2012, 13:10

Pascal

const m:set of char=['a','e','i','o','u','y','A','E','I','O','U','Y'];
      n:set of char=['a'..'z','A'..'Z'];
var s:string;
    i,k:integer;
begin
  write('s=');
  readln(s);
  k:=0;
  for i:=1 to length(s) do
   if (s[i] in n) and not (s[i] in m) then inc(k);
   writeln(k);
  readln;
end.

	17.02.2012, 13:10

Опции темы