Tag: program

Program Faktorial dalam COBOL

ganjarsayogoLeave a comment

IDENTIFICATION DIVISION.
PROGRAM-ID.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 9(2).
77 B PIC 9(8) VALUE 1.
77 C PIC 9(2).
77 D PIC Z(8).
PROCEDURE DIVISION.
MAIN-PARA.
                       DISPLAY ” ENTER ANY NUMBER “.
                       ACCEPT A.
                       PERFORM Faktorial VARYING C FROM 1 BY 1 UNTIL C > A
                       MOVE B TO D.
                      DISPLAY ” THE FACTORIAL OF THE GIVEN NUMBER IS ” D.
                      STOP RUN.
Faktorial.
                      COMPUTE B = B * C.

 

 

Source : http://easycode.kuguni.com/complete.php?id=321&meta=PROGRAM%20TO%20FIND%20THE%20FACTORIAL%20OF%20THE%20GIVEN%20NUMBER%20Using%20Cobol

Program Beasiswa Untuk Anak Kurang Mampu dari OT Group

ganjarsayogoLeave a comment

Jakarta (ANTARA) – Program beasiswa bagi anak-anak kurang mampu dari perusahaan makanan Orang Tua Group (OT Group) melalui program “OT Children” terus bertambah dari semula sekitar 500 pelajar pada 2001 menjadi 1.760 siswa saat ini.

“Anak-anak mempunyai hak hidup yang sama, termasuk pendidikan,” kata Manager Humas OT Group, Yuna Eka Kristina, saat ditemui pada acara “Berbuka Puasa OT Group Bersama Anak Asuh OT Children” di Jakarta, Senin.

Yuna Eka mengatakan melalui OT Children inilah OT Group membantu anak-anak dari kalangan tidak mampu untuk meraih kesempatan yang sama sehingga dapat mengembangkan kemampuannya dan berhasil meraih cita-cita. Read More »