Dasar Komputer Pemrograman 2 B Fortran Statement GOTO

Dasar Komputer & Pemrograman 2 B Fortran

Statement GOTO bersyarat �Statement GOTO bersyarat atau GOTO terhitung (Computed GOTO) �Digunakan untuk mengontrol loncatan dari proses ke suatu label statement <slabel> tertentu, tergantung dari nilai ungkapan integer. �BU : GOTO (<slabel>[, <slabel> …) [, ] <i>

Cont. . � Contoh : Character*1 BUNYI Write (*, ’(1 x, A)’)’ << PILIHAN>>’ Write (*, *) Write (*, ’(1 x, A)’)’ 1. Menghitung isi silinder’ Write (*, ’(1 x, A)’)’ 2. Menghitung luas segitiga’ Write (*, ’(1 x, A)’)’ 3. Menghitung isi kubus’ Write (*, *) Write (*, ’(1 x, A)’)’ 4. Selesai’ 15 Write (*, ’(//, 1 x, A, )’)’ Pilih Nomer (1 -4) ? ’ Read (*, (BN, I 1)’) NOMER

Cont. . C C menuju ke label sesuai dengan nomer yang dipilih Write (*, *) GOTO (1000, 2000, 3000, 4000) NOMER BUNYI = 7 Write (*, ‘(1 x, A, A)’)’ ULANGI’, BUNYI SALAH PILIH!!,

Cont. . C C menghitung isi silinder 1000 Write (*, ’(1 X, A. )’) ‘JARI-JARI LINGKARAN ? ’ Read (*, ’(BN, F 7. 2)’) R Write (*, ’(1 X, A. )’) ‘TINGGI SILINDER ? ’ Read (*, ’(BN, F 7. 2)’) T XISI = 3. 1419 * R **2 * T Write (*, ’(/, 1 x, A, F 7. 2)’) ‘ ISI SILINDER = ‘, XISI

Cont. . C C menghitung luas segitiga 2000 Write (*, ’(1 X, A. )’) ‘PANJANG SISI DASAR ? ’ Read (*, ’(BN, F 7. 2)’) S Write (*, ’(1 X, A. )’) ‘TINGGI SEGITIGA ? ’ Read (*, ’(BN, F 7. 2)’) T XLUAS = 0. 5 *S * T Write (*, ’(/, 1 x, A, F 7. 2)’) ‘ LUAS SEGITIGA = ‘, XLUAS

Cont. . C C menghitung isi kubus 3000 Write (*, ’(1 X, A. )’) ‘PANJANG SISI KUBUS ? ’ Read (*, ’(BN, F 7. 2)’) S XISI = S * S Write (*, ’(/, 1 x, A, F 7. 2)’) ‘ ISI KUBUS = ‘, XISI GOTO 4000

Cont. . C C selesai 4000 CONTINUE END

DO INTEGER*2 X DO 15 X = 1, 100 Y = 2. 75 ** X WRITE (*, 25) X, Y IF (Y. GT. 100) THEN STOP ENDIF 15 CONTINUE 16 FORMAT (1 X, ‘ X = ‘, I 3, ’ Y = ‘ , F 7. 2) END

Statement IF �Statement yang digunakan untuk menyeleksi suatu kondisi atau syarat dan proses akan melakukan suatu tindakan tertentu bila kondisi yang diseleksi benar dan akan melakukan tindakan yang lainnya bila kondisi yang diseleksi tidak benar.

Statement IF Logika (logical IF) � Digunakan untuk menyeleksi suatu ungkapan logika atau ungkapan hubungan dan jika kondisinya benar (. TRUE. ) maka statement yang mengikutinya akan diproses. Sebaliknya bila ungkapan logika atau ungkapan hubungan yang seleksi tersebut salah (. FALSE. ), maka yang proses akan dilanjutkan ke statement lainnya. � BU : IF (<expression>) <statement>

Cont. . CHARACTER*10 JAWAB WRITE (*, ”(1 X, A)’) ‘SAYA MEMPUNYAI 8598 KELERENG’ WRITE (*, ”(1 X, A)’) ‘SAYA SBAGIKAN KEPADA 1228 ANAK’ WRITE (*, ”(1 X, A)’) ‘TIAP ANAK DAPAT 7 BUAH’ WRITE (*, ”(1 X, A)’) ‘DAN SISANYA SAYA SIMPAN SENDIRI’ WRITE (*, ”(1 X, A)’) ‘DALAM ISTILAH KOMPUTER DISEBUT DENGAN’ WRITE (*, ”(1 X, A)’) ‘MODULO 7 DAN SISA PEMBAGIAN DISEBUT’ WRITE (*, ”(1 X, A)’) ‘DENGAN REMAINDER’ WRITE (*, *) WRITE (*, ”(1 X, A)’) ‘BERAPA REMAINDERNYA ? ’ READ (*, ’(BN, I 1)’) IREMAIN

Cont. . C sebelumnya jawaban anda dianggap salah terlebih dahulu JAWAB = ‘SALAH !!!’ C seleksi jawaban anda, bila benar jawaban anda diisi nilai benar IF (IREMAIN. EG. 2) JAWAB = ‘BENAR. . . ’ C tampilkan hasilnya WRITE (*, ‘(/, 1 x, A, A 10) ‘ JAWABAN ANDA ADALAH ‘, JAWAB END

Statement IF Arithmatika (arithmetic IF) �Digunakan untuk menyeleksi kondisi dari suatu ungkapan arithmatika, apakah bernilai negatif, nol atau positif. �BU : IF (<expression>)<slabel 1>, <slabel 2>, <slabel 3>

Cont. . Write (*, ’(1 X, A)’) ‘PROGRAM INI AKAN MENGHITUNG NILAI DARI’ Write (*, ’(1 X, A)’) ‘AKAR-AKAR PERSAMAAN KUADRAT : ‘ Write (*, ’(1 X, A)’) ‘ 2 ‘ Write (*, ’(1 X, A)’) ‘ AX + BX + C = 0 ‘ Write(*, *) 1 Write (*, ’(1 X, A, )’) ‘ NILAI KOEFISIAN A ? ‘ READ (*, ’(F 7. 2)’) A C C SELEKSI NILAI A TIDAK BOLEH SAMA DENGAN NOL’ IF (A. EQ. 0. 0 ) GOTO 1 C WRITE (*, ’(1 X, A, )’) ‘NILAI KOEFISIEN B ? ‘ READ (*, ’(F 7. 2)’) B WRITE (*, ‘(1 X, A, )’) ‘NILAI KOEFISIEN C ? ‘ READ (*, ’(F 7. 2)’) C WRITE (*, *)

Cont. . C C HITUNG NILAI DARI DETERMINAN D = B**2 – 4*A*C C C SELEKSI NILAI DARI DETERMINAN C IF (D) 100, 125, 150

Cont. . C C NILAI DETERMINAN NEGATIF, BERARTI ADA 2 AKAR KOMPLEK BERLAINAN 100 Z 1 = (-B) / (2*A) Z 2 = SQRT (-D) / (2*A) WRITE (*, *) ‘ ADA 2 AKAR KOMPLEK BERLAINAN : ‘ WRITE ( *, *) ‘-------------------------’ WRITE (*, ’(1 X, A, F 7. 2, A)’) ‘X 1 = ‘, Z 1, ‘+’, Z 2, ‘i’ WRITE (*, ’(1 X, A, F 7. 2, A)’) ‘X 2 = ‘, Z 1, ‘-’, Z 2, ‘i’ GOTO 1000

Cont. . C C NILAI DETERMINAN NOL, BERARTI ADA 2 AKAR REAL KEMBAR 125 X 1 = (-B) / (2*A) WRITE (*, *) ‘ ADA 2 AKAR REAL KEMBAR : ‘ WRITE ( *, *) ‘-------------------’ WRITE (*, ’(1 X, A, F 7. 2)’) ‘X 1 = X 2 = ‘, X 1 GOTO 1000

Cont. . C C NILAI DETERMINAN NOL, BERARTI ADA 2 AKAR REAL BERLAINAN 150 X 1 = (-B + SQRT (D)) / (2*A) X 2 = = (-B + SQRT (D)) / (2*A) WRITE (*, *) ‘ ADA 2 AKAR REAL BERLAINAN : ‘ WRITE ( *, *) ‘----------------------’ WRITE (*, ’(1 X, A, F 7. 2)’) ‘X 1 = ‘, X 1 WRITE (*, ’(1 X, A, F 7. 2)’) ‘X 2 = ‘, X 2 GOTO 1000

Cont. . C C SELESAI 1000 CONTINUE END

Statement IF Blok (block IF) � Statement IF blok dapat terdiri dari statement IF- THEN, ELSEIF dan ENDIF. � BU IF-THEN : IF (<ungkapan>) THEN � BU ELSE : ELSE � BU ELSEIF : ELSEIF (<ungkapan>) THEN � BU ENDIF : ENDIF � Digunakan untuk menyeleksi suatu kondisi dan mengambil tindakan apa yang harus dilakukan dalam bentuk blok-blok statement. � Statement blok IF harus diawali dengan statement IFTHEN dan diakhiri dengan statement ENDIF.

Stat. IF-THEN & ENDIF CHARACTER*10 JAWAB WRITE (*, ”(1 X, A)’) ‘SAYA MEMPUNYAI 8598 KELERENG’ WRITE (*, ”(1 X, A)’) ‘SAYA ’BAGIKAN KEPADA 1228 ANAK’ WRITE (*, ”(1 X, A)’) ‘TIAP ANAK DAPAT 7 BUAH’ WRITE (*, ”(1 X, A)’) ‘DAN SISANYA SAYA SIMPAN SENDIRI’ WRITE (*, ”(1 X, A)’) ‘DALAM ISTILAH KOMPUTER DISEBUT DENGAN’ WRITE (*, ”(1 X, A)’) ‘MODULO 7 DAN SISA PEMBAGIAN DISEBUT’ WRITE (*, ”(1 X, A)’) ‘DENGAN REMAINDER’ WRITE (*, *) WRITE (*, ”(1 X, A)’) ‘BERAPA REMAINDERNYA ? ’ READ (*, ’(BN, I 1)’) IREMAIN

Cont. . C sebelumnya jawaban anda dianggap salah terlebih dahulu JAWAB = ‘SALAH !!!’ C seleksi jawaban anda, bila benar jawaban anda diisi nilai benar IF (IREMAIN. EG. 2) THEN JAWAB = ‘BENAR. . . ’ ENDIF C tampilkan hasilnya WRITE (*, ‘(/, 1 x, A, A 10) ‘ JAWABAN ANDA ADALAH ‘, JAWAB END

Stat. IF-THEN, ELSEIF, ELSE, ENDIF CHARACTER*20 NAMA(5), KET, GARIS*52 REAL*4 NILAI (5), DATA NAMA /’ARIEF’, ‘BUDI’, ‘CHANDRA’, ‘DEWI’, ‘EDI’/ DATA NILAI /95. 9, 57. 5, 23. 5, 90. , 65. 75 / C CETAK JUDUL TABEL GARIS = ‘--------------------------’ WRITE (*, ’(1 X, A)’) ‘ DAFTAR NILAI UJIAN’ WRITE (*, *) WRITE (*, ’(1 X, A)’) GARIS WRITE (*, ’(1 X, A)’) ‘NAMA MAHASISWA KETERANGAN’ WRITE (*, ’(1 X, A)’) GARIS NILAI

Cont. . 15 KET DO 15 I = 1, 5 IF (NILAI (I). GT. 75. 0 ) THEN KET = ‘ LULUS SANGAT BAIK ‘ ELSEIF (NILAI (I). GT. 65. 0 ) THEN KET = ‘ LULUS BAIK ‘ ELSEIF (NILAI (I). GT. 55. 0 ) THEN KET = ‘ LULUS CUKUP ‘ ELSE KET = ‘ TIDAK LULUS ‘ ENDIF WRITE (*, ’(1 X, A 20, 2 X, F 6. 2, 2 X, A 20)’) NAMA (I), NILAI (I), WIRTE (*, ’(1 X, A)’) GARIS END