Текстовые файлы и 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

[TarasBer]

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

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

Для того, чтобы ввод и вывод делался из текстовых файлов, надо в начале программы (после главного бегина) написать

Assign(input, 'task2.in');
Reset(input);
Assign(output, 'task2.out');
Rewrite(output);

А в конце программы написать

Close(input);
Close(output);

Сообщение отредактировано: TarasBer - 17.06.2011 11:15