Contoh soal Pemrograman Generasi ke 4

Ada sedikit contoh soal-soal pemrograman generasi  ke 4 nih, soal didapat dari quis, yang kemungkinan akan keluar di UTS, jadi anggap aja soal ini sebagai kisi-kisi UTS mata kuliah Pemrograman Generasi Ke 4 Univ Gunadarma.

Langsung aja nih screenshoot soalnya.
1. Soal PG 10 nomor:

Soal PG hal 1

Soal PG hal 2

Jawaban dari soal PG diatas adalah:

1. A
2. B
3. A
4. C
5. D
6. B
7. D
8. B
9. A
10. B

2. Soal Essay ada 3 type:

Type A:

Soal Essay Type A

Jawaban Type A :

1. SET SERVEROUTPUT ON

    DECLARE

    P NUMBER(2) := 5;

    L NUMBER(2) := 8;

    LUAS NUMBER(4);

    BEGIN

    LUAS := P*L;

    DBMS_OUTPUT.PUT_LINE('LUAS PERSEGI PANJANG = '||LUAS);

    END;

     2. SET SERVEROUTPUT ON

         DECLARE

         J INTEGER;

         BEGIN

         J := 0;

         LOOP

         J := J+1;

         DBMS_OUTPUT.PUT_LINE(TO_CHAR (J));

         EXIT WHEN J = 5;

         END LOOP;

         END;

 3. create table anggota (Kd_anggota char(4) not null primary key, Nm_anggota varchar(15),Almt_anggota varchar(15), Tlp_anggota char(15));

        insert into anggota values ('A-01','Dini','bekasi','(021)1234567');

Type B :

Soal Essay Type B

Jawaban Type B :

1. Belum tau nih jawabannya :p

2. SET SERVEROUTPUT ON

    DECLARE

    J INTEGER;

    BEGIN

    J := 1;

    WHILE (J <= 5)

    LOOP

    DBMS_OUTPUT.PUT_LINE (TO_CHAR(J));

    J := J+1;

    END LOOP;

    END;

3. create table buku (Kd_buku char(4) not null primary key, Nm_buku varchar(15), pengarang varchar(15), judul varchar(15));

          insert into buku values ('B-01','PL/SQL','Budi Raharjo','PL/SQL Oracle');

Type C :

Soal Essay Type C

Jawaban Type C :

     1.   SET SERVEROUTPUT ON

DECLARE

                        P NUMBER(2) := 5;

                        L NUMBER(2) := 8;

                        LUAS NUMBER(4);

BEGIN

                        LUAS := P*L;

                        DBMS_OUTPUT.PUT_LINE('LUAS PERSEGI PANJANG = '||LUAS);

END;

2.    SET SERVEROUTPUT ON

DECLARE

                        J INTEGER;

BEGIN

                        FOR J IN 1..5 LOOP

                        DBMS_OUTPUT.PUT_LINE(TO_CHAR(J));

                        END LOOP;

END;

3.    create table suplier (Kd_suplier char(4) not null primary key, Nm_suplier varchar(15), Almt_suplier varchar(15), Tlp_suplier char(15));

            insert into suplier values ('S-01',Grosirindo',Bandung','(021)4567891’);






untuk soal yang essay, coding program tersebut diketikkan pada PL/SQL.
nah itu aja dulu yang bisa saya share, kalau ada kesalahan pada jawaban harap maklum, karena kita sama-sama belajar.
semoga bermanfaat..