Текстовый файл, из предложения выбросить слова в которых встречается определённая буква. (Паскаль)

[serhan]

Pascal.
Нужно считать с файла предложения, потом с этого предложения выбросить слова в которых встречается определённая буква. И потом записать у другой файл результат.

Я думаю так, что бы исключить с предложения слово буквой нужно его найти, тоесть предложение перебрать, тоесть предложение как массив...
Но как это сделать, присвоить текст массиву?
У меня вот что пока есть...

program p1;
const n=10;
var  f,g:text;
     a:array[1..n] of string;
     i:integer;
begin
  assign(g,'c:\pascal\data21.txt');
  reset(g);
  while not eof(g) do
  begin
    read(g,a[i]);
  end;
  close(g);
  assign(f,'c:\pascal\data22.txt');
  rewrite(f);
  for i:=1 to n do
  begin
       writeln(f,a[i]);
  end;
  close(f);
  readln;
end.

Подскажите пожалуйста как это сделать?

[was3110]

http://orenstudent.ru/upragPas.htm
останется немного доработать...

[serhan]

Так что доработать? Если там просто решоные другие задачи?

[New man]

перделать под себя

[RomiKon]

Блин дел то, читаешь с файла по одному символу, пока не встретися разделитель(цифры пробелы запятые точки и так далее) если в считавшейся последовательности нет интересующей нас буквы то записываешь этот набор в другой файл, затем считываешь с первого файла все символы пока не встретишь разделитель записываешь их во второй файл и повторяешь все операции выше пока не кончится файл

[New man]

type Pstr =^TStr;
       TStr = record
          str:string;
          next:Pstr;
       end;
var  Spisok,beg:Pstr;
      i,j,k:integer;
      f1,f2:text;
     bukva:char;str:string;
begin
   readln(bukva);
   assign(f1,'f1');
   reset(f1);
   new( Beg); Spisok:=beg;
   while not eof(f1) do
      begin 
         readln(f1,Spisok^.str);
         if not eof(f1) then new(Spisok^.next)
      end;
   close(f1);
   Spisok:=Beg;
   assign(f2,'f2');
rewrite(f2);
   While not(Spisok=nil ) do
     begin
       i:=0;
       while i<= length(Spisok^.str) do
           begin
              while not Spisok^.str[i] in ['A'..'Z','a'..'z'] do inc(i);
               j:=i;
              while Spisok^.str[i] in ['A'..'Z','a'..'z'] do inc(i);
               k:=i;
               str:=copy(Spisok^.str,j,k-j);
               Delete(Spisok^.str,j,k-j);
               if pos(str,bukva)=0 do insert(str,Spisok^.str,j); 
           end;
       Spisok:=Spisok^.next;
end;
   Spisok:=Beg;
  while not(Spisok=nil)do
    begin
      writeln(f2,Spisok^.str);
      Spisok:=spisok^.next;
end;
  close(f2);
end.

[serhan]

New man, как с тобой можно связатся? Аська?

[New man]

program PDD;
type Pstr =^TStr;
       TStr = record
          str:string;
          next:Pstr;
       end;
var  Spisok,beg:Pstr;
      i,j,k:integer;
      f1,f2:text;
     bukva:char;str:string;
begin
   readln(bukva);
   assign(f1,'f1');
   reset(f1);
   new( Beg); Spisok:=beg;
   while not eof(f1) do
      begin 
         readln(f1,Spisok^.str);
         if not eof(f1) then new(Spisok^.next)
      end;
   close(f1);
   Spisok:=Beg;
   assign(f2,'f2');
rewrite(f2);
   While not(Spisok=nil ) do
     begin
       i:=0;
       while i<= length(Spisok^.str) do
           begin
              while not Spisok^.str[i] in ['A'..'Z','a'..'z','А'..'Я','а'..'я','Ёё'] do inc(i);
               j:=i;
              while Spisok^.str[i] in ['A'..'Z','a'..'z','А'..'Я','а'..'я','Ёё'] do inc(i);
               k:=i;
               str:=copy(Spisok^.str,j,k-j);
               Delete(Spisok^.str,j,k-j);
               if pos(str,bukva)=0 do insert(str,Spisok^.str,j); 
           end;
       Spisok:=Spisok^.next;
end;
   Spisok:=Beg;
  while not(Spisok=nil)do
    begin
      writeln(f2,Spisok^.str);
      beg:=spisok;
      Spisok:=spisok^.next;
     dispose(BEG);
end;
  close(f2);
  
end.

А это оптимизация

[serhan]

New man, как с тобой связаться?
моя аська 381359821

[New man]

зачем? 45546545646465465