Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ множества

Автор: -kosiak- 31.05.2006 21:13

Добрый вечер помогите пожалуйста исправить ошибку в проге сам найти не могу.

Цитата
Дана непустая последовательность слов из стpочных pусских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном поpядке все согласные буквы, котоpые не входят ни в одно слово.

var
s,v:string[20];
sb,m:set of 'a'..'z';
i,l,j:integer;
begin
sb:=['b','c','d','f','g','h','j','k','l','m','n','p','r','s','t','v','w','x','z'];
m:=[];
writeln('vvedite stroku');
readln(s);
i:=1;
repeat
l:=i;
while (s[i]<>' ') or (s[i]<>',') or (s[i]<>'.') do
i:=i+1;
v:=copy(s,l,i-l);
for j:=1 to length(v) do
if v[j] in sb then
m:=m+v[j];
i:=i+1;
until s[i]='.';
sb:=sb-m;
writeln(sb);
End.

Автор: klem4 31.05.2006 21:31

Пользуйся поиском, конкретно такая задача решалась ну и очень похожие.

Автор: volvo 31.05.2006 21:34

Что особенно порадовало:

Цитата(-kosiak- @ 31.05.2006 17:13)
Дана непустая последовательность слов из стpочных
pусских букв <...>
...
...
sb,m:set of 'a'..'z';
...

unsure.gif

Автор: klem4 31.05.2006 21:35

В общем вот очень похожая задача, посмотри : http://forum.pascal.net.ru/index.php?showtopic=3767&hl=%F1%EE%E3%EB%E0%F1%ED%FB%E5+%E3%EB%E0%F1%ED%FB%E5