Tipe Data Pada Algoritma dan Pemrogaman PASCAL

Wah lama gak posting di blog nih,emm kali ini saya ingin share tentang tipe data pada algoritma dan pemrogaman pascal... 

TIPE DATA

Tipe Data menunjukkan suatu nilai yang dapat digunakan oleh suatu variable yang bersangkutan.

Jenis – jenis data yang dikenal dalam bahasa pascal antara lain yaitu:

1. Jenis data sederhana

¨  Jenis data yang standar; yaitu : Integer, Real, Char,  Boolean

¨  Jenis data yang non standar (user defined), yaitu; Enumerated, Sub-range

2. Jenis data String

3. Jenis data berstuktur, yaitu: Array, Record, Set, File

4. Jenis Data Pointer

             INTEGER

> Integer merupakan nilai bilangan bulat. Tipe integer adalah bilangan yang tidak mempunyai titik desimal/bilangan pecahan.Jenis data ini terdiri atas integer positif, integer negatif dan nol.

> Pada TURBO PASCAL jenis data ini di bagi atas beberapa bagian, yaitu :

Integer merupakan nilai bilangan bulat. Tipe integer adalah bilangan yang tidak mempunyai titik desimal/bilangan pecahan.Jenis data ini terdiri atas integer positif, integer negatif dan nol. 

REAL

¨ Tipe real adalah bilangan yang mengandung pecahan,

¨  Penulisan untuk jenis data ini selalu menggunakan titik desimal. Paling sedikit harus ada satu digit sebelum dan sesudah titik desimal.

¨  Nilai numerik real yang signifikan sampai dengan 11 digit. Nilai konstanta numerik real menempati memori sebesar 6 byte.

¨  Operator untuk jenis data ini terditi atas:

      +, - , * dan /

        KARAKTER

¨  Yang dimaksud dengan jenis data ini adalah karakter tunggal atau sebuah karakter yang ditulis diantara tanda petik tunggal, seperti misalnya ‘A’,’a’,’!’,’5’ dsb.

STRING

¨  Nilai data string merupakan urut-urutan dari  Karakter yang terletak di antara tanda petik tunggal. Nilai data string akan menempati memori sebesar banyaknya karakter stringnya ditambah dengan 1 byte. Bila panjang dari suatu string di dalam deklarasi variabel tidak disebutkan, maka dianggap panjangnya adalah 255 karakter.

BOOLEAN

               Data tipe boolean mempunyai dua nilai, yaitu True dan False.

ENUMERATED/TERBILANG

¨  Tipe data ini juga dapat didefinisikan sendiri oleh pemakai. Disebut tipe terbilang karena semua nilai disebut satu persatu.

¨  Jenis data ini terdiri atas barisan identifier yang terurut dimana setiap identifier tersebut dianggap sebagai suatu individual data item (elemen data yang berdiri sendiri).

¨  Pada saat mendeklarasikan jenis data ini kita harus menuliskan semua elemen-elemennya.

¨  Bentuk umum deklarasinya adalah :

            TYPE nama = (data_item_1, data_item_2, ……., data_item_n);

Contoh :

TYPE hari = (Senin,Selasa,Rabu,Kamis,Jum'at,Sabtu,Minggu);

hari_kerja = (Senin,Selasa,Rabu,Kamis,Jum'at);

SUB RANGE/JANGKAUAN

¨  Tipe data ini adalah tipe data yang dapat didefinisikan sendiri oleh pemakai. Nilai data pada tipe ini mempunyai jangkauan tertentu.

¨  Jenis data ini berupa range dari suatu kumpulan data yang mempunyai urutan..

¨  Bentuk umum deklarasinya adalah :           

TYPE nama = data_item_pertama .. data_item_terakhir;

¨  Contoh :

TYPE    jam_kuliah = 1 .. 10;

              tanggal = 1 .. 31;

STATMENT UNTUK INPUT/MASUKAN

¨  Dalam bahasa Pascal untuk keperluan input (membaca nilai pernyataan/input) digunakan identifier standar READ atau READLN.

¨  Identifier standar ReadLn sedikit berbeda dengan Read. ReadLn digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris, sedangkan Read tidak ganti baris, masih dalam baris yang sama.

BENTUK UMUM

READ (variabel input) ;

Atau

READLN (variabel input);

CONTOH;

Program Input1;

Uses WinCrt;

Var Nama : String[25];

       Nilai   : Integer;

Begin

     Clrscr;

Write( ‘Nama Siswa : ‘ ); Readln(Nama);

Write( ‘Nilai Ujian    : ‘ );  Readln(Nilai);

End.

CONTOH 2;

Program Hitung3;

{Program Perhitungan Sederhana Dengan Deklarasi Variabel}

Uses WinCrt;

Var  A,B,C:Byte;

Begin

Clrscr;

Gotoxy(25,5);Write('Program Perkalian');

Gotoxy(20,7);Write('Nilai  A = ');Readln(A);

Gotoxy(20,9);Write('Nilai  B = ');Readln(B);

C:=A*B;

Gotoxy(20,11);Write('Hasil    = ',C);

End.

Membuat Form Untuk Menampilkan Gambar Dengan Visual FOXPRO

 Visual Foxpro

Halo gan gwe kena efek m nih jadi agak sedikit males ngeposting padahal gwe udah brontak buat nyerang nie mata biar kga ngantuk tapi karena harinya gini apa boleh buat lah saya coba berbagi ilmu dengan para agan-agan yang setia pantengin blog ane oke deh gan langsung aja samperin ke tkp,jangan ricuh ya sob karena nie blog berbagi ilmu untuk kita bersama juga,gak adayang lain....langsung aja kali ini saya ingin ngebahas mengenai cara membuat form dengan visual foxpro saya ingin membuat form untuk menampilkan gambar pada visual foxpro berikut adalah caranya simak baik-baik di setiap step-stepnya jangan sampai salah yaa..

1.buka visual foxpro>klik new (ctrl+n)>new disitu ada pilihan dan pilih form>klik new file

2.jika kalian ingin mengubah nama form1 anda cukup mengubahnya di prperties>cari caption kemudian ubah namanya

3.klik command button pada form control buat commend button sesuai dengan yang anda butuhkan terserah mau 2 atau 5 semau anda

4.setelah command button selesai langkah selanjutnya adalah meng input gambar yaitu dengan form control>image buat ukuran gambarnya sesuai dengan yang anda inginkan dan setelah setelah selesai

5.misalkan kita telah selesai membuat tombol command button 2-5 klik 2 kali pada command button kemudian isikan THISFORM.IMAGE.PICTURE=’LOKASIGAMBAR’ lakukan langkah tersebut sampai pada command button terakhir kemudian save formnya lalu jalankan taraaaaaa berhasil-berhasil hore hahaha terlalu bersemangat banget ya sob.

Nah itu dia cara bagaimana saya membuat form untuk menampilkan gambar pokoknya keren deh hasilnya/jika kamu gagal bikin formnya kamu bisa kog lihat form yang saya buat namun anda harus memiliki program visual foxpro dulu baru anda bisa buka form yang saya buat tersebut.saya menggunakan program visual foxpro v.9.00

Untuk itu silahkan download visual foxpronya dulu yaa nih saya kasih link untuk download form dari saya klik link di bawah ini

http://www.4shared.com/file/qjlJwRFc/TUGAS1_310112021985.html

Foto Levitasi

ini adalah kumpulan foto-foto levitasi yang kami buat silahkakn menikmati kalo ada kritik,saran koment aja ya jangan malu malu hehe terima kasih

 model:pu2t&mamat haha

 wassalammualaikumm wr.wb

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