Напишите программу на языке Паскаль, которая получает адрес файла и разделяет его на части с использованием
Описание:
В языке Паскаль мы можем использовать функции работы со строками для разделения адреса файла на части с использованием символа ‘/’.
Основная идея программы заключается в следующем:
1. Запросить у пользователя ввод адреса файла.
2. Использовать функцию `Pos` для поиска позиции символа ‘/’ в строке, который указывает на начало следующей части адреса.
3. Использовать функцию `Copy` для выделения каждой части адреса и вывода ее на отдельной строке.
4. Повторять шаги 2 и 3 до тех пор, пока символ ‘/’ не будет найден в строке.
Пример использования:
program SplitAddress; var filePath: string; slashIndex: integer; begin writeln('Введите адрес файла: '); readln(filePath); repeat slashIndex := pos('/', filePath); writeln(copy(filePath, 1, slashIndex - 1)); filePath := copy(filePath, slashIndex + 1, length(filePath) - slashIndex); until slashIndex = 0; end.
Совет: Чтобы лучше понять, как работает программа, рекомендуется ввести несколько разных адресов файлов и проследить, как они разделяются на части.
Упражнение: Напишите программу на языке Паскаль, которая получает адрес файла и разделяет его на части с использованием символа ‘.’. Каждая часть должна быть выведена на отдельной строке. Пример: Введите адрес файла: image.png