Помощь - Поиск - Пользователи - Календарь
Полная версия: Строка. Алфавитный порядок.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Анна
Определить все согласные буквы латинского алфаваита, которые не входят в строку, введённую пользователем, вывести их на экран в алфавитном порядке.

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

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
Анна, вот так пойдет?
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, ничего не остаётся ответить как конечно!
Спасибо good.gif , просветил немного. А так я щас практикуюсь, беру задачки из разных вариантов и пытаюсь решить .. не больно-то удаётся sad.gif
Так что в дальнейшем надеюсь на Вашу помощь .. unsure.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.