Laporan Pendahuluan 1 "Semester 8"

A. Fortran

1. BU dr if kondisi n looping !

If :
Statemen IF hitungan
Bu : BU : IF (pr) n1,n2,n3
pr : Pernyataan hitungan atau suatu variabel, boleh REAL atau INTEGER;
n1,n2,n3 : Nomor-nomor statemen yang akan dituju untuk digarap instruksinya.
Statemen IF nalar

BU: IF (ekspresi nalar) statemen)
Loop :
BU : DO n var=m1,m2,m3
n : Nomor statemen dari suatu statemen yang merupakan batas akhir dari deretan yang harus diproses berulang-ulang.
Var : Variabel integer/real yang harganya akan berubah-ubah dari suatu harga awal m1 ke harga akhir m2 dengan besar langkah m3.


2. jlskan bd function dan subroutine! N BU

BU: FUNCTION nf(arg1,arg2…argm)
hanya berbeda pada pemanggilannya yaitu dengan cara : CALL nama subroutine. Dan SUBROUTINE tidak dapat mengembalikan nilai sebagaimana dengan FUNCTION .

BU: SUBROUTINE ns(arg1, arg2…argm)


3. contoh subroutine n function!

Function :
Contoh:
READ(*,10) A,B
C= TAMBAH(A,B)
WRITE(*,10)C
10 FORMAT(F8.2)
STOP
END
FUNCTION TAMBAH(X,Y)
TAMBAH=X+Y
RETURN
END

Subroutine :
Contoh:
READ(*,10) A,B
TAMBAH(A,B)
STOP
END
SUBROUTINE TAMBAH(X,Y)
Z= X+Y
WRITE(*,100)Z
100 FORMAT(F8.2)
RETURN
END



B. Pl/sql

1. jelaskan perulangan pada PL SQL?
2. sebutkan dan jelaskan jenis2 perulangan pada PL SQL dan berikan bentuk umumnya!
3. buat contoh program sederhana dari soal no 2!

Jawab

1. untuk mengeksekusi statement yang berada didalam perulangan dieksekusi beberapa kali sesuai dengan kondisi didalam perulangan

2 LOOP
salah satu perulangan didalam PL SQL yang paling sederha dimana untuk keluar dari perulangan menggunkan statements: EXIT atau EXIT-WHEN

bentuk umum:
LOOP
sequence_of_statements
END LOOP;

WHILE-LOOP
Sebelum statemant didalam perulangan dieksekusi program akan mengecek kondisi didalam while jika kondisi terpenuhi baru statement didalamnya akan dieksekusi
Bentuk umum
WHILE condition LOOP
sequence_of_statements
END LOOP;

FOR-LOOP
Untuk mengeksekusi statement didalam loop sebanyak nilai yang diberikan pada loop
Bentuk umum

3. Contoh program loop
BEGIN
A:=1;
Loop
DBMS_OUTPUT.PUT_LINE(A)
IF A > 3 THEN
EXIT;
END IF;
END;

Contoh program while-loop
WHILE total <= 10 LOOP
DBMS_OUTPUT.PUT_LINE(total)
total := total + 1;
END LOOP;

Contoh program for-loop
FOR ctr IN 1..10 LOOP
DBMS_OUTPUT.PUT_LINE(ctr)
END LOOP;