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©;
inc(j);
end else
if (c in [',','.'])and(j>0) then
begin
write©;
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.
Нужно в етот код внести добавления, чтобы выполнить задание:
Реализовать ввод из текстового файла и обработку символьных последовательностей состоящих из любых символов. В программе должны быть предусмотрены соответствующие процедуры и функции, корректно обрабатывающие входные данные. Результат должен запоминаться тоже в текстовом файле и в понятном для интерпретации виде.
Заранее большое и человеческое спасибо!