ALGORITMA DAN PEMROGRAMAN 2A (PASCAL)

1. TIPE DATA

Tipe data yang disediakan oleh PASCAL meliputi:

1.Tipe Data Sederhana

merupakan tipe data dasar yang sering dipakai oleh program, meliputi: integer (bilangan bulat), real (bilangan pecahan), char (alphanumerik dan tanda baca), dan boolean (logika). Untuk data integer dan real masing-masing terbagi menjadi beberapa kategori

a. Bilangan Integer

contoh:

Program display_maxint;
uses wincrt;
begin

writeln (maxint)
end.Hasilnya: 32.767

Tipe Data	Ukuran Tempat	Rentang Nilai
Byte	1 byte	0 s/d +255
Shortint	1 byte	-28 s/d +127
integer	2 bytes	-32768 s/d 32767
Word	2 bytes	0 s/d 65535
Longint	4 bytes	2147483648 s/d 2147483647

b. Bilangan Real

Tipe Data	Ukuran Tempat	Rentang Nilai
real	6 bytes	2.9 x 10-39 s/d 1.7 x1038
single	4 bytes	1.5 x 1045 s/d 3.4 x 1038
double	8 bytes	5.0 x 10-324 s/d 1.7 x 10308
extended	10 bytes	3.4 x 10-4932 s/d 1.1 x 104932
comp	8 bytes	-9.2x 1018 s/d 9.2x 1018

c. Char

Tipe data ini menyimpan karakter yang diketikkan dari keyboard, memiliki 266 macam yang terdapat dalam tabel ASCII (American Standard Code for Information Interchange). Contoh: 'a' 'B' '+', dsb. Yang perlu diingat bahwa dalam menuliskannya harus dengan memakai tanda kutip tunggal. Jenis data ini memerlukan alokasi memori sebesar 1(satu) byte untuk masing-masing data.

d. Tipe Data Boolean

merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah)

contoh :

Program hal_string;Contoh: Program display_bool ;
uses wincrt;

begin writeln(ord(true));
writeln(ord(false));
end.

Hasilnya: 1 0 3.2.

Tipe Data	Ukuran Tempat
Boolean	1 byte
WordBool	2 byte
Longbool	3 byte

2.Tipe Data Terstruktur

tipe ini terdiri atas : array, record, set, dan file. String adalah tipe data jenis array, tetapi karena string memiliki kekhasan tersendiri sebagai array dari karakter maka penulis perlu memberikan penjelasan tersendiri

a. Tipe Data String

merupakan suatu data yang menyimpan array (larik), sebagai contoh 'ABCDEF' merupakan sebuah konstanta string yang berisikan 6 byte karakter. Ukuran Tempat untuk tipe data ini adalah 2 s/d 256 byte, dengan jumlah elemen 1 s/d 255. String dideklarasikan dengan string [ konstanta ] atau string. Bila ukuran string tidak didefinisikan maka akan banyak memakan ruang, karena ukuran string menyesuaikan dengan defaultnya. Misalkan
var kata: string [20]; atau var kata: string; karena string merupakan array dari karakter. Maka kata[1] merupakan karakter pertama dari string, kemudian kata[2], merupakan elemen kedua, dst.Contoh:

Program hal_string;
Uses wincrt;
var s : string;
begin s:='Hello';
writeln(s);
writeln('panjang dari string adalah: ',ord(s[0]));
end.

Karakter nol merupakan karakter yang menyatakan panjang string. Sehingga ord(s[0]) menyatakan panjang dari string tersebut. Panjang string juga bisa dinyatakan sebagai length(s).

     

       2.PROSEDUR STANDAR

Prosedur adalah suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram (program

bagian).

PROGRAM  Judul-program;

              PROCEDURE  Judul-prosedur;

              BEGIN

               

              END;

BEGIN

END

        3.IDENTIFIER

Identifier merupakan sebuah kata yang digunakan sebagai nama atau sebutan terhadap sesuatu didalam program. Pemakai dapat mendefinisikan sendiri suatu nama sebagai identifier.

identifier ini terdiri atas :

1. Identifier Standar, yaitu identifier yang telah didefinisikan oleh bahasa pascal.

Contoh dari Identifier standar ini antara lain:

ABS                            LN

ARCTAN                   ODB

BOOLEAN                PRED

CHAR                         ROUND

CHR                            READ

COS                            READLN

EOF                            SQR

EOLN                         SQRT

EXP                            SUCC

Dan masih banyak lagi.

1. Identifier Non Standar; yaitu identifier yang didefinisikan oleh pemakai bahasa pascal; misalnya;

3. nama suatu program
4. nama suatu konstanta
5. nama suatu variabel
6. nama suatu procedure

Identifier ini bebas, tetapi dengan ketentuan-ketentuan sebagai berikut :

1. terdiri dari gabungan huruf dan angka dengan karakter pertama harus berupa huruf. Huruf besar dan huruf kecil dianggap sama.
2. Tidak boleh mengandung blank.
3. Tidak boleh mengandung simbol-simbol khusus, kecuali garis bawah.
4. Panjangnya bebas, tetapi hanya 63 karakter pertama yang dianggap signifikan.

 Contoh :

Identifier	Keterangan
GajiKaryawan	Benar
No_Mhs	Benar
P3K	Benar
1X	Salah, karakter pertama harus huruf
A&B	Salah, tidak boleh mengandung simbol khusus
A B	Salah, tidak boleh mengandung blank

4.PROCEDURE AND FUNCTION

         Procedure
Procedure adalahsuatu program yang terpisah dalam blok tersendiri yang berfungsi sebagai subprogram. Penggunaan prosedur diawali dengan kata cadangan procedure dalam bagian deklarasi prosedur. Pemanggilan prosedur dapat dilakukan dengan menggunakan judul prosedur.

Bentuk umum:
Procedure nama_procedure(parameter);
Deklarasi variabel,label,…dll;
Begin
Statement procedure;
………………………….
………………………….
End;

Contoh program
Uses crt;
Procedure hitungluas(p,l:integer);
Var
ls:integer;
begin
ls:=p*l;
Writeln(‘Luas: ‘, ls);
End;
Procedure hitkeliling(pp,ll:integer);
Var
Kel:integer;
Begin
Kel:=(2*pp)+(2*ll);
Writeln(‘Keliling: ‘,kel);
End;
Var
Pj,lbr:integer;
begin
clrscr;
write(‘Masukan panjang : ‘);readln(pj);
write(‘Masukan lebar : ‘);readln(lbr);
writeln;
hitungluas(pj,lbr);
hitkeliling(pj,lbr);
readln;
end.

Function

Blok pada function hampir sama dengan blok pada procedure, hanya pada function harus dideklarasikan dengan tipe dari function tersebut yang merupakan tipe hasil dari function itu sendiri. Sehingga dikatakan function dapat mengembalikan nilai.

Contoh program function :
Uses crt;
Function faktor(bilangan :integer) : real;
Begin
If bilangan = 0 then faktor := 1
Else
Faktor := faktor(bilangan-1)*bilangan;
End;
Var
n : integer;
begin
clrscr;
write(‘Berapa Faktorial Dari = ‘); readln(n);
writeln(n,’ faktorial = ‘, faktor(n):9:0);
readln;
end.

5.WHILE DO REPEAT UNTIL

Perbedaan WHILE DO dengan REPEAT UNTIL :

1.   tak pada  pengujian kondisi.

Paling sedikit statemen-statemen dalam repeat until diproses sekali, karena seleksi kondisi ada pada statemen until yang terletak dibawah.

Pada while do paling sedikit dikerjakan nol kali, karena seleksi kondisi ada pada statemen while yang terletak diatas, sehingga

apabila kondisi tidak terpenuhi maka tidak akan masuk ke dalam lingkungan perulangannya.

2.   REPEAT UNTIL mengulang pernyataan selama kondisi belum terpenuhi sedangWHILE DO mengulang pernyataan selama kondisi  masih terpenuhi.

3.   Pada repeat until dapat tidak menggunakan blok statemen (BEGIN dan END) untuk menunjukan batas perulangannya, karena batas perulangannya sudah ditunjukkan oleh repeat sampai dengan until. Sedangkan WHILE DO harus menggunakan blok statemen (BEGIN dan END).

Contoh

Var

I:Integer;

Begin

I:=0;

While I<5 Do

Begin

Writeln(I);

I:=I+1;

End;

End.

Bila program dijalankan akan menghasilkan:

0

1

2

3

4

Penjelasan:

Perulangan dari while akan terus menerus dikerjakan bila kondisinya masih

benar. Dalam hal ini kondisinya adalah I dan bila nilai I kurang dari 5, berarti

kondisi di dalam While masih terpenuhi dan perulangan akan selesai setelah

nilai I lebih besar atau sama dengan 5.

6.KONDISI IF

IF Sederhana

Bentuk paling sederhana dari pernyataan kondisional dalam setiap bahasa adalah if - then. Contoh:

if (a>b) then writeln(“A lebih besar dari B”);

bagian setelah if disebut dengan bagian kondisi dan bagian setelah then adalah bagian aksi. Jika aksi lebih dari satu instruksi maka bisa dikelompokkan dalam blok begin end. Seperti ini:

if (a>b) then

begin

writeln(“Kesimpulan:”);

writeln(“A lebih besar dari B”);

end;

IF dengan ELSE

Selain if - then, ada bentuk kondisional lain yaitu if - then - else. Kita bisa mengubah instruksi

semacam ini:

if (a>b) then writeln(“A lebih besar dari B”);

if (a<=b) then writeln(“A kurang dari atau sama dengan B”);

menjadi:

if (a>b) then writeln(“A lebih besar dari B”) else (“A kurang dari atau sama dengan B”);

Bagian else akan dieksekusi jika bagian kondisi tidak dipenuhi, atau dengan kata lain, bagian else dieksekusi jika kondisi yang terjadi adalah komplemen dari kondisi di bagian if.

Perhatikan: untuk memperjelas program, sebaiknya semua instruksi if yang memiliki else ditulis dengan komentar setelah else (untuk menjelaskan kondisi apa yang ditangani oleh else kepada pembaca program) seperti ini:

if (a>b) then

begin

writeln(“A lebih besar dari B”);

end else (* a<= b *)

begin

(“A kurang dari atau sama dengan B”);

end;

IF untuk banyak kondisi

Instruksi if boleh digabung dengan banyak instruksi if menangani kondisi yang kompleks (banyak kondisi dan banyak aksi), seperti ini:

if (kondisi_1) then

begin

aksi1;

end

else if (kondisi_2) then

begin

aksi2;

end else (* kondisi 1 dan 2 tidak dipenuhi*)

begin

aksi_n;

end.

Case untuk banyak aksi

Selain IF, ada bentuk analisa kasus yang digunakan untuk menangani banyak kondisi yang ada dalam bentuk (a adalah suatu ekspresi yang menghasilkan tipe enumerasi, dan k1 .. kn adalah konstanta):

if (a = k1 ) then

begin

aksi1;

end else if (a = k2) then

begin

aksi2;

end else if (a=k3) then

begin

aksi3;

end else

begin

Aksi_n;

end;

7.PERULANGAN FOR

 Statement For

Perulangan dengan statement For digunakan untuk mengulang statement atau suatu blok statement berulang kali. Perulangan dengan statement For dapat berupa perulangan positif dan perulangan negatif.

Perulangan For Positif untuk Statement For-To. Penulisan sintaknya yaitu

For (Var):=Kondisi1 To Kondisi2 Do (Statament); Contoh:

Program coba;

Uses Wincrt;

Var

 I:Integer;

Begin

 For I:=1 to 5 do Writeln(‘I Love Pascal’);

End.

Perulangan For Negatif untuk Statement For-Downto. Penulisan sintaknya yaitu

For (Var):=Kondisi1 Downto Kondisi 2 Do (Statement); contoh:

Program coba;

Uses Wincrt;

Var

 I:Integer;

Begin

 For I:=5 Downto 1 do Writeln(‘I Love Pascal’);

End.

sumber:

http://materikuliah.blogspot.com/2007/10/type-data-dalam-pascal.html

http://tid3ustj.wordpress.com/2011/11/12/konsep-tipe-data-operator-dan-identifier-dalam-pascal/

http://bimosakti15.wordpress.com/2013/04/26/procedure-dan-function-pada-pascal/

http://polsqu.blogspot.com/2013/01/while-do-dan-repeat-until.html

http://pemrogramanmudah.blogspot.com/p/pascal-pengguna-kondisi-if.html

http://coretan-pencil.blogspot.com/2013/02/program-perulangan-pada-pascal.html

SUKSES SELALU^^