05.06.2011, 14:05 | #1 (permalink) |
Member
Регистрация: 03.06.2011
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Поиск файлов
именами, которые имеются в текущем каталоге. |
05.06.2011, 14:05 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Тут вы можете ознакомиться с похожими темами Линейный поиск Поиск резисторов Opera 11 и поиск пропавших файлов Ищу прогу по поиску дубликатов файлов (поиск одинаковых файлов) на диске. |
05.06.2011, 17:39 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR S:Array[1..4] of String; i,N:byte; f:Text; BEGIN {$I-} N:=0; For i:=1 to 4 do begin writeln('Name[',i,']:'); readln(S[i]); end; For i:=1 to 4 do begin Assign(f,S[i]); ReSet(f); If IOResult=0 then Inc(N); end; writeln('N= ',N); readln END. |
|
05.06.2011, 18:19 | #4 (permalink) |
Лентяй
Регистрация: 13.04.2009
Адрес: Тверь
Сообщений: 16,556
Записей в дневнике: 29
Сказал(а) спасибо: 15
Поблагодарили 81 раз(а) в 14 сообщениях
Репутация: 24915
|
Фига, Владимир это вы уже прям всерьёз телепатией овладели, даже не задавая вопросов о языке сразу код выдали
|
05.06.2011, 18:23 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
05.06.2011, 23:43 | #7 (permalink) |
Member
Регистрация: 03.06.2011
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
СПАСИБО БОЛЬШОЕ!!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|