Modul 1 Pemrogaman 2 Pascal

Berikut adalah coding untuk belajar pemrogaman 2 pascal.langsung aja ya gan di pelajari jangan gak di pelajari ini penting karena ini ilmu lo n jangan disalahgunakkan hehe langsung aja nih codingx..
ingat:coding tidak bisa di copy paste klo bisa kerjakan manual karena ini perlu ketelitian ya gan

Latihan 1

Program LATIH1A;    

{ Program membuat BIODATA menggunakan WRITE }

{ Created by  : …………… (tuliskan nama anda)

  Date Write  : 20 Februari 2012 }

USES WINCRT;

BEGIN

     CLRSCR;

     WRITE (’DATA PRIBADI’);

     WRITE (’=============’);

     WRITE (’NIM               : 310111011234’);

     WRITE (’NAMA              : ANNA’);

     WRITE (’TEMPAT/TGL LAHIR  : BANJARBARU, 27 JANUARI 1995’);

     WRITE (’JURUSAN           : TEKNIK INFORMATIKA’);

     WRITE (’AGAMA             : ISLAM’);

     WRITE (’ALAMAT            : KOMPLEK  BATU  BENAWA  LOKTABAT’);

     WRITE (’HOBBY             : MEMBACA’);

     READLN;

END.

Simpan dengan nama LATIH1A.PAS

Latihan 2

Program LATIH1B;    

{ Program membuat BIODATA menggunakan WRITELN }

{ Created by  : …………… (tuliskan nama anda)

  Date Write  : 20 Februari 2012 }

USES WINCRT;

BEGIN

     CLRSCR;

     WRITELN (’DATA PRIBADI’);

     WRITELN (’=============’);

     WRITELN (’NIM                    : 310111011234’);

     WRITELN (’NAMA                   : ANNA’);

     WRITELN (’TEMPAT/TGL LAHIR       : BANJARBARU, 27 JANUARI 1995’);

     WRITELN (’JURUSAN                : TEKNIK INFORMATIKA’);

     WRITELN (’AGAMA                  : ISLAM’);

     WRITELN (’ALAMAT                 : KOMPLEK BATU BENAWA  LOKTABAT’);

     WRITELN (’HOBBY                  : MEMBACA’);

     READLN;

END.

Simpan dengan nama LATIH1B.PAS

Latihan 3

Program LATIH1C;    

{ Program membuat DAFTAR BARANG menggunakan GOTOXY }

{ Created by  : …………… (tuliskan nama anda)

  Date Write  : 20 Februari 2012 }

USES WINCRT;

BEGIN

     CLRSCR;

     GOTOXY(30,04);WRITE (’DAFTAR HARGA BARANG’);

     GOTOXY(31,05);WRITE (’TOKO PUTRA RAHMAN’);

     GOTOXY(30,06);WRITE (’====================’);

     GOTOXY(25,08);WRITE (’NAMA BARANG    :  TELEVISI’);

GOTOXY(25,09);WRITE (’MERK BARANG    :  TOSHIBA’);

GOTOXY(25,10);WRITE (’UKURAN         :  21 INC’);

GOTOXY(25,11);WRITE (’HARGA BARANG   :  Rp 1,500,000’);

     GOTOXY(25,12);WRITE (’JUMLAH BARANG  :  15 UNIT’);

     GOTOXY(25,14);WRITE (’T  T  D’);

     GOTOXY(25,16);WRITE (’MANAJER PEMASARAN’);

     READLN;

END.

Simpan dengan nama LATIH1C.PAS

Latihan 4

Program LATIH1D;    

{ Program membuat DAFTAR MAHASISWA menggunakan VARIABEL CONSTANTA }

{ Created by  : …………… (tuliskan nama anda)

  Date Write  : 20 Februari 2012 }

USES WINCRT;

CONST

NIM     = ’310111011234’;

NAMA    = ’ ANNA’;

JUR     = ’TEKNIK  INFORMATIKA’;

ALAMAT  = ’BANJARBARU’;

JKEL    = ’P’;

UMUR    = 17;

IPK     = 2.95;

BEGIN

     CLRSCR;

     WRITELN (’S T M I K      B A N J A R B A R U’);

     WRITELN (’===========================’);

     WRITELN (’’);

     WRITELN (’NO. INDUK MAHASISWA          :  ’ , NIM);

     WRITELN (’NAMA MAHASISWA               :  ’ , NAMA);

     WRITELN (’JURUSAN                      :  ’ , JUR);

     WRITELN (’INDEX PRESTASI KUMULATIF     :  ’ , IPK:4:2);

     WRITELN (’ALAMAT                       :  ’ , ALAMAT);

     WRITELN (’JENIS KELAMIN                :  ’ , JKEL);

     WRITELN (’UMUR                         :  ’ , UMUR);

     READLN;

END.

Simpan dengan nama LATIH1D.PAS 

Terima kasih telah berkunjung ke blogx puput ya...selamat belajar pascal