Информация на компьютере хранится в структурированном виде. Есть система. На жестком диске размечены логические диски. Чаще всего это либо диск С, либо диски С и D.
Каждый диск представляет из себя древовидную структуру директорий или иначе каталогов (нынче именуемых ПАПКИ) в которых хранятся файлы и, возможно, поддиректории/подпапки.
К нашей задаче.
Пользователь работал с каталогом Автомобили. Затем он поднялся на один уровень выше, затем спустился на 2 ниже и попал в
С:\Транспорт\Сухопутный\Почтовый\Железнодорожный
получается, на 2 уровня выше будет
С:\Транспорт\Сухопутный\.
А на один ниже - тот из которого начинает путь пользователь - Автомобили, получаем
ОТВЕТ: С:\Транспорт\Сухопутный\Автомобили.
Аналогичная задача.
Пользователь находился в каталоге Расписание.Сначала он поднялся на один уровень вверх, затем ещё раз поднялся на один уровень вверх, потом спустился на один уровень вниз. В результате он оказался в каталоге
С:\учёба\информатика\ГИА.
Укажите полный путь каталога, с которым пользователь начинал работу.
1) С :\учёба\информатика\2013\Расписание -- верный ответ
2) С:\учёба\Расписание
3) С:\учёба\2013\Расписание
4) С :\учёба\информатика\Расписание
const
nn = 25; // максимум слов
var
a: array[1..nn] of string[20];
procedure Parser(s: string; var k: integer);
var
i,n: integer;
w: string;
begin
w := '';
k := 0;
n := length(s);
for i := 1 to n do
if s[i] <> ' ' then w := w + s[i]
else
if length(w) > 0 then
begin
k := k + 1;
a[k] := w;
w := '';
end;
if length(w) > 0 then
begin
k := k + 1;
a[k] := w;
end;
end;
var
s: string[254];
i, k: integer;
begin
Readln(s);
Parser(s, k);
for i := 1 to k do
if Pos('ар', a[i]) > 0 then
write(a[i], ' ');
end.
Программа уровня Турбо Паскаль