Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SET ECHO OFF
- SET VERIFY OFF
- SET SERVEROUTPUT ON
- ACCEPT p_angka1 PROMPT 'Masukkan Angka Pertama : '
- ACCEPT p_angka2 PROMPT 'Masukkan Angka Kedua : '
- ACCEPT p_angka3 PROMPT 'Masukkan Angka Ketiga : '
- ACCEPT p_angka4 PROMPT 'Masukkan Angka Keempat : '
- VARIABLE g_hasil NUMBER
- DECLARE
- v_angka1 NUMBER(9,2) := &p_angka1;
- v_angka2 NUMBER(9,2) := &p_angka2;
- v_angka3 NUMBER(9,2) := &p_angka3;
- v_angka4 NUMBER(9,2) := &p_angka4;
- BEGIN
- :g_hasil := (v_angka1+v_angka2)/(v_angka3+v_angka4);
- END;
- /
- PRINT g_hasil
Add Comment
Please, Sign In to add comment