Работа в Pascal с файлами

[ZveRtheGameS]

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

Буду искренне благодарен! Заранее спасибо за Ваше уделенное время на меня. Если можно, попрошу расписать поподробнее Ваши шаги по написанию алгоритма.

[Arigato]

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

Если можно, попрошу расписать поподробнее Ваши шаги по написанию алгоритма.

Так ведь просили помочь, а в итоге просите сделать всю работу за вас, разжевать и в рот положить. Такое в разделе Фриланс делается, а тут только помощь.

[ZveRtheGameS]

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

Так ведь просили помочь, а в итоге просите сделать всю работу за вас, разжевать и в рот положить. Такое в разделе Фриланс делается, а тут только помощь.

Хорошо, я понял вашу мысль.

Создал типизированный файл, но работоспособность не могу проверить. При записи значении, размер файла не изменяется.

Вот код создания типизированного файла:

 const n = 4;
         type
         t_subs = record
         surname: string[20];
         stroka: longint;
       end;
     var
     subs: t_subs;
     f: file of t_subs;
     i: integer;
begin
assign (f, 'a.dat');
rewrite(f);
for  i:= 1 to n do
with subs do begin
  write ('vvedite file:= ');
  readln(surname);
  write('vedi stroky:= ');
  readln(stroka);
  write(f, subs);
end;
close (f);

end.

[Arigato]

При чем тут типизированный файл, если в задаче сказано, что дан текстовый файл?

[ZveRtheGameS]

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

При чем тут типизированный файл, если в задаче сказано, что дан текстовый файл?

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

[Arigato]

Текстовый файл можно создать в Блокноте.

[ZveRtheGameS]

Проблема актуальна...

[ZX Spectrum-128]

Дан текстовый файл. Переписать в другой файл части строк, начинающихся с последнего слова, которые не содержат цифры.

Мама1 мыла2 345, раму мылом.
То есть, нужно выдергивать только "раму мылом"? Разделители между словами пробелы и знаки препинания?

[Mad_Cat]

Function MyCopy(str:string):string;
var i:byte;
begin
MyCopy:='';
i:=length(str);
while not (str[i] in ['0'..'9']) and (i>1)do dec(i);
if i<>1 then
begin
delete(str,1,i);
i:=1;
while (Str[i]<>' ') and (i<length(str)) do inc(i);
delete(str,1,i);
MyCopy:=str;
end;
end;
var s:string; f,g:text;
begin
assign(f,'in.txt');
assign(g,'out.txt');
reset(f);
rewrite(g);
while not eof(f) do begin
readln(f,s);
writeln(g,Mycopy(s));
end;
close(f);
close(g);
end.

[ZveRtheGameS]

Сообщение от ZX Spectrum-128

Мама1 мыла2 345, раму мылом.
То есть, нужно выдергивать только "раму мылом"? Разделители между словами пробелы и знаки препинания?

да, только "раму мылом", без знаков препинания...