- Published on
Lab TI Rekayasa Komputasional Pert 3
- Authors
- Name
- Haafidz Nurul Salim
- @haafidz_jp
Lab TI Rekayasa Komputasional Pert 3
Berikut ini adalah kodingan pertemuan 3 pada Lab TI Gunadarma.
jadi file yang dibutuhkan sebagai berikut :
- main.f95
Kunjungi Compiler Online
main.f95
WRITE(*,'(1X,A,/)')'Tahun ?'
READ(*,'(BN,I4)')ITahun
XTahun = ITahun/4.0
JTahun = ITahun/4
IF(XTahun .EQ.JTahun)GOTO 100
WRITE(*,'(1X,A,I4,A)')'Tahun ', ITahun,' bukan tahun kabisat'
GOTO 200
100 WRITE(*,'(1X,A,I4,A)')'Tahun ', ITahun,' adalah tahun kabisat'
200 CONTINUE
END