Сообщения со словом
«fclose»

11. 23.12.2007, 16:05. Ruben в теме
    «Неделя 1. Полный перебор»
    ... fin exit 0 file fout fopen transform out w if fout fclose fin exit 0 int n fscanf fin d n n square sq1 n fin square sq2 n fin fprintf fout d n gettransform sq1 sq2 fclose fin fclose fout exit 0
12. 23.12.2007, 13:22. Ruben в теме
    «Неделя 1. Полный перебор»
    ... if fin exit 0 file fout fopen milk2 out w if fout fclose fin exit 0 int n fscanf fin d n n mypair t mypair malloc sizeof mypair n for int z 0 z n z fscanf fin d d n t z b t z e qsort t n sizeof mypair comparator int i 0 j 1 k 0 e1 0 b2 0 e2 0 m t 0 e t 0 b l 0 z 1 f 0 cnt1 m cnt2 0 while j n b2 t j b e2 t j e k e2 b2 e1 t i e if e1 b2 if e1 e2 m k e1 b2 else j f 1 continue else if l b2 e1 cnt2 cnt2 l if m cnt1 cnt1 m m k if f i j j f 0 else i j free t fprintf fout d d n cnt1 cnt2 fclose fin fclose fout exit 0
13. 15.12.2007, 18:59. Ruben в теме
    «Неделя 0. Вступление»
    ... if fin exit 0 file fout fopen beads out w if fout fclose fin exit 0 int n fscanf fin d n n char nsymbol fread nsymbol sizeof char 1 fin n-- char c текущий обрабатываемый символ firstc первый символ firstt цвет начала ожерелья firstc c nsymbol lastt 0 цвет последнего блока int f 0 флаг первый блок строки т е до этого не было блоков другого цвета 0 иначе 1 cnt 0 максимальное количество cntfirst 0 длина первого блока wcount 0 длина последней последовательности символов w cnt0 0 длина предпоследнего блока до текущей позиции cnt1 0 длина последнего блока до текущей позиции cnt2 0 длина следующего блока do if nsymbol w c w c nsymbol if firstt w firstt c определение цвета первого блока if nsymbol c подсчет количества бусинок в первом блоке cnt1 wcount 0 если встретилась не белая бусинка обнулить счетчик бусинок белого цвета else if nsymbol w cnt1 wcount если белая увеличить этот счетчик на 1 else f 1 c nsymbol cntfirst cnt1 начало второго блока сохраняем количество бусинок в первом блоке переходим дальше break while n-- fread nsymbol sizeof char 1 fin if f блок не первый do if nsymbol c lastt c cnt2 wcount 0 в lastt заносится последний цвет последнего блока else if nsymbol w cnt2 wcount else переход к следующему блоку if cnt1 cnt2 cnt cnt cnt1 cnt2 если количество бусинок при разрыве в текущей позиции больше чем было до этого сохранить это количество cnt0 cnt1 cnt1 cnt2 wcount cnt2 wcount 1 cnt2 wcount 1 т к в новом блоке должны учитываться белые бусинки предыдущего блока wcount 0 c nsymbol lastt c while n-- fread nsymbol sizeof char 1 fin cnt0 cnt1 cnt1 cnt2 if cnt0 cnt1 cnt cnt cnt0 cnt1 if c firstc firstc w cnt2 lastt firstt cnt0 0 cnt1 cntfirst cnt обработка ситуации в которой складывается количество бусинок в конце ожерелья и в начале cnt cnt2 cnt1 cntfirst fprintf fout d n cnt fclose fin fclose fout exit 0
14. 05.12.2006, 19:28. Maniak в теме
    «Matlab и C»
    ... 1 1 temp 2 1 a temp 1 -1 temp 2 -1 temp 3 end end fclose fid 2 вариант вместо функции eval разбор строки и без проверки выхода за границы диапазона чтение из файла с форматом строки i j v код fid fopen limits txt r for u 1 23000 str fgetl fid len length str n 1 i n b 0 while i len b 0 if str i k i b 1 end i i 1 end first str2num str n k-1 -1 n k 1 i n b 0 while i len b 0 if str i k i b 1 end i i 1 end second str2num str n k-1 -1 n k 1 a first second str2num str n len end fclose fid
15. 20.09.2005, 10:37. sysdba в теме
    «Почему виснет прога?»
    ... printf s 6 max ref number d n n time max ref number fclose cfg f fclose log f do log f fopen log txt a if log f null log f fopen log txt w opn f fopen sps file name rb if opn f null do nothing else fclose opn f rename sps file name usd sps sps f fopen usd sps rb if ref number 1 9999 ref number 1 0 if ref number 1 0 ref number 1 10 sprintf file number 000 i ref number 1 if ref number 1 10 ref number 1 100 sprintf file number 00 i ref number 1 if ref number 1 100 ref number 1 1000 sprintf file number 0 i ref number 1 if ref number 1 1000 ref number 1 10000 sprintf file number i ref number 1 strcpy del file name arc arc strcat del file name file number strcat del file name sps remove del file name if ref number 9999 ref number 0 if ref number 0 ref number 10 sprintf file number 000 i ref number if ref number 10 ref number 100 sprintf file number 00 i ref number if ref number 100 ref number 1000 sprintf file number 0 i ref number if ref number 1000 ref number 10000 sprintf file number i ref number strcpy new file name arc arc strcat new file name file number strcat new file name sps tzset file save 0 time secs now time now localtime secs now strftime n time 19 d- b- y t time now fprintf log f s open file s n n time new file name printf s open file s n n time new file name ref number ref number 1 ref number 1 ref number 1 1 fread n kan 2 1 sps f fclose sps f rename usd sps new file name fclose log f while 0 0
16. 09.09.2005, 12:43. sysdba в теме
    «Считывание файла.»
    ... remove deletefile rename movefile unlink deletefile fclose closehandle fflush flushfilebuffers fopen createfile...