30.06.2012, 16:10 | #1 (permalink) |
Новичок
Регистрация: 29.06.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Множества. Помогите доделать программу
помогите доделать Код:
Program jghfh; uses crt; type x='a'..'z'; var mn1,mn2:set of x; s: string; c:char; i:integer; begin clrscr; writeln(); readln(s); if s[length(s)]<>'.' then s:=s+'.'; i:=1;mn1:=[];mn2:=[]; while s[i] <> '.' do begin If s[i] in mn1 then mn2:=mn2+[s[i]]; mn2:= mn2 +[s[i] ]; i:=i+1; end; for c:='a' to 'z' do if c in mn2 then write(c); readln; end |
30.06.2012, 16:10 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
К вашему вниманию топики, которые так или иначе схожи с вашим Помогите доделать программу на C++, пожалуйста! Помогите доделать задачу в С++ |
30.06.2012, 17:48 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Попробую. Мне кажется, у Вас много лишнего накручено. Предлагаю такой вариант:
Код:
uses crt; const mn0=['a'..'z']; var mn1:set of char; s: string; c:char; i:integer; begin clrscr; writeln('Enter the string:'); readln(s); mn1:=[]; for i:=1 to length(s) do if (s[i] in mn0) and Not(s[i] in mn1) then mn1:=mn1+[s[i]]; for c:='a' to 'z' do if c in mn1 then write(c,' '); readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|