![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Ripper |
![]()
Сообщение
#1
|
Гость ![]() |
Задача
Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделённых пробелами. Слово - последовательность латинских букв. Напечатайте слова текста, имеющие нечетный номер, в которых нет ни одной повторяющейся буквы Моё решение (скорее набросок): Код const n_max=1000; {макс длина текста} eot='.'; type litters = set of 'a'..'z'; {тип множества лат букв} var txt:array [1..n_max] of char; {текст} m:litters; s:string; i,n:integer; f:boolean; c:char; {процедура ввода текста (по строкам)} procedure read_text; var i:integer; begin Writeln ('Введите текст: '); i:=0; repeat repeat i:=i+1; read(txt[i]); until eoln or (i=n_max) or (txt[i]=eot); readln; until (i=n_max) or (txt[i]=eot); if txt[i]=eot then n:=i-1 else n:=i; end; {процедура поиска и печати. чёт не то чую} procedure find; var i:integer; begin i:=1; repeat s:=''; m:=[]; f:=false; repeat f:=txt[i] in m; m:=m+[txt[i]]; s:=s+txt[i]; until (txt[i]=' ') or f or (txt[i]='.'); if not f and odd(i) then write(s); i:=i+1 until txt[i]='.'; readln; end; begin {main} read_text; find; readln; end. Вот такие вот дела. Помогите чем сможете... |
![]() ![]() |
![]() |
Текстовая версия | 24.06.2025 11:03 |