레포트 (5)
그래프는?29 WRITE(*,*) 1)신체지수 2)감성지수 3)지성지수 4)지각지수30 READ(*,*) DD31 IF(DD.EQ.1) DD=23.032 IF(DD.EQ.2) DD=28.033 IF(DD.EQ.3) DD=33.034 IF(DD.EQ.4) DD=38.035 DO 50 LL=-30,3036 A(LL+31,INT(SIN(((COUNT+LL)/DD)*2*3.141592654)*30+31))=*37 WRITE(*,901) (A(LL+31,KK),KK=1,61)38 50 CONTINUE39 900 FORMAT(3X,살아온 날수는 ,I7,입니다.)40 901 FO
4페이지 | 500원 | 2007.02.08
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/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/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