代码搜索：CLOSE
找到约 10,000 项符合「CLOSE」的源代码
代码结果 10,000
www.eeworm.com/read/460389/7251860
~cpp student.~cpp
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Student.h"
#include "Unit1.h"
#include "Login.h"
//------------------
www.eeworm.com/read/460389/7251892
cpp student.cpp
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Student.h"
#include "Unit1.h"
#include "Login.h"
//------------------
www.eeworm.com/read/460384/7252196
f90 e_4_2_2.f90
OPEN(3,FILE='FDIR',FORM='FORMATTED',ACCESS='DIRECT',RECL=10)
WRITE(3,'(A10)',REC=1) 'RECORD ONE'
WRITE(3,'(I5)',REC=3) 30303
CLOSE(3)
END
www.eeworm.com/read/460384/7252209
f90 e_4_2_3.f90
CHARACTER xyz(3)
INTEGER(4) idata(35)
DATA idata/35*-1/,xyz/'x','y','z'/
OPEN(3,FILE='USEQ',FORM='UNFORMATTED')
WRITE(3) idata
WRITE(3) xyz
CLOSE(3)
END
www.eeworm.com/read/460384/7252218
f90 e_4_2_6.f90
OPEN(3,FILE='BDIR',RECL=10,FORM='BINARY',ACCESS='DIRECT')
WRITE(3,REC=1) 'abcdefghijklmno'
WRITE(3,REC=3) 4.,5
WRITE(3,REC=4) 'pq'
CLOSE(3)
END
www.eeworm.com/read/460384/7252222
f90 e_4_2_5.f90
INTEGER bells(4) !07是响铃字符
CHARACTER(4) wys(3),cvar
DATA bells/4*7/,cvar/' is'/,wys/'What',' you',' see'/
OPEN(3,FILE='BSEQ',FORM='BINARY')
WRITE(3) wys,cvar
WRITE(3) 'what', ' you get!'
WRITE(3)
www.eeworm.com/read/460384/7252228
f90 e_312_02.f90
CHARACTER*24 filename
PAUSE
PAUSE 'Enter DIR to see available files or press RETURN if you already know filename.'
READ(*,'(A\)') filename
OPEN(1, FILE=filename)
CLOSE(1)
END
www.eeworm.com/read/460384/7252229
f90 e_4_2_4.f90
OPEN(3,FILE='UDIR',RECL=10,FORM='UNFORMATTED',ACCESS='DIRECT')
WRITE(3,REC=3) .TRUE., 'abcdef'
WRITE(3,REC=1) 2049
CLOSE(3)
END
www.eeworm.com/read/460384/7252241
f90 e_4_2_1.f90
OPEN(3,FILE='FSEQ')
! FSEQ is a formatted sequential fife by default.
WRITE(3,'(A,I3)') 'RECORD',1
WRITE(3, '()')
WRITE(3, '(A11) ') 'The 3rd one'
CLOSE(3)
END