coding cobol

-
Hmmmm.. posting aaaaaaaaaaaahh..
Kali ini el mau posting seputar COBOL maning :D *entah kenapa anak gundar itu masalah utamanya adalah pada materi kuliah ini.. karena ribet beneeeeeeeeeeer.. wkwkwkwk*
el mau posting coding cobol tentang array 1 dimensi dengan 2 tabel.. oke ga usah basa-basi lagi.. ayo kita cekidooooooooooot..



IDENTIFICATION DIVISION.
PROGRAM-ID. tabel.
*Contoh penggunaan tabel 1 dimensi yg berisi nama salesman
*dan hasil penjualan
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
   DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 n PIC 9.
77 garis PIC X(47) VALUE ALL '-'.
01 tabel-penjualan.
   02 data-penjualan-salesman OCCURS 5 TIMES.
      03 nama-salesman PIC X(25).
      03 hasil-penjualan PIC 9(8).
01 judul-1 PIC X(20) VALUE ' Tabel Penjualan '.
01 judul-2.
   02 FILLER PIC X(2) VALUE '| '.
   02 FILL PIC X(26) VALUE ' NAMA SALESMAN '.
   02 FILL PIC X(2) VALUE '| '.
   02 FILL PIC X(16) VALUE ' HASIL PENJUALAN '.
   02 FILL PIC X(1) VALUE '|'.
01 isi-tabel.
   02 FILL PIC X(2) VALUE '| '.
   02 lap-nama-salesman PIC x(26).
   02 FILL PIC X(2) VALUE '| '.
   02 lap-hasil-penjualan PIC ZZ.ZZZ.ZZZ.ZZZBB.
   02 FILL PIC X(1) VALUE '|'.
SCREEN SECTION.
01 hapus-layar.
   02 BLANK SCREEN.
PROCEDURE DIVISION.
   program-utama.
      PERFORM pemasukan-data-tabel
         VARYING n FROM 1 BY 1 UNTIL n > 5
      PERFORM tampilan-tabel-penjualan
         VARYING n FROM 1 BY 1 UNTIL n > 5.
      STOP RUN.
   pemasukan-data-tabel.
      DISPLAY ( , ) n, '. Nama salesman : '.
      ACCEPT ( , ) nama-salesman (n).
      DISPLAY SPACE.
      DISPLAY ( , ) SPACE, ' Hasil penjualan : '.
      ACCEPT ( , ) hasil-penjualan (n).
      DISPLAY SPACE.
   tampilan-tabel-penjualan.
      DISPLAY hapus-layar.
      DISPLAY judul-1.
      DISPLAY garis.
      DISPLAY judul-2.
      DISPLAY garis.
      PERFORM tampilkan-isi-tabel
         VARYING n FROM 1 BY 1 UNTIL n > 5.
      DISPLAY garis.
   tampilkan-isi-tabel.
      MOVE nama-salesman (n) TO lap-nama-salesman.
      MOVE hasil-penjualan (n) TO lap-hasil-penjualan.
      DISPLAY isi-tabel.


Dan berikut ini adalah hasil output dari program cobolnya

*output saat memasukkan data input

 
*output saat inputan telah menjadi tabel

 



okeeee.. sekian dulu postingan el yang sangat singkat ini *hehhehe* sampai jumpa lagi di postingan berikutnya yaaaak..
Label :

Komentar

Posting Komentar

Terima kasih sudah membaca postingan ini. Silahkan komentarnya

Postingan populer dari blog ini

Aku dan Kamu :)

-
hmmmm.. udah punya pacar, tapi ga punya foto bareng pacar -________-eiiiiiiiiiiiiiiiittsss.. tapi el punya video bareng pacar lhoooo.. eh tapi bukan video yang kagak-kagak lhooo yaa :D video ini di ambil pasa jum'at tanggal 18 November 2011 *klo ga salah* hehhehe.. yang ambil video ini tuh temen el yang namanya AGAM , dia emang seneng banget mengabadikan suatu peristiwa dengan kamera handphone-nya dia. hehhe thanks yaaa gam :)) eh tapi di video ini ga cuma ada el sama sang laki, tapi ada juga si DYTA dan orang-orang lain yang ga sengaja ikut kerekam :D sebenernya sih ni video aneh coz isinya el sama laki yang lagi cubit-cubitan sama jambak-jambakan :D tapi tetep so sweet laaah yaaa. wkwkwkwk.. okelaaaaahh.. silahkan dilihat.. cekidooooooooot!! :))  
baca lebih banyak yuk!

contoh soal dan jawaban Pengantar Teknologi Sistem Informasi

-
Soal type A 1.       Jelaskan definisi Komputer 2.       Sebutkan contoh aktivitas kehidupan manusia dengan komputer dibidang pendidikan 3.       Sebutkan contoh aktivitas kehidupan manusia dengan komputer dibidang kedokteran 4.       Jelaskan dampak positif perkembangan TIK dibidang sosial 5.       Jelaskan ancaman aktif terhadap sistem informasi 6.       Jelaskan definisi perangkat lunak ( software ) 7.       Sebutkan evolusi perangkat lunak Penyelesaian 1.       Komputer berasal dari kata “to Compute” yang berarti menghitung. Jadi secara umum komputer bisa kita sebut sebagai mesin hitung. Tetapi pengertian komputer saat ini bukanlah semata – mata sebagai alat hitung saja, tetapi adalah suatu alat hitung dengan kontruksi elektronikan yang mempunyai strorage internal ( tempat penyimpanan ) dan bekerja dengan bantuan Operating Sistem ( OS ) menurut program – program yang diberikan kepadanya. Komputer juga dapat didefinisikan sebagai suatu alat bantu un
baca lebih banyak yuk!

Praktikum ooh Praktikum

-
Hadeeeeeeeeeeeeeehh praktikum lagi praktikum lagi * jangan ditiru yaa pembaca, belom apa-apa udah ngeluh duluan!! * Jadi begini lhooo... mulai tanggal 16 April 2012, kelas el mulai praktikum di laboratorium menengah sistem informasi di kampus E Universitas Gunadarma, gedung 5 lantai 4 ruangan 3 (kalo ga salah :D) dan kelas el itu kebagian periode dua makanya baru mulai di bulan april ini, sementara kelas lainnya banyak yang dapet periode satu yang udah di mulai dari bulan maret. Ya sudahlah * pasrah * Kelas el kebagian praktikum jam setengah 4 sore * iiih woooooooww * dan pulang sekitar jam setengah 6. Haduuuuh.. itu kan waktu waktunya orang-orang pada baru bangun dari tidur siang terus mandi. Hahhaha...
baca lebih banyak yuk!