Задача в Turbo Pascal

[Cooltik]

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

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

[Poma][a]

var
   s : string;
   i : Char;
   j : Integer;
   a : array ['a'..'z'] of Integer;

begin
     ReadLn(s);
     for i := 'a' to 'z' do
         a[i] := 0;

     for j := 1 to Length(s) do
         Inc (a[s[j]]);

     for i := 'a' to 'z' do
         if a[i] = 1 then
            WriteLn (i);

end.

[Cooltik]

Сообщение от Poma][a

var
   s : string;
   i : Char;
   j : Integer;
   a : array ['a'..'z'] of Integer;

begin
     ReadLn(s);
     for i := 'a' to 'z' do
         a[i] := 0;

     for j := 1 to Length(s) do
         Inc (a[s[j]]);

     for i := 'a' to 'z' do
         if a[i] = 1 then
            WriteLn (i);

end.

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

[temaps]

Скорее всего просто в тексте есть пробелы и точка. Предложенный код это не учитывает и, полагаю, предлагается доработать это самостоятельно.

[Cooltik]

Сообщение от temaps

Скорее всего просто в тексте есть пробелы и точка. Предложенный код это не учитывает и, полагаю, предлагается доработать это самостоятельно.

Спасибо я теперь понял, но я не бом бом как это сделать...

[Cooltik]

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

[Serge_Bliznykov]

ну нельзя же быть таким беспомощным!!

ладно. вот так попробуйте (в решение я добавил только ОДНУ проверку - остальные изменения - чистая "косметика" )

var
   s : string;
   i : Char;
   j : Integer;
   a : array ['a'..'z'] of Integer;

begin
     ReadLn(s);
     for i := 'a' to 'z' do
         a[i] := 0;

     for j := 1 to Length(s) do
        if (s[j]>='a') and (s[j]<='z') then
           Inc (a[s[j]]);

     WriteLn;
     Write('small latin symbols which occure once only: ');
     for i := 'a' to 'z' do
         if a[i] = 1 then
            Write(i,' ');
     WriteLn;

end.

Poma][a, кстати, а осутствие проверки в данном случае - это ваш "прокол". Ведь те символы, которые приводят ваш код к краху допустимы согласно условию задачи. Неаккуратно код пишете...

[Poma][a]

Уважаемый! прошу учесть что программы я пишу не для себя и\ или по заказу, надо же господам студентам что-то поделать?
и развилочка не красивая... я бы так сделал

if s[j] in ['a'..'z'] then

и булеву алгебру использовать не надо

[Cooltik]

ВСЕМ СПАСИБО БОЛЬШОЕ!!!!!

[TinMan]

Сообщение от Poma][a

Уважаемый! прошу учесть

Ох, Ромаха.. горазд ты оправдываться )). Сделал ошибку - признал и пошел! фикли тут про господ студентов и булеву алгебру рассуждать..

Решение нормальное, конечно, но я, как обычно, не могу не встрять со своим вариантом )).

var
  s: string;
  c: char;
begin
  s:= 'twas brillig, and the slithy toves did gyre and gymble in the wabe.';
  for c:='a' to 'z' do
    if (Pos(c,s)>0) and (Pos(c,Copy(s,Pos(c,s)+1,255)=0) then write(c,' ')
end.

Да, я знаю, что он будет работать дольше )). Просто немного другой подход.