IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Исходник, править, Решение задачи (множества)
Ripper
сообщение 12.05.2007 21:32
Сообщение #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.


Вот такие вот дела. Помогите чем сможете...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 24.06.2025 9:06
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"