soal kuis 4gl pa ihsan

1. Sebutkan cirri cirri 4 GL (cari di materi)
Ciri Bahasa generasi keempat:
 Tidak perlu training lama pada DP
 Bahasa untu semua pemakai
 Bahasa query
 Pembuat aplikasi
 Mencakup bahasa procedural/ non prosedural
2. Sebutkan komponen 4GL (cari di materi)
Komponen 4GL
4GL dengan tujuan umum yang baik mempunyai komponen non-prosedural yang mungkin disembunyikan pada fasilitas prosedural. Seperti pada gambar berikut:
- Application parameter, meliputi pemberian nama parameter, catalog, versi, pembuat dsb.
- Data specification, penentuan spesifikasi laporan berdasarkan data yang diambil.
- Screen specification, penentuan bentuk tampilan.
- Dialog specification, menentukan interaksi manusia dengan komputer.
- Specification Of Rules, aturan-aturan untuk penentuan keputusan. Biasanya dipisahkan dari badan aplikasi.
Dalam kaitan dengan data, laporan, generator layar, pembuat dialog dan penentu aturan adalah fasilitas prosedur. Hal ini memungkinkan struktur program ditentukan oleh : loops, kondisi, struktur kasus dan routime yang sarangkan.
3. Apa yang di maksud non procedural (Tanya mbah google)
4. Buatlah procedure untuk mencetak karakter dan jumlah bilangan yang ditentukan oleh parameternya contoh : cetak(‘?’,25); akan mencetak karakter ‘?’ sebanyak 25 karakter.
CREATE OR REPLACE PROCEDURE CETAK5(A IN CHAR, B IN NUMBER) AS NILAI NUMBER;
BEGIN
FOR NILAI IN 1..B LOOP
DBMS_OUTPUT.PUT(TO_CHAR(A));
END LOOP;
DBMS_OUTPUT.PUT_LINE(' ');
END;

CARA PANGGIL:

BEGIN
CETAK5('?',25);
END;



5. Buatlah function untuk menghitung indeks nilai dengan ketentuan :
nilai > 80 indexnya a
nilai 60< = 80 indexnya b
nilai 40< nilai <= 60 indexnya c
nilai < = 40 indexnya d
SET SERVEROUTPUT ON;
CREATE OR REPLACE FUNCTION HITUNGS(UTS IN NUMBER, UAS IN NUMBER,NILAI NUMBER)
RETURN NUMBER AS HURUF VARCHAR2(1);
BEGIN
UTS := &UTS;
UAS := &UAS;
NILAI := (UTS*0.4) + (UAS*0.6);
IF NILAI >= 80 THEN
HURUF := 'A';
ELSIF NILAI > 60 AND NILAI <= 80 THEN
HURUF :='B';
ELSIF NILAI > 40 AND NILAI <= 60 THEN
HURUF :='C';
ELSE
HURUF :='D';
END IF;
DBMS_OUTPUT.PUT_LINE(TO_CHAR(HURUF));
END;
6. Buatlah prog pl/sql untuk menghasilkan laporan sbb(gunakan function pada no 5)
Npm :……
Nama:……
Mata kuliah uts uas index
SET OUTPUTSERVER ON
DECLARE
CURSOR CARI_HIDAN IS SELECT NPM, MATA_KULIAH, UTS, UAS, TOTAL FROM MAHASISWA, NILAI, MK WHERE NAMA=’HIDAN’ ;
VNPM NUMBER;
VNAMA VARCHAR;
VMATA_KULIAH VACHAR;
VUTS NUMBER;
VUAS NUMBER;
VTOTAL NUMBER;

BEGIN
OPEN CARI_HIDAN
DBMS_OUTPUT.PUT_LINE(‘NAMA=HIDAN’);
LOOP
FETCH CARI_HIDAN INTO VNPM,VNAMA, VMATA_KULIAH, VUTS, VUAS, VTOTAL ;
EXIT WHEN CARI_HIDAN % NOT FOUND;
DBMS_OUTPUT.PUT_LINE(VNPM||’’||VNAMA||’’||VMATA_KULIAH||’’||VUTS||’’||VUAS||’’||TOTAL);
END LOOP ;
CLOSE CARI_HIDAN ;
END;