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

Comments