Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ множества
Автор: -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усских букв <...>
...
pусских букв <...>
...
...
sb,m:set of 'a'..'z';
...
Автор: 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