Contoh Program Bahasa Cobol

-
 contoh program bahasa cobol tentang percabangan

       IDENTIFICATION DIVISION.
       PROGRAM-ID. NAJMI.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 MASUKKAN.
           02 JUM PIC 9(3).
           02 PIL PIC 9.
           02 HASIL PIC Z(15).
       01 HITUNG-LAGI PIC X.
           88 LAGI VALUE 'Y', 'y'.
           88 TIDAK VALUE 'T', 't'.
       SCREEN SECTION.
       01 MENU.
           02 LINE 2 COLUMN 30 VALUE 'MENU PEMBELIAN KUCING'.
           02 LINE 4 COLUMN 30 VALUE '1. ANGGORA'.
           02 LINE 5 COLUMN 30 VALUE '2. SIRBERIA'.
           02 LINE 6 COLUMN 30 VALUE '3. EXIT'.
           02 LINE 7 COLUMN 30 VALUE '====================='.
           02 LINE 8 COLUMN 30 VALUE 'PILIHAN: '.
           02 LINE 8 COLUMN 40 PIC 9 TO PIL.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY MENU.
           ACCEPT MENU.
           IF PIL = 1
               PERFORM ANGG
               GO TO TANYA.
           IF PIL = 2
               PERFORM SERB
               GO TO TANYA.
           IF PIL = 3
               GO TO SELESAI.
           ELSE
               GO TO MULAI.
       SELESAI.
           STOP RUN
       ANGG.
           DISPLAY (10, 2) 'JUMLAH KUCING YANG INGIN DIBELI: '.
           ACCEPT ( , ) JUM.
           COMPUTE HASIL = JUM * 1000000.
           DISPLAY (11, 2) 'TOTAL PEMBELIAN: ', HASIL.
       SERB.
           DISPLAY (10, 2) 'JUMLAH KUCING YANG INGIN DI BELI: '.
           ACCEPT ( , ) JUM.
           ACCEPT HASIL = JUM * 700000.
           DISPLAY (11, 2) 'TOTAL PEMBELIAN: ', HASIL.
       TANYA.
           DISPLAY (15, 2) 'INPUT LAGI? [Y/T]: '.
           ACCEPT HITUNG-LAGI.
           IF LAGI
               DISPLAY HAPUS.
               GO TO MULAI.
           IF TIDAK
               GO TO SELESAI.
           IF NOT LAGI AND NOT TIDAK
               DISPLAY 'Y/y ATAU T/t'.
               GO TO TANYA.

Komentar

Posting Komentar

Postingan populer dari blog ini

PENGENALAN CINEMA 4D

-
Cinema 4D adalah pengembangan pemodelan dari 3D, dimana animasi dan aplikasi render yang di kembangkan oleh Maxon Komputer GmbH di Jerman. Hal ini mampu merubah prosedur dan polygonal atau sub modelingnya, yang mana 4D ini memliki prosedur dan polygonal/ sub modeling, menjiwai,penchayaan,tekstur,pembuatan, dan fitur-fitur umum ditemukan dalam apliasi 3D modeling. Empat varian saat ini yang tersedia dari Maxon adalah : aplikasi ini CINEMA 4D ‘Prime’, versi ‘Broadcast’ dengan fitur motion grafis tambahan,’Visualisasi’ yang menambahkan fungsi untuk desain arsitektur dan ‘Studio’, yang mencakup semua modul. Pada tahun 2014 rilis varian 5, ‘Lite’. Yang di kemas dengan Adobe After Effects Creative Cloud 2014, dan bertindak sebagai versi pengantar, dengan banyak fitur yang dipotong. Ini adalah bagian dari kemitaraan baru antara dua perusahaan baru,, Maxon di produksi plug-in yang di sebut C1NEWARE, memungkinkan setiap varian untuk membuat alur kerja yang mulus dengan After Effects....
Baca selengkapnya

Contoh Autobiografi

-
Nama saya Nur Najmi Sania, biasa di panggil Najmi, kalau di rumah biasanya dipanggil Nia. Saya lahir pada tanggal 28 Agustus 1997. Saya anak dari Bapak Sanusi dan Ibu Titi Faridah. Saya merupakan anak ke dua dari 2 bersaudara. Kakak saya wanita. Jarak umur saya dengan kakak saya hanya berbeda 1 tahun, tetapi kakak saya sekarang sudah kuliah disemester 7 atau tingkat 4, sedangkan saya masih duduk di semester 3 atau tingkat 2. Mungkin di lihat dari jarak tahun pendidikan saya dan kakak saya berbeda 2 tahun, padahal umurnya hanya beda 1 tahun. Kakak saya sebelumnya waktu pas Sekolah Dasar, beliau diikut sertakan dalam ujian nasional kelas 6 karena dia berprestasi maka dari itu ia di ikut sertakan oleh kepala sekolah dan kebetulan lulus. Pada saat saya menduduki tingkat TK 0 kecil, saya sekolah di TK Ziyadatul Ahsan Marotani Kota Bekasi, dan pada saat saya menduduki tinkat TK 0 besar saya di TK Kuntum Melati, Kemang Kota Bekasi. Kemudian saya sekolah menengah di MTS EL-NUUR EL-KASYSYA...
Baca selengkapnya