레포트 (4)
WATFOR-77 V3.0 Copyright WATCOM Systems Inc. 1984,1988 03/10/30 01:26:16Options: edit,list,disk,xtype,terminal,logio,extensions,warnings,check,arraycheckC23456781 INTEGER A,I,J,N,L,X,Y2 DIMENSION A(99,99)3 WRITE(*,*) 몇차 마방진을 구할까요?(3~99까지 홀수만)4 READ(*,*) N5 DO 20 I=1,N6 DO 20 J=1,N7 A(I,J)=08 20 CONTINUE9 I=110 J=N/2+111 A(I,J)=112 DO 10 L=2,N**213 IF
2페이지 | 500원 | 2007.02.12
WATFOR-77 V3.0 Copyright WATCOM Systems Inc. 1984,1988 03/10/14 00:23:22Options: edit,list,disk,xtype,terminal,logio,extensions,warnings,check,arraycheckC23456781 REAL A,C,N2 INTEGER B3 WRITE(*,*) 약수를 알고 싶은 수는?4 READ(*,*) N5 DO 10 L=1,N6 A=N/L7 B=N/L8 C=A-B9 10 IF(C.EQ.0) WRITE(*,*) L10 STOP11 END6>약수를 알고 싶은 수는?5 16> 26> 56> 10Compile
2페이지 | 700원 | 2007.02.12
WATFOR-77 V3.0 Copyright WATCOM Systems Inc. 1984,1988 03/12/19 03:55:32Options: edit,list,disk,xtype,terminal,logio,extensions,warnings,check,arraycheckC2345671 DIMENSION A(61,61)2 INTEGER COUNT3 CHARACTER A4 DO 60 K=1,615 DO 60 KK=1,616 A(K,KK)= 7 60 CONTINUE8 WRITE(*,*) 생년월일을 입력하세요.9 READ(*,*) Y,M,D10 WRITE(*,*) 오늘의 년월일을 입력하세요.11 R
4페이지 | 500원 | 2007.02.08
[프로그래밍] [포트란]자신의 살아온 날 수를 구하기!!!
WATFOR-77 V3.0 Copyright WATCOM Systems Inc. 1984,1988 03/11/09 21:49:44Options: edit,list,disk,xtype,terminal,logio,extensions,warnings,check,arraycheckC234567891 INTEGER COUNT2 WRITE(*,*) 생년월일을 입력하세요.3 READ(*,*) Y,M,D4 WRITE(*,*) 오늘의 년월일을 입력하세요.5 READ(*,*) TY,TM,TD6 COUNT=07 DO 30 N=Y,TY8 DO 20 L=M,129 DO 10 K=D,MONTH(N,L)10 IF((TY.EQ.
2페이지 | 1,000원 | 2007.02.12