LP R-Program dan Cobol

LP R-Program

Soal !

Apa yang dimaksud dengan frekuensi, median, modus, dan mean ? Berikan contohnya masing masing !

Jawab !

- Frekuensi adalah angka yang menunjukan seberapa kali suatu variabel berulang dalam suatu deret angka.
   contoh :
   60, 50, 75, 60, 80, 40, 60, 70, 100, 75
   frekuensi nilai 60 adalah 3
   frekuensi nilai 70 adalah 1
   frekuensi nilai 75 adalah 2

- Median adalah suatu ukuran pemusatan yang menempati posisi tengah jika data diurutkan menurut besarnya.

  contoh :

  1, 2, 4, 5, 6

  median dari data diatas adalah 4

- Modus adalah nilai yang paling sering muncul dari serangkaian data.

  contoh :

  30, 32, 34, 34, 34, 36, 40, 42

  modus dari data diatas adalah 34

- Mean adalah nilai rata-rata dari beberapa data 

  contoh :

  2, 5, 9, 3, 6, 5

  mean dari data diatas adalah 5

fin.

LP Cobol

Soal !

1. Apa yang kalian ketahui tentang kondisi ?

2. Buat contoh program sederhana kondisi pada cobol !

3. Apa yang kalian ketahui tentang looping ?

4. Buat contoh program sederhana looping pada cobol !

Jawab !

1. Kondisi merupakan perintah yang digunakan untuk melakukan pengecekan suatu kondisi apabila kondisi tersebut dipenuhi.

2. identification division.
program-id.
environment divison.
data division.
working-storage section.
77 jawab pic a.
procedure division.
tanya.
display "masukan kode berupa huruf [d/e/j/k]?".
accept jawab.
seleksi-jawab.
if jawab = "d" go to kode-d.
if jawab = "e" go to kode-e.
if jawab = "j" go to kode-j.
if jawab = "k" go to kode-k.
kode-d.
display "kampus depok".
go to selesai.
kode-e.
display "kampus kelapa 2".
go to selesai.
kode-j.
display "kampus kalimalang".
go to selesai.
kode-k.
display "kampus kemang".
go to selesai.
Selesai.
stop run.

3.  Looping adalah Beberapa instruksi diulang untuk suatu jumlah pengulangan yang tertentu.
Jumlah pengulangan dapat diketahui sebelumnya atau ditentukan dalam perjalanan program.

4.

IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDPROG.
       AUTHOR. GROCER.
      *ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  INPUT-AREA.
           05  GET-ACCEPT-ANS           PIC X       VALUE SPACES.
           05  FIRST-NUMBER             PIC 999     VALUE 0.
           05  SECOND-NUMBER            PIC 999     VALUE 0.
           05  ADD-ANS                  PIC 9999    VALUE 0.
       PROCEDURE DIVISION.
       MAINLINE.
           DISPLAY "ENTER THE FIRST NUMBER (UNDER 1000)".
           ACCEPT FIRST-NUMBER.
           DISPLAY "ENTER THE SECOND NUMBER (UNDER 1000)".
           ACCEPT SECOND-NUMBER.
           ADD FIRST-NUMBER TO SECOND-NUMBER
               GIVING ADD-ANS.
           DISPLAY "THE ANSWER IS " ADD-ANS.
           DISPLAY "PRESS ENTER TO END THE PROGRAM".
           ACCEPT GET-ACCEPT-ANS.
           STOP RUN.

fin.