Текстовые файлы и Turbo Pascal Опции

[Katonka]

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

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.

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

Реализовать ввод из текстового файла и обработку символьных последовательностей состоящих из любых символов. В программе должны быть предусмотрены соответствующие процедуры и функции, корректно обрабатывающие входные данные. Результат должен запоминаться тоже в текстовом файле и в понятном для интерпретации виде.

Заранее большое и человеческое спасибо!

Сообщение отредактировано: Lapp - 17.06.2011 22:30

[Krjuger]

input,output надо описать как file of,а дальше чего тебе угодно например :

var
input,output: file of char;