begin
s1 := StrToIntDef(ParamStr(1),506);
s2 := StrToIntDef(ParamStr(2),746);
AssignFile(f1,'C:정보처리기사new 정보처리기사문제흡연문제abc.txt');
AssignFile(f2,'C:정보처리기사정보처리Dataans1.txt');
reset(f1);
rewrite(f2);
coding 이 이렇게 되고 abc.txtd의 값은 아래와 같습니다.
00001EM32S0503EE0120010705
00941BM17S1503EE0120010702
00532AF14S0201ET0320010701
00574FM46D1314ET0120010704
.
.
.
s1에 값은 506 s2의 값은 746이 되겠죠.근대 이게 잘이해가 안돼서.
정보처리기사 보신분이나 잘아시는분 설명좀.
paramstr이 주어진 파라미터 리턴이라는데 위의 내용으로 설명좀 부탁합니다.
StrToIntDef(ParamStr(1),506); // 파라미터 받은 값(x1)을 정수로 변환한다.
// 숫자 이외의 값이 들어오면 506
StrToIntDef(ParamStr(2),746); // 파라미터 받은 값(x2)을 정수로 변환한다.
// 숫자 이외의 값이 들어오면 746
AssignFile(f1,'C:정보처리기사new 정보처리기사문제흡연문제abc.txt');
// abc.txt를 파일변수 f1 에 연결
AssignFile(f2,'C:정보처리기사정보처리Dataans1.txt');
// ans1.txt를 파일변수 f2에 연결
reset(f1); // 파일변수 f1을 열기
rewrite(f2); // 파일변수 f2에 쓰기