Выделить из строки название последнего каталога - Turbo Pascal
Формулировка задачи:
Здравствуйте. Не могли бы вы помочь мне с задачкой...
Дана строка, содержащая полное имя файла. Выделить из строки название последнего каталога (без символов ''\''). Если файл содержится в корневом каталоге, то вывести символ ''\''.
Решение задачи: «Выделить из строки название последнего каталога»
textual
Листинг программы
var
str,s:string;
k,i:byte;
begin
str:='C:\lza\sdfdsf\123\test.111'; //если ввод нужен то readln(str); а эту строку удали
for i:=length(str) downto 1 do
if str[i]='\' then inc(k)
else
if k=1 then s:=str[i]+s;
if k=1 then write('\')
else writeln(s);
readln
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д