04.12.2011, 21:21 | #1 (permalink) | |
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, запутался
Цитата:
Код:
var s,buf:string; i:integer; a:set of char; begin readln(s); buf:=''; a:=['A'..'F','.',',']// добавить остальные знаки препинания ; for i:=1 to length(s) do if (s[i] in a) and (pos(s[i],buf)=0) then buf:=buf+s[i]; writeln(buf); end. |
|
04.12.2011, 21:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот ссылки на темы, которые скорее всего помогут вам в решении проблемы Я запутался... Я запутался... |
04.12.2011, 21:34 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну да, типо оно типо правильное, только в строке
a:=['A'..'F','.',',']// добавить остальные знаки препинания ; типо ошибка - разделитель ";" попал типо в комментарий. Надо, чтобы он стоял типо до "//".А в чем конкретно проблемы?Где задавались? В строке? В множестве? Конкретнее, пожалуйста. |
04.12.2011, 21:40 | #3 (permalink) |
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
=) типо с оформление типо разобрался типо!!
ошибку тоже заметил. исправил. программа работает. но в условии задания написано чтобы символы задавались рандомно. а тут получается я их записываю и жму ENTER И ПРОШГРАММА из них выбирает нужные от A дО F и знаки припинания!! Как сделать рандомно? |
04.12.2011, 21:41 | #4 (permalink) |
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
P/S Владимир загляните пожалуйста еще раз сюда! Помогите студенту решить задачки
|
04.12.2011, 22:41 | #5 (permalink) |
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
кто-то знает ??? помогите плиз???
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|