VPF::Слова - Форум программистов

VinceDazy

Дата 14.6.2006, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.5.2006

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) VinceDazy - 14.6.2006, 19:10

rasik

Дата 17.6.2006, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 16.2.2006

Репутация: 2
Всего: 3

Решение :

Код


 uses CRT; 
 type TCharset=set of char; //тип нужен для роботы процедуры printcharset
 const ConsLetters:set of char=['b','c','d','f','g','h','j','k',
                               'l','m','n','p','q','r','s','t',
                               'v','w','x','z']; //множество гласных букв
 var UsedOnce:set of char; //множество букв исп. 1 раз
     Blacklist:set of char; //множество исп. букв
     c:char;

 procedure PrintCharset(C:TCharset);
   var i:integer;
  begin
   for i:=0 to 255 do
    if(chr(i) in C) then
     write(chr(i));
  end;

begin
 clrscr;
 while(c<>#13) do //пока не нажмем enter
  begin
   c:=readkey; //читаем символ
   write(c);
   if(c in ConsLetters) //если гласная буква
    then if(c in UsedOnce) //если уже есть в множестве то убираем ее и заносим в "чёрный список"
          then begin
                exclude(UsedOnce,c);
                include(BlackList,c);
               end
          else if(not(c in UsedOnce)and(not(c in BlackList))) //а если буквы нет ни в одном из множеств то добавляем в него ноую букву
                then include(UsedOnce,c);
  end;
 clrscr;
 PrintCharset(UsedOnce); //вывод на экран согласных букв входящих только в одно слово
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »