В результирующий файл Outlet.out записать имя файла без указания пути к нему - Pascal

Узнай цену своей работы

Формулировка задачи:

помогите пожалуйста !!! Дан текстовый файл Inlet.in , содержащий строко-вые величины S , значения которых – полные имена файлов, т.е. имя диска, список каталогов (путь ), соб-ственно имя файла и его расширение. В результирующий файл Outlet.out записать соб-ственно имя файла (без указания пути к нему).

Решение задачи: «В результирующий файл Outlet.out записать имя файла без указания пути к нему»

textual
Листинг программы
var f,g:text;
    s,s1:string;
    i:byte;
begin
assign(f,'inlet.in');//файл в папке с программой
reset(f);
assign(g,'outlet.out');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s1:='';
  i:=length(s);
  while(i>0)and(s[i]<>'\') do
   begin
    s1:=s[i]+s1;
    i:=i-1;
   end;
 writeln(g,s1);
end;
close(f);
close(g);
write('Файл inlet.in прочитан, имена файлов записаны в файл outlet.out')
end.

Объяснение кода листинга программы

  1. Объявляется переменная f для обозначения файла ввода и переменная g для обозначения файла вывода.
  2. Создается переменная s для хранения строковых данных и переменная s1 для хранения результата обработки строки.
  3. Создается переменная i для хранения числовых данных.
  4. Присваивается переменной f значение inlet.in для файла в папке с программой.
  5. Выполняется открытие файла f с помощью процедуры assign и reset для чтения.
  6. Присваивается переменной g значение outlet.out для файла вывода.
  7. Выполняется открытие файла g с помощью процедуры assign и rewrite для записи.
  8. До тех пор, пока файл f не закончится, выполняется чтение строки из файла f в переменную s.
  9. Обнуляется переменная s1.
  10. Находится длина строки s и присваивается переменной i.
  11. Выполняется цикл: пока i больше 0 и символ в позиции i в строке s не равен символу \.
  12. Внутри цикла: значение в позиции i строки s добавляется к переменной s1, затем уменьшается i на 1.
  13. Записывается значение переменной s1 в файл g.
  14. Закрытие файлов f и g с помощью процедур close.
  15. Вывод сообщения Файл inlet.in прочитан, имена файлов записаны в файл outlet.out на экран.

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы