IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Чтение из корневого каталога дискеты, не знаю, что делать!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Женский
Реальное имя: Леночка

Репутация: -  0  +


Всем привет! Люди, в субботу зачет, помогите!
Задача: "Прочитать из корневого каталога дискеты, все файлы с расширением *.doc"
Кто знает, киньте, пожалуйста, пример кода!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Что значит "прочитать"? Список что-ли вывести? Тогда это FindFirst+FindNext - три строчки кода...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Женский
Реальное имя: Леночка

Репутация: -  0  +


Да, вывести список, а ты не мог бы напечать три этих строчки?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






uses dos;
var DirInfo: SearchRec;
begin
FindFirst('A:\*.DOC', Archive, DirInfo);
while DosError = 0 do begin
Writeln(DirInfo.Name);
FindNext(DirInfo);
end;
end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Кто-нибудь сможет, буквально за 10 мин помощь мне?!Мне необходимо написать программу на Паскале, считающую количество файлов созданных в текущем месяце на корневом каталоге дискеты
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 6
Пол: Женский
Реальное имя: Леночка

Репутация: -  0  +


Volvo, большое спасибо, все работает! Но где там идет использование прерывания 13h?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Цитата
Но где там идет использование прерывания 13h?
А где у тебя в задании было сказано про использование этого прерывания? Я что, телепат?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Это =MaZaTRaKeR=! Volvo, прости пожалуйста, но, нам нельзя использовать dos как сделать эту же задачу с использованием 13h?
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 25.11.2020 4:07
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name