Pascal работа с текстовым файлом поиск предложений

[ssovec]

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

[Stilet]

но как то туплю

Ну а сам то что сделал уже?
Ато ведь ща такое покажем - любой препод расколет на раз )

[domovou]

uses Wincrt;
type fil=text;
var f1:fil;
    z:array[1..3] of string;
    a:string;
    i,w,n,y:integer;
procedure wwod;
begin
assign(f1,'t1.dat');
rewrite(f1);
writeln('Введите кол-во строк в файле:');
readln(y);
for i:= 1 to y do
    begin
    writeln('Введите ',i,' строку');  {}
    readln(a);
    writeln(f1,a);
    end;
close(f1);
end;

procedure prosm;
begin
assign(f1,'t1.dat');
reset(f1);
writeln('Содержание текстового файла:');
while not eof(f1) do
      begin
      a:='';
      readln(f1,a);
      writeln(a)
      end;
close(f1);
end;

procedure naxod;
begin
assign(f1,'t1.dat');
reset(f1);
n:=3;
for i:=1 to n do
    readln(f1,z[i]);
for i:=n downto 1 do
    writeln(z[i]:2);

close(f1);
end;

begin
w:=0;
while w<>4 do
      begin
      writeln('           Меню программы');
      writeln('1-Создание текстового файла');
      writeln('2-Просмотр текстового файла');
      writeln('3-');
      writeln('4-Выход из программы');
      write('             Ваш выбор -> ');
      readln(w);
      case w of
           1:wwod;
           2:prosm;
           3:naxod;
           end;
      writeln
      end;
end.

[Poma][a]

Домовой, пожалуйста используйте форматирование! НЕмУЧаЙтЕнАшИгЛаЗа!

[TinMan]

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

Задачка легкая но как то туплю

Меня такие слова всегда удивляют. "задачка легкая", ага. ссовец - давай, ты будешь называть легкими задачи, которые МОЖЕШЬ решить. Ваще уже..

домовой, а почему ты решил, что одна_строка=одно_предложение? Я полагаю (из первого класса), что предложения делятся специальными знаками препинания, как-то: точка, вопросительный знак, восклицательный знак, многоточие.

Читать построчно тут не стОит (если, конечно, оставаться в рамках обычных turbo-строк). Можно, думаю, предположить, что длина предложения не превышает 255 символов, и расфасовывать их в строки. Но читать файл все же лучше посимвольно.

[domovou]

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

домовой, а почему ты решил, что одна_строка=одно_предложение? Я полагаю (из первого класса), что предложения делятся специальными знаками препинания, как-то: точка, вопросительный знак, восклицательный знак, многоточие.

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

[Paster Fob]

var s:string;ch:char;
    i,n:integer;
    a:array [1..3] of string;
    f:text;

begin
  assign(f,'C:\Files for Program Pascal\input.txt');
  reset(f);
  s:='';n:=0;
  while n<3 do begin
    read(f,ch);
    s:=s+ch;
    if ch='.' then begin
      inc(n);
      a[n]:=s;
      s:='';
    end;
  end;
  close(f);
  for i:=n downto 1 do
    writeln(a[i]);
  readln
end.

[Hacker19_90]

while n<3 do begin
    read(f,ch);
    s:=s+ch;
    if ch='.' then begin
      inc(n);
      a[n]:=s;
      s:='';
    end;
  end;

хм... интересно что же будет, если в файле точек меньше 3? ...

[Poma][a]

const 
        EX  = ['.', '...', '!', '?']; // да кстати ... это один символ.

var s:string;ch:char;
    i,n:integer;
    a:array [1..3] of string;
    f:text;

begin
  assign(f,'C:\Files for Program Pascal\input.txt');
  reset(f);
  s:='';n:=0;
  while n<3 do begin
    read(f,ch);
    s:=s+ch;
    if ch in EX then begin
      inc(n);
      a[n]:=s;
      s:='';
    end;
  end;
  close(f);
  for i:=n downto 1 do // меня учили что если кол-во итераций меньше 10, то правилом хорошего тона считается не использовать цикл. (и кто знает вдруг глюк и n <> 3, лучше уж писать точное значение)
    writeln(a[i]);
  readln
end.

Слегка исправил, суть не смотрел...

[Paster Fob]

Сообщение от Poma][a

[CODE]
const
EX = ['.', '...', '!', '?']; // да кстати ... это один символ.

В PascalABCnet такой вариант проходит.Во FPC нет.