Rindukan Dirimu...

berjanjilah wahai sahabatku
bila kau tinggalkan aku
tetaplah tersenyum
meski hati sedih dan menangis
kuingin kau tetap tabah menghadapinya

Senin, 02 September 2013


Pengertian Pascal
Pascal adalah bahasa tingkat tinggi(High Level Languange) yaitu bahasa pemrograman yang mudah dipahami oleh bahasa manusia. Pascal merupakan bahasa yang terstruktur tersusun atas sejumlah blok.Blok-blok yang kecil selanjutnya dapat dapat dipakai untuk membuat blok yang lebih besar. Blok ini lebih dikenal dengan sebutan subprogram, yang dibedakan atas prosedur dan fungsi. Pascal Pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971.

Kelebihan dari bahasa pemrograman Pascal adalah:

-Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string,
-User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
-Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.
-Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang.
-Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.

Kekurangan bahasa pascal :

-Versi awal Pascal kurang cocok untuk aplikasi bisnis karena dukungan basisdata yang terbatas.

-Sintaks Pascal terlalu bertele-tele
-Tidak mendukung pemrograman berorientasi objek
-Pascal tidak fleksibel dan banyak kekurangan yang dibutuhkan untuk membuat aplikasi yang besar.

CONTOHNYA :
Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis
Skrip Program Pascal
Output Program
program jum_bil;

uses wincrt;

var

i, jum,bil: integer;

begin

jum:=0; {inisialisasi}

for i:=1 to 5 do

 begin

write('Masukkan Bilangan = ');readln(bil);

jum:=jum+bil;

 end;

writeln('Jumlah Bilangan = ',jum);

end.
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Jumlah Bilangan = 60
Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal
Output Program
program jum_bil2;

uses wincrt;

var

i, n: integer;

jum, bil: real;

begin

write(‘Banyak bilangan :  ');read(n);

jum := 0;

For i:= 1 to n do

begin

write('Masukkan Bilangan ',i, '=');read(bil);

jum := jum+bil;

end;

writeln('Jum = ',jum:0:2);

end.
Banyak bilangan : 3
Masukkan Bilangan 1 = 12
Masukkan Bilangan 2 = 13
Masukkan Bilangan 3 = 14
Jum = 39.00
Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal
Output Program
program contoh_3;

uses wincrt;

var

n, i : integer;

rata : real;

jum, bil : integer;

begin

Write('Masukkan nilai N = ');readln(n);

writeln ('Nilai N adalah= ',n);writeln;

for i := 1 to n do

begin

write('Masukkan bilangan : ');read(bil);

jum := jum+bil;

end;

rata := jum/n;writeln;

writeln('Jumlahnya adalah : ',jum);

writeln('Nilai rata-ratanya :', rata:0:2);

end.
Masukkan nilai N = 3
Nilai N adalah= 3
Masukkan bilangan: 1
Masukkan bilangan: 2
Masukkan bilangan: 3
Jumlahnya adalah : 6
Nilai rata-ratanya : 2.00
Program Menghitung Jumlah dan Banyaknya Data
Script Program Pascal
Output Program Pascal
program contoh4;

uses wincrt;

var

n, i,byk,jum, bil : integer;

begin

Write('Masukkan nilai perulangan : ');readln(n);

Writeln;

for i := 1 to n do

begin

write('Bilangan ',i,' = ');read(bil);

if bil >= 10 then

begin

byk := byk+1;

jum := jum+bil ;

end;

end;

writeln;

writeln('banyak bilangan yang >= 10 : ',byk);

writeln('jumlah bilangan yang >= 10 : ',jum);

end.