работа с текстовыми файлами, а вот это...Это мой экзамен... извините но ребенок тупой.... Опции

[Багирка]

написать программу, которая считывает текст из файла Input.txt и выводит в файл Output.txt все предложения в обратном порядке.

[Lapp]

написать программу, которая считывает текст из файла Input.txt и выводит в файл Output.txt все предложения в обратном порядке.

Вот, смотри.
Это решение твоей задачи. Оно использует точку в качестве разделителя предложений. Годится для предложений любой длины и не использует дополнительной памяти для хранения данных (ну, кроме одного байта ).

Но.. в нем не хватает одной строки! Пропущенная строка отмечена комментарием:

var
  f,g: file of char;
  s,p,t: LongInt;
  b: boolean;
  c: char;

begin
  Assign(f,'Input.txt');
  ReSet(f);
  Assign(g,'Output.txt');
  ReWrite(g);
  s:=FileSize(f);
  p:=0;
  while not EoF(f) do begin
    for b:=false to true do begin
      Seek(f,p);
      if b then Seek(g,s-t) else t:=p;
      while not EoF(f) do begin
        Read(f,c);
        { здесь должна быть строка вида:  if ... then ... else ... ; }
        if c='.' then break
      end
    end;
    p:=t+1
  end;
  Close(f);
  Close(g)
end.

Догадаешься, что там надо вставить вместо многоточий - все будет тип-топ. Нет - ну, "не судьба" ((С) известный анекдот ).

[Багирка]

Вот, смотри.
Это решение твоей задачи. Оно использует точку в качестве разделителя предложений. Годится для предложений любой длины и не использует дополнительной памяти для хранения данных (ну, кроме одного байта ).

Но.. в нем не хватает одной строки! Пропущенная строка отмечена комментарием:

var
  f,g: file of char;
  s,p,t: LongInt;
  b: boolean;
  c: char;

begin
  Assign(f,'Input.txt');
  ReSet(f);
  Assign(g,'Output.txt');
  ReWrite(g);
  s:=FileSize(f);
  p:=0;
  while not EoF(f) do begin
    for b:=false to true do begin
      Seek(f,p);
      if b then Seek(g,s-t) else t:=p;
      while not EoF(f) do begin
        Read(f,c);
        { здесь должна быть строка вида:  if ... then ... else ... ; }
        if c='.' then break
      end
    end;
    p:=t+1
  end;
  Close(f);
  Close(g)
end.

Догадаешься, что там надо вставить вместо многоточий - все будет тип-топ. Нет - ну, "не судьба" ((С) известный анекдот ).

Догадаюсь!!! спасибо!!!!!! мона вас в щечку