Pages

Wednesday, October 19, 2011

Monday, October 17, 2011

Mengurutkan data secara ascending dengan Pascal

Listing program :
uses crt;
type
  arr= array[1..50]of byte;
var
  i: byte;
  data: arr;
  max: byte;

Membuat tree dengan Pascal

uses crt;
type pnode = ^data;
     data  = record
       isi : char;
        L, R : pnode;
     end;

Membuat program stack dengan Pascal


Listing program :
uses crt;

const lowbound = 0;
      upbound  = 5;

Membuat menu pilihan dengan Pascal


uses crt;
type
    recmhs = record
    nama : string;
    kelas : string;
    npm : string;
end;

Menggunakan array pada Pascal (gambar grafik)


uses crt;
type
    tahun = array[1..6] of byte;
var
    data: tahun;

Saturday, October 15, 2011

input, cari dan tampil data dengan cobol


LISTING PROGRAM :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. RELATIF.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

Membuat matrik dengan cobol


LISTING PROGRAM :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. MATRIK.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.

Menghitung luas segitiga dan persegi dengan cobol


LISTING PROGRAM :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ERIKA.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.

Membuat menu pilihan dengan cobol

Disini saya akan membuat program menu pilihan menggunakan cobol. Saya hanya membuat tiga menu pilihan.


LISTING PROGRAM :