Задача на файлы. Опции

[Анисия]

Добрый день, помогите решить задачу, есть файл со словами разделенных пробелом, вывести в новый файл все слова отличные от последнего. Первый файл я получила, читаю строки из него. А что дальше делать не знаю, или считать кол-во слов, или удалаять подстроку из строки.

program Lab3;
uses crt;
var f, g: text;
y, x :string; i:integer;

begin
clrscr;
assign(f,'C:\bp\bin\t.txt');
reset(f);
writeln('Содержание файла <f>');
repeat
readln(f, y);
writeln(' ', y);
until (eof(f));
close(f);
end.

[Unconnected]

не обрабатываются пробелы перед/после дефиса
и что за пробелы такие перед/после дефиса?..

Unconnected, а ты вообще проверяешь свои решения?..

Насчёт дефиса - это я имел в виду, что если дать программе word - word например, то '-' будет считаться за слово. А решение я проверял. Входной файл:

abc defg hig klm nopqr

Выходной файл:

abc
defg
hig klm

Вот что не в строку пишет это да.

[Lapp]

Насчёт дефиса - это я имел в виду, что если дать программе word - word например, то '-' будет считаться за слово.

Я извиняюсь за излишние придирки, я хотел сказать, что то, что ты имеешь в виду называется в русском языке "тире" (хлеб - всему голова), а дефис соединяет два слова (как-то, сильно-пресильно) и никаких пробелов при нем в принципе быть не может. Правда, в обычном компьютерном тексте (txt) оба они как правило представлены одним символом (минусом), так что различимы только по контексту. Еще раз извиняюсь, я понимаю, что это форум не филологов..

Думаю, то, что тире считается за отдельное слово - совершенно нормальное явление в тех условиях, которые приведены Анисией, так что извиняться тут не за что.

А решение я проверял.

И еще раз извиняюсь. Я что-то никак не могу врубиться в требования задачи: может ли в файле быть несколько строк? (Анисия, ответь, пожалуйста.) Я проверял на файле с неколькими строками, потому, наверное, и получил не то. Сам не знаю, почему я привязался к многострочным файлам.. наверное, потому, что одной строки в 255 символом слишком уж мало, чтоб носить гордое имя файла)).

Ниже - реализация функции GetWord, о которой я говорил раньше. Файл может содержать много строк (каждая не больше 255 символов. Структура основной программы в целом selfexplainable, но могу дать пояснения, если надо. К функции тоже, конечно .

var
  f,g: text;
  s,t,w: string;
  p: byte;

function GetWord: string;
begin
  repeat
    if s='' then ReadLn(f,s);
    while (s<>'')and(s[1]=' ') do Delete(s,1,1);
  until (s<>'')or EoF(f);
  p:=Pos(' ',s);
  if p=0 then p:=Length(s) else Dec(p);
  GetWord:=Copy(s,1,p);
  Delete(s,1,p)
end;

begin
  Assign(f,'in.txt');
  ReSet(f);
  s:='';
  t:='';
  repeat
    w:=t;
    t:=GetWord;
  until t='';
  ReSet(f);
  s:='';
  Assign(g,'out.txt');
  ReWrite(g);
  repeat
    t:=GetWord;
    if t<>w then Write(g,t,' ')
  until t='';
  Close(g);
  Close(f)
end.

Сообщение отредактировано: Lapp - 3.03.2009 14:48