Algoritma Pemograman (Tipe Data)

Tipe Data Sederhana

Tipe Data Sederhana yang telah disiapkan oleh pascal adalah sebagai berikut :

1.  Integer
2. Real 
3.  Karakter
4. String

v  Tipe Data Integer

Tipe data Integer adalah tipe data yang nilainya merupakan bilangan bulat. Tipe data Integer terbagi atas beberapa macam :

Tipe	Range
ShortInt	-128..127
Integer	-32768..32767
LongInt	-2147483648..2147483647
Byte	0..255
Word	0..65535

Contoh penggunaan tipe data Integer :

1.      Var

        Jumlah : byte;

       Begin

                Jumlah := 200;

                Write(‘Nilai Jumlah = ‘, Jumlah);

       End.

       Bila program ini dijalankan, akan didapatkan hasil :  Nilai Jumlah = 200

2.      Var

Jumlah : integer;

                        Begin

                                 Jumlah := 25000;

                                 Write(‘Nilai Jumlah = ‘, Jumlah);

                        End.

Bila program ini dijalankan, akan didapatkan hasil :  Nilai Jumlah = 25000

Dengan mengetahui tipe data yang ada, maka diharapkan penggunaan data tidak menjadi salah. Contoh program berikut ini adalah salah, karena menggunakan variabel tipe byte yang diisi dengan data yang salah, yaitu melebihi jangkauan tipe byte sebagai berikut :

Var

        Jumlah : byte;

Begin

        Jumlah := 65000;

        Write(‘Nilai Jumlah = ‘, Jumlah);

End.

Pesan kesalahan :  Error 76 : Constant out of range

Karena variabel Jumlah akan diberi nilai 65000, maka harus dideklarasikan sesuai dengan tipe datanya, yaitu dapat dideklarasikan bertipe Word atau Longint.   

v  Tipe Data Real

Tipe data Real biasa digunakan untuk merepresentasikan nilai pecahan. Tipe data Real terbagi atas beberapa macam :

Tipe	Range
Real	± 2.9x10-39..1.7x1038
Single	± 1.5x10-45..3.4x1038
Double	± 5x10-324..1.7x10308
Extended	± 3.4x10-4932..1.1x104932
Comp	-9.2x1018..9.2x1018

Contoh penggunaan tipe data Real :

Var

        Nilai2, Nilai2 : real;

Begin

        Nilai1 := 12345678901.2345;

Nilai2 := 12345;

Writeln(‘Nilai1 = ‘, Nilai1);

Write(‘Nilai2 = ‘, Nilai2);

End.

Bila program ini dijalankan, akan didapatkan  hasil : Nilai1 = 1.2345678901E+10

                                                                                      Nilai2 = 1.2345000000E+4

v  Tipe Data Karakter

Hanya dapat menampung satu karakter saja. Ditulis diantara tanda petik tunggal.

Bentuk umum :

        Var

                        <Nama Variabel> : char;

Contoh :

        Var

                        Huruf : char;

        Begin

                        Huruf := ‘A’;

                        Write(‘Karakter tersebut = ‘, Huruf);

        End.

Bila program ini dijalankan, akan didapatkan  hasil : Karakter tersebut = A

v  Tipe Data String

Tipe data String merupakan gabungan dari karakter sebanyak maksimal 256 karakter.

Bentuk umum :

        Var

                        <Nama Variabel> : string;

Contoh :

        Var

                        Kalimat                 : string;

Tanggal                 : string[10];

Hari                        : string[6];

Jarak                      : char;

Begin

        Kalimat := ‘Tanggal hari ini : ‘

        Tanggal := ’15-10-2011’;

        Hari        := ‘Sabtu’;

        Jarak      := ‘ ‘;

        Writeln(Kalimat); write(Tanggal, Jarak, Hari); 

End.

Bila program ini dijalankan, akan didapatkan  hasil :

Tanggal hari ini :

15-10-2011 Sabtu

Contoh Program Menggunakan Tipe Data String, Integer,  Real

Program Penjualan; {Heading Program}

Uses wincrt;

Var  {bagian deklarasi}

                Nama : string[20];

                Kode : string[5];

                Jumlah : integer;

                Harga, Bayar : real;

Begin  {bagian pernyataan}

{***Input***}

Write(‘Masukkan nama barang : ‘);readln(Nama);

Write(‘Masukkan kode barang : ‘); readln(Kode);

Write(‘Masukkan jumlah barang : ‘);readln(Jumlah);

Write(‘Masukkan harga barang : ‘);readln(Harga);

{***Proses***}

Bayar := Jumlah * Harga;

{***Output***}

Writeln(‘Daftar Penjualan Toko Wicida’);

Writeln(‘============================’);

Writeln(‘Nama barang : ‘,Nama);

Writeln(‘Kode barang : ‘, Kode);

Writeln(‘Jumlah barang : ‘, Jumlah);

Writeln(‘Harga barang : ‘, Harga:8:2);

Writeln(‘Jumlah pembayaran : ‘, Bayar:8:2);

End.