곱셈표 (DO, END DO)

곱셈표 출력하기

출력할 곱셈표 단 입력

DO 루프를 이용하여 곱셈표 출력

PROGRAM Multi

IMPLICIT NONE

INTEGER :: M, N, Last_M, Last_N

PRINT *, "출력할 곱셈표 단을 입력하시오(ex:9, 9)"
READ *, Last_M, Last_N

PRINT *," M N M * N"
PRINT *,"==========================="

DO M = 1, Last_M

DO N = 1, Last_N

PRINT *, M, N, M * N

END DO

END DO

END PROGRAM Multi

위 소스를 04_01_Multi.f95로 저장

컴파일 및 프로그램 테스트

DO I = v1, v2, v3
Print *, I
END DO

I의 값을 v1에서 v2까지 출력하는데 v3씩 증가