Работа с текстовыми файлами (из Файла input.txt переписать слова в файл output.txt, удалив все слова, заданные в файле diction.dic

[ZX Spectrum-128]

Ааааа, дошло

var s:string;

 procedure dict;
 var k:string; f:text;
 begin
  assign(f,'diction.txt'); reset(f);
   while not eof(f) do begin readln(f,k);s:=s+k+' ';end;
  close(f);
 end;

 var k:string; i:integer;
  fin,fout:text;
begin dict;
   assign(fin,'input.txt'); assign(fout,'output.txt');
   Reset(fin); rewrite(fout);
   while not eof(fin) do begin
    Readln(fin,k);
    i:=pos(' ',k);
    while i<>0 do begin
     if pos(copy(k,1,i-1),s)<>0 then writeln(copy(k,1,i-1));
     delete(k,1,i+1); i:=pos(' ',k);
    end;
      Writeln(fout,k);
   end;
  Close(fin);close(fout);
end.

Не проверено, комп пока отсутсвует

[Stilet]

rewrite(output); // <-- добавьте

Странно... Я думал что такие стандарты сам паскаль открывает...

[ZX Spectrum-128]

По умолчанию, input - ввод с клавиатуры, output - выводна экран. Могу ошибаться.

Рискнул предложить свой вариант

const
  limits = [#0..#32,'.',',',':',';','!','?','"'];
type
   TWords = array[1..40] of string;
var
  k:string;
  count,i:integer;
  dict,fin,fout:text;
  texts : string;
  mywords,words : TWords;
  text : string[80];
//  mywords:allwords;
  f : textfile;
  nwords:word;


function GetWords(s : string; var w : TWords) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;
  getwords:=n;
end;

begin
  assign(dict,'diction.txt');
  reset(dict);
  count:=0;
  while not eof(dict) do
    begin
      readln(dict,texts);
      nwords:=getwords(texts,words);
      for i:=1 to nwords do
        mywords[i+count]:=words[i];
      count:=count+nwords;
    end;
  close(dict);

  assign(fin,'input.txt');
  assign(fout,'output.txt');
  Reset(fin);
  rewrite(fout);
  while not eof(fin) do
    begin
      Readln(fin,k);
      for i:=1 to count do
        delete(k,pos(mywords[i],k),length(mywords[i]));
      writeln(fout,k);
    end;
  Close(fin);close(fout); 
end.

[Stilet]

По умолчанию, input - ввод с клавиатуры, output - выводна экран. Могу ошибаться.

Ну да. Так и есть. И их можно перенаправить, что я и попытался. Но видимо неудачно, ибо подзабыл нужно ли их открывать и закрывать.

[Polina25]

как же мне проверить работает программа или нет?

[Serge_Bliznykov]

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

как же мне проверить работает программа или нет?

Можно заполнить файлы и запустить программу.
Если в output.txt попадут нужные слова, значит, программа работает.
Если нет - то не работает.

[ZX Spectrum-128]

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

как же мне проверить работает программа или нет?

Работает. Я проверял на ваших же файлах.

[Polina25]

спасибо большое еще раз, вы меня очень выручили!