Строка. Алфавитный порядок. Опции

[Анна]

Определить все согласные буквы латинского алфаваита, которые не входят в строку, введённую пользователем, вывести их на экран в алфавитном порядке.

Получается только выводить буквы, содержащиеся в строке. Что-то меня по-моему глючит уже сегодня ...

uses crt;
var
s: string;
i: integer;
q: set of char;

begin
clrscr;
q := ['b','c','d','f','g','h','k','l','m','n','p','q','r','s','t','j','v','x','z'];
writeln ('Введите строку:  '); readln (s);
for  i:=1 to length (s) do begin
if s[i] in q then write (s[i]); end;
readln;
end.

Сообщение отредактировано: volvo - 6.11.2006 21:16

[volvo]

Анна, вот так пойдет?

uses crt;

var
  s: string;
  i: integer;
  q, wrd: set of char;
  ch: char;

begin
  clrscr;
  q :=
    ['b','c','d','f','g','h','k','l','m','n','p','q','r','s','t','v','x','z'];
  writeln ('Введите строку:  '); readln (s);
  wrd := [];
  { Заполняем wrd теми согласными, которые входят в строку }
  for i := 1 to length (s) do
    if s[i] in q then wrd := wrd + [ s[i] ];

  wrd := q - wrd; { Теперь в wrd - то, что в строку НЕ входит (из согласных) }

  for ch := 'a' to 'z' do
    if ch in wrd then write(ch);
  readln;
end.

[Анна]

volvo, ничего не остаётся ответить как конечно!
Спасибо , просветил немного. А так я щас практикуюсь, беру задачки из разных вариантов и пытаюсь решить .. не больно-то удаётся
Так что в дальнейшем надеюсь на Вашу помощь ..