Обработка символьных данных и строк в Turbo Pascal. Контрольная Работа.

[Katonka]

Задав с клавиатуры последовательность символов, реализовать обработку ее, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику конкретного варианта (Вариант будет ниже).
В программе должны быть предусмотрены процедуры ввода-вывода последовательности символов и ее обработки. Исходные данные должны вводиться с проверкой на область допустимых значений.

Вариант: Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать все слова, которые встречаются в последовательности по одному разу.

Я заранее очень и очень благодарен за помощь

[Sparkman]

uses crt;
var s : array [1..30] of String[5];
    i,j,n:byte;
    c:char;
    b:boolean;
begin
     ClrScr;
     n:=1;
     write('Enter string: ');
     while (n<30)and(c<>'.') do
     begin
          c:=readkey;
          if c=#27 then halt else
          if (c in ['A'..'Z'])and(j<5) then
          begin
               s[n]:=s[n]+c;
               write(c);
               inc(j);
          end else
          if (c in [',','.'])and(j>0) then
          begin
               write(c);
               inc(n);
               j:=0;
          end else
          if (c='.')and(j=0) then c:=#0 else
     end;
     writeln;
     writeln('Result:');
     for i:=1 to n do
     begin
          b:=true;
          for j:=1 to n do
          if (i<>j)and(s[i]=s[j])then
          begin
               b:=false;
               break;
          end;
          if b then writeln(s[i]);
     end;
     readln;
end.

[Katonka]

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

uses crt;
var s : array [1..30] of String[5];
.....

чета както не работает((
У меня паскаль АБЦ. Модуль црт запускает отдельное окно, пишеться Ентер Стринг, и дальше информация не вводиться...



Не надо ЦЕЛИКОМ цитировать сообщение.
Это называется OVERQUOTING (излишнее цитирование)
Удаляйте, пожалуйста, лишнее...

Модератор. (

[Utkin]

Обработка символьных данных и строк в Turbo Pascal

и

У меня паскаль АБЦ.

Чего тогда на судьбу жалуемся?

[Katonka]

А паскаль АБЦ ето плохо?
Или там код отличаеться?

[Katonka]

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

и

Чего тогда на судьбу жалуемся?

Поставил Турбо Паскаль 7.1, а проблема все таже. Данные не вводяться в прошрамму...((

[Serge_Bliznykov]

А паскаль АБЦ ето плохо?
Или там код отличаеться?

в данном случае - НИЧЕМ!!

просто Вам автор программы Sparkman не сказал,
а сами Вы по коду прочитать не смогли (или не сумели!),
Программа позволяет вводить ТОЛЬКО БОЛЬШИЕ ЛАТИНСКИЕ БУКВЫ, ЗАПЯТЫЕ, ТОЧКУ.
и всё..

p.s. чтобы вводились и большие, и маленькие латинские буквы исправьте строку:

          if (c in ['A'..'Z','a'..'z'])and(j<5) then

[Katonka]

Я На столько всем вам благодарен.... я могу чтото полезное для вас сделать?

[Sparkman]

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

...Вариант: Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать все слова, которые встречаются в последовательности по одному разу...

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

[Serge_Bliznykov]

На столько всем вам благодарен.... я могу чтото полезное для вас сделать?

Ага. Хорошо учиться!

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

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

Угу. Точно. Ваш исходный код был строго по условию задачи!!