Modul 2 Pemrogaman 2 Pascal

Ini coding untuk modul dua pelajari variabelnya,lihat hasilnya ini sebagai bahan untuk belajar saja,jangan disalahgunakan hehe.kalo kamu perlu pascalx nanti akan saya uploud kan...ya terima kasih...mohon komentarnya supaya lebih membangun blog ini.

Latihan 5

Program LATIH2A;    

{ Program INPUT / Memasukkan Data Mahasiswa dengan Deklarasi VARIABEL }

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

  Date Write  : 23 Februari 2012 }

USES WINCRT;

VAR  NIM    : STRING;

     NAMA   : STRING;

     JUR    : STRING;

     ALAMAT : STRING;

     JKEL   : CHAR;

     UMUR   : BYTE;

     IPK    : REAL;

    

BEGIN

CLRSCR;

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

WRITELN ('==================================');

WRITELN ('');

          

{Program Input Data dengan perintah READLN}

WRITE ('MASUKKAN NO. INDUK MAHASISWA : ');READLN(NIM);

WRITE ('MASUKKAN NAMA MAHASISWA      : ');READLN(NAMA);

WRITE ('MASUKKAN JURUSAN             : ');READLN(JUR);

WRITE ('MASUKKAN ALAMAT MAHASISWA    : ');READLN(ALAMAT);

WRITE ('MASUKKAN JENIS KELAMIN       : ');READLN(JKEL);

WRITE ('MASUKKAN UMUR                : ');READLN(UMUR);

WRITE ('MASUKKAN IPK MAHASISWA       : ');READLN(IPK);

END.

Simpan dengan nama LATIH2A.PAS

Latihan 6

Program LATIH2B;    

{ Program Perhitungan 2 Buah Bilangan }

{ Created by  : Me...

  Date Write  : 23 Februari 2012 }

USES WINCRT;

VAR  A,B,C,D : BYTE;

         

BEGIN

CLRSCR;

GOTOXY(25,05);WRITE ('Program Perhitungan');

GOTOXY(25,06);WRITE ('===================');

GOTOXY(25,08);WRITE ('Masukkan Nilai A = ');READLN(A);

GOTOXY(25,09);WRITE ('Masukkan Nilai B = ');READLN(B);

C := A+B;

D := A*B;

GOTOXY(26,11);WRITE ('Hasil A + B ---> ',C);

GOTOXY(26,12);WRITE ('Hasil A * B ---> ',D);

END.

Simpan dengan nama LATIH2B.PAS

Latihan 7

Program LATIH2C;    

{ Program Menghitung Luas Persegi Panjang menggunakan VARIABEL }

{ Created by  : Me...

  Date Write  : 23 Februari 2012 }

USES WINCRT;

VAR  Panjang, Lebar : INTEGER;

     Luas           : REAL;

    

BEGIN

CLRSCR;

WRITELN ('Menghitung Luas Persegi Panjang');

WRITELN ('===============================');

WRITELN ('');

WRITE ('Masukkan nilai Panjang = ');READLN(Panjang);

WRITE ('Masukkan nilai Lebar   = ');READLN(Lebar);

Luas := Panjang * Lebar;

WRITELN ('Luas Persegi Panjang ----> ',Luas:4:2);

READKEY;

END.

Simpan dengan nama LATIH2C.PAS

Latihan 8

Program LATIH2D;    

{ Program Input dan Output Data Mahasiswa dengan Deklarasi VARIABEL }

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

  Date Write  : 23 Februari 2012 }

USES WINCRT;

VAR  NIM    : STRING[12];

     NAMA   : STRING[20];

     JUR    : STRING[20];

     ALAMAT : STRING[15];

     JKEL   : CHAR;

     UMUR   : BYTE;

     IPK    : REAL;

    

BEGIN

CLRSCR;

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

WRITELN ('==================================');

WRITELN ('');

{Program Input/Memasukkan Data dengan perintah READLN}

WRITE ('MASUKKAN NO. INDUK MAHASISWA : ');READLN(NIM);

WRITE ('MASUKKAN NAMA MAHASISWA      : ');READLN(NAMA);

WRITE ('MASUKKAN JURUSAN             : ');READLN(JUR);

WRITE ('MASUKKAN ALAMAT MAHASISWA    : ');READLN(ALAMAT);

WRITE ('MASUKKAN JENIS KELAMIN       : ');READLN(JKEL);

WRITE ('MASUKKAN UMUR                : ');READLN(UMUR);

WRITE ('MASUKKAN IPK MAHASISWA       : ');READLN(IPK);

{Program Output/Menampilkan Data yang diinput}

CLRSCR;

GOTOXY(25,04);WRITE ('S T M I K  B A N J A R B A R U');

GOTOXY(25,05);WRITE ('==============================');

GOTOXY(25,08);WRITE ('NO.INDUK MAHASISWA : ',NIM);

GOTOXY(25,09);WRITE ('NAMA MAHASISWA     : ',NAMA);

GOTOXY(25,10);WRITE ('JURUSAN            : ',JUR);

GOTOXY(25,11);WRITE ('ALAMAT             : ',ALAMAT);

GOTOXY(25,12);WRITE ('JENIS KELAMIN      : ',JKEL);

GOTOXY(25,13);WRITE ('UMUR               : ',UMUR);

GOTOXY(25,14);WRITE ('INDEX PRESTASI KUM.: ',IPK:4:2);

READKEY;

END.

Simpan dengan nama LATIH2D.PAS

Latihan 9

Program LATIH2E;    

{ Program Output Data Mahasiswa dengan Tampilan Horizontal }

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

  Date Write  : 23 Februari 2012 }

USES WINCRT;

VAR  NIM    : STRING[12];

     NAMA   : STRING[20];

     JUR    : STRING[20];

     IPK    : REAL;

    

BEGIN

CLRSCR;

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

WRITELN ('==================================');

WRITELN ('');

{Program Input/Memasukkan Data dengan perintah READLN}

WRITE ('MASUKKAN NO. INDUK MAHASISWA : ');READLN(NIM);

WRITE ('MASUKKAN NAMA MAHASISWA      : ');READLN(NAMA);

WRITE ('MASUKKAN JURUSAN             : ');READLN(JUR);

WRITE ('MASUKKAN IPK MAHASISWA       : ');READLN(IPK);

{Program Output/Menampilkan Data yang diinput secara Horizontal}

CLRSCR;

GOTOXY(25,04);WRITE ('S T M I K  B A N J A R B A R U');

GOTOXY(25,05);WRITE ('==============================');

GOTOXY(10,07);WRITE ('----------------------------------------------------');

GOTOXY(11,08);WRITE ('NIM');

GOTOXY(25,08);WRITE ('NAMA MHS');

GOTOXY(45,08);WRITE ('JURUSAN');

GOTOXY(63,08);WRITE ('IPK');

GOTOXY(10,09);WRITE ('----------------------------------------------------');

GOTOXY(11,10);WRITE (NIM);

GOTOXY(25,10);WRITE (NAMA);

GOTOXY(45,10);WRITE (JUR);

GOTOXY(63,10);WRITE (IPK:4:2);

GOTOXY(10,11);WRITE ('----------------------------------------------------');

READKEY;

END.

Simpan dengan nama LATIH2E.PAS

Latihan 10

Program LATIH2F;    

{ Program Perhitungan Pembelian Barang }

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

  Date Write  : 23 Februari 2012 }

USES WINCRT;

VAR

   KDBRG  : CHAR;

   NMBRG  : STRING[20];

   JML    : BYTE;

   HRGBRG,DISKON,TOTBYR : REAL;

BEGIN

CLRSCR;

{Program Input Data}

WRITELN ('TOKO PUTRA RAHMAN');

WRITELN ('=================');

WRITELN (' ');

WRITE ('KODE BARANG [A/B/C] : ');READLN(KDBRG);

WRITE ('NAMA BARANG         : ');READLN(NMBRG);

WRITE ('JUMLAH BELI         : ');READLN(JML);

WRITE ('HARGA BARANG        : ');READLN(HRGBRG);

    

DISKON:=0.1*(JML*HRGBRG);

TOTBYR:=(JML*HRGBRG)-DISKON;

{Program Output}

CLRSCR;

GOTOXY(30,05);WRITELN ('TOKO PUTRA RAHMAN');

GOTOXY(30,06);WRITELN ('=================');

GOTOXY(25,08);WRITE('KODE BARANG     : ',KDBRG);

GOTOXY(25,10);WRITE('NAMA BARANG     : ',NMBRG);

GOTOXY(25,12);WRITE('HARGA BARANG    : Rp ',HRGBRG:7:0);

GOTOXY(25,14);WRITE('JUMLAH BARANG   : ',JML);

GOTOXY(25,16);WRITE('DISKON          : Rp ',DISKON:7:0);

GOTOXY(25,18);WRITE('TOTAL           : Rp ',TOTBYR:7:0);

READKEY;

END.

Simpan dengan nama LATIH2F.PAS