Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Паскаль / do9 / iriepas201 / Irie Pascal / samples / fmatch
.pas program filematch(output);
begin
writeln(filematch('*', 'filename'));
writeln(filematch('a?c', 'abc'));
writeln(filematch('a?c', 'adc'));
writeln(filematch('a?c', 'azc'));
writeln(filematch('a?c', 'azcd'));
writeln(filematch('a?c', 'az'));
end.
begin
writeln(filematch('*', 'filename'));
writeln(filematch('a?c', 'abc'));
writeln(filematch('a?c', 'adc'));
writeln(filematch('a?c', 'azc'));
writeln(filematch('a?c', 'azcd'));
writeln(filematch('a?c', 'az'));
end.
Соседние файлы в папке samples