Первые вхождения Опции

[18192123]

Дан текст, заканчивающийся точкой. Вывести первые вхождения каждой латинской буквы.
(задача должна решаться с помощью множеств)

Помогите разобраться , что понимается под первыми вхождениями.

[мисс_граффити]

ну допустим текст:
'lala happy new year'
смотришь:
первый символ l, еще не встречался. выводишь.
a - не встречался, выводишь
l- уже был, не выводишь
а - был, не выводишь
h - первый раз встретился, выводишь
а - был
ну и т.д.
в итоге получишь: 'lahpynewr'
(пробелы же не являются латинскими буквами, их не выводим)

[Lapp]

в итоге получишь: 'lahpynewr'

А может, нужны номера позиций первых вхождений?
Типа так:
a - 2
e - 13
h - 6
n - 12
...

[18192123]

Вот что у меня получилось

uses crt;
var
s, s1 : string;
i : integer;
mn : set of char;
c : char;
begin
clrscr;
repeat
s := '';
repeat
  c := readkey;
  write ( с );
  s := s+c;
  until (c = '.')or (c = #13);
  writeln;
until c = #13;
s1 := '';
mn := [];
i := 0;
while i <= length(s) do
begin
     mn := mn + [s[i]];
     inc (i);
     if s[i]  in mn then writeln ('Error!!!') else
        begin
        mn := mn+ [s[i]];
        s1 := s1 + s[i];
end;
end;
writeln (s1);
readkey;
end.

но у меня получается, что пробелы тоже выводятся. ( а как без них?)
и ещё, не получается учесть самый первый символ текста

А может, нужны номера позиций первых вхождений?
Типа так:
a - 2
e - 13
h - 6
n - 12
...

вроде нужны именно первые вхождения, и не их позиции

Сообщение отредактировано: 18192123 - 5.01.2007 14:04

[мисс_граффити]

...
else
  if s[i] in ['a'..'z'] then
        begin
        mn := mn+ [s[i]];
        s1 := s1 + s[i];
end; 

это если только строчные рассматривать

Lapp, а зачем тогда множества? хотя, конечно, может быть и так... и множества приделать реально.

Сообщение отредактировано: мисс_граффити - 5.01.2007 14:21

[volvo]

if upcase(s[i]) in ['A'..'Z'] then
        begin
        mn := mn+ [upcase(s[i])];
        ...

- будут рассматриваться любые...

[Lapp]

а зачем тогда множества? хотя, конечно, может быть и так... и множества приделать реально.

почему приделать?.. вполне по делу, чтобы проверять на первость вхождения

[мисс_граффити]

потому что pos и так возвращает первое... сделать цикл от a до z - и никаких множеств не надо.
или чтобы выводить в порядке "встречания"? но тогда будет не

a - 2
e - 13
h - 6
n - 12

[Lapp]

потому что pos и так возвращает первое... сделать цикл от a до z - и никаких множеств не надо.
или чтобы выводить в порядке "встречания"? но тогда будет не

А кто сказал, что "текст, заканчивающийся точкой" есть string? Логично воспринимать это как файл (возможно, с переводами строк), и заодно никаких ограничений на длину (255 в строке) не будет
Относительно порядка - мои фантазии..

Сообщение отредактировано: Lapp - 5.01.2007 14:43

[мисс_граффити]

А кто сказал, что "текст, заканчивающийся точкой" есть string? Логично воспринимать это как файл (возможно, с переводами строк), и заодно никаких ограничений на длину (255 в строке) не будет
Относительно порядка - мои фантазии..

согласна.
просто читала по диагонали задание... а потом уже больше ориентировалась на приведенный автором темы код, где вполне четко написано:

s, s1 : string;