Решаем задачи Абрамян на Паскале. String61

String61. Дана строка, содержащая полное имя файла. Выделить из этой строки название последнего каталога (без символов «\»). Если файл содержится в корневом каталоге, то вывести символ «\».

Решение:

program String61;
var
 FullName,FolderName:String;
 i,poz:integer;

begin
  Write('FullName: ');
  Readln(FullName);

  Delete(FullName,1,pos('\',FullName));
  poz:=pos('\',FullName);

  FolderName:='';

  while (poz>0) do
   begin
    FolderName:=Copy(FullName,1,pos('\',FullName)-1);
    Delete(FullName,1,poz);
    poz:=pos('\',FullName)
   end;

  if FolderName='' then FolderName:='\';
  Writeln(FolderName);
end.

program String61;

var

FullName,FolderName:String;

i,poz:integer;

begin

Write('FullName: ');

Readln(FullName);

Delete(FullName,1,pos('\',FullName));

poz:=pos('\',FullName);

FolderName:='';

while (poz>0) do

begin

FolderName:=Copy(FullName,1,pos('\',FullName)-1);

Delete(FullName,1,poz);

poz:=pos('\',FullName)

end;

if FolderName='' then FolderName:='\';

Writeln(FolderName);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String61

Комментарии:

Добавить комментарий Отменить ответ