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

String58. Дана строка, содержащая полное имя файла, то есть имя диска, список каталогов (путь), собственно имя и расширение. Выделить из этой строки имя файла (без расширения).

Решение:

program String58;
var
 FullName,Name:String;
 i,dot:integer;

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

  Name:='';
  i:=1;
  While (i<=Length(FullName)) do
   begin
    if (FullName[i]='\') or (FullName[i]='\') then Name:='';//"or (FullName[i]='\')" можно убрать... это усорвие чисито моё миро ощущение
    if FullName[i]='.' then dot:=Length(Name);
    Name:=Name+FullName[i];
    inc(i);
   end;
  Delete(Name,1,1);
  Delete(Name,dot,Length(Name)-dot+1);
  Writeln(Name);
end.

program String58;

var

FullName,Name:String;

i,dot:integer;

begin

Write('FullName: ');

Readln(FullName);

Name:='';

i:=1;

While (i<=Length(FullName)) do

begin

if (FullName[i]='\') or (FullName[i]='\') then Name:='';//"or (FullName[i]='\')" можно убрать... это усорвие чисито моё миро ощущение

if FullName[i]='.' then dot:=Length(Name);

Name:=Name+FullName[i];

inc(i);

end;

Delete(Name,1,1);

Delete(Name,dot,Length(Name)-dot+1);

Writeln(Name);

end.

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

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

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

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