Apa itu Pascal ?

Apa itu Pascal???

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan PerancisBlaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.
Kelebihan dari Pacal adalah:
Pascal memiliki Type Data Standard yang biasa digunakan pada bahasa-bahasa pemrograman lain. Selain itu juga, programer Pascal dapat membuat tipe data lain yang diturunkan dari tipe data standar (User defined Data Types). pascal juga memiliki prosedure dan function yang biasa digunakan programer untuk menulis program dengan terstruktur. Pascal juga memilikiStrongly-typed, yang biasa digunakan oleh programmer untuk menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.
Berikut ini adalah contoh program penjumlahan menggunakan Free pascal:
program penjumlahan;
uses crt;
var x, y, z : integer;
begin
write(‘Masukan angka pertama = ‘);
read(x);
writeln;
write(Masukan angka kedua = ‘);
read(y);
writeln;
z:=x+y;
write(‘Hasil penjumlahan = ‘,z);
end.
If (Syarat) Then

(yang dilakukan saat syarat terpenuhi);

Keterangan :

Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, tidak dikerjakan sesuatu.

Contoh :

If A:=10 Then

WriteLn('Selamat. Anda benar.');

Tingkat 2 _________________________________

If (Syarat) Then

(yang dilakukan saat syarat terpenuhi)

Else

(yang dilakukan saat syarat tidak terpenuhi);

Keterangan :

Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.

Contoh :

If A:=10 Then

WriteLn('Selamat. Anda benar.')

Else

WriteLn('Anda belum beruntung.');

Tingkat 3 _________________________________

If (Syarat) Then

Begin

(yang dilakukan saat syarat terpenuhi);

(...);

End

Else

(yang dilakukan saat syarat tidak terpenuhi);

Keterangan :

Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.

Contoh :

If B<>0 Then

Begin

H:=A/B;

WriteLn;

WriteLn('Harga H = ',H:13:2);

End

Else

WriteLn('Harga H Imajiner.');

Tingkat 4 _________________________________

If (Syarat) Then

Begin

(yang dilakukan saat syarat terpenuhi);

(...);

End

Else

Begin

(yang dilakukan saat syarat tidak terpenuhi);

(...);

End;

Keterangan :

Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.

Contoh :

If B<>0 Then

Begin

H:=A/B;

WriteLn;

WriteLn('Harga H = ',H:13:2);

End

Else

Begin

WriteLn;

WriteLn('Harga H Imajiner.');

WriteLn('Harga B tidak boleh NOL.');

WriteLn('Silahkan coba lagi.');

End;

Tingkat 5.A _________________________________

If (Syarat1) Or (Syarat2) Then

Begin

(yang dilakukan saat salah satu syarat terpenuhi);

(...);

End

Else

Begin

(yang dilakukan saat kedua syarat tidak terpenuhi);

(...);

End;

Keterangan :

Pernyataan Logika yang jika salah satu syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika kedua syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.

Contoh :

If (B<0) c="0)">

Begin

WriteLn;

WriteLn('Harga H Imajiner.');

WriteLn('Harga B tidak boleh kurang dari NOL dan.');

WriteLn('Harga C tidak boleh NOL.');

End

Else

Begin

H:=SQRT(B)/C;

WriteLn;

WriteLn('Harga H = ',H:13:2);

End;

Tingkat 5.B _________________________________

If (Syarat1) And (Syarat2) Then

Begin

(yang dilakukan saat Kedua syarat terpenuhi);

(...);

End

Else

Begin

(yang dilakukan saat salah satu / kedua syarat tidak terpenuhi);

(...);

End;

Keterangan :

Pernyataan Logika yang jika kedua syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika salah satu syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.

Contoh :

If (B>=0) And (C<>0) Then

Begin

H:=SQRT(B)/C;

WriteLn;

WriteLn('Harga H = ',H:13:2);

End

Else

Begin

WriteLn;

WriteLn('Harga H Imajiner.');

WriteLn('Harga B tidak boleh kurang dari NOL dan.');

WriteLn('Harga C tidak boleh NOL.');

End;

Tingkat 5.C* _________________________________

Rumus Umum, sama seperti Tingkat 5.A

Keterangan :

Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.

Contoh :

If (B<0) c="0)">

Begin

WriteLn;

If B<0>

WriteLn('Harga B tidak boleh kurang dari NOL.');

If C=0 Then

WriteLn('Harga C tidak boleh NOL.');

WriteLn('Harga H Imajiner.');

End

Else

Begin

H:=SQRT(B)/C;

WriteLn;

WriteLn('Harga H = ',H:13:2);

End;

Tingkat 5.D* _________________________________

Rumus Umum, sama seperti Tingkat 5.B

Keterangan :

Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.

Contoh :

If (B>=0) And (C<>0) Then

Begin

H:=SQRT(B)/C;

WriteLn;

WriteLn('Harga H = ',H:13:2);

End

Else

Begin

WriteLn;

If B<0>

WriteLn('Harga B tidak boleh kurang dari NOL.');

If C=0 Then

WriteLn('Harga C tidak boleh NOL.');

WriteLn('Harga H Imajiner.');

End;

tebakan :
uses crt;
var
x,tebakan,jumlah : integer;
lagi : char;
begin
randomize;
lagi:='Y';
while(lagi='Y') or (lagi='y') do
begin
clrscr;
writeln('Komputer akan mengeluarkan 1 angka random');
writeln('yang nilainya antara 0 - 1000');
writeln('anda menebak berapa angka random tersebut !');
writeln('silahkan menebak....Very Happy');
writeln;

x:= random(1001);

jumlah:=0;
tebakan:=-1;
while (tebakan <> x) do

begin

tebakan:=0;
gotoXY(1,15);
writeln('tebakan anda?');readln(tebakan);
gotoXY(1,15);DelLine;

if tebakan <>
begin
gotoXY(1,12); write(tebakan:4,'======> salah,kurang besar!!');
end;

if tebakan > x then
begin
gotoXY(1,12);write(tebakan:4,'======> salah,kurang kecil!!');
end;

jumlah:=jumlah+1;

end;

GotoXY(1,12);
write(tebakan:4,'======> benar, ',jumlah,'kali anda menebak !!');
GotoXY(1,22);
write('Menebak yang lain lagi (Y/T)?');
readln(lagi);
end;
end.
comments powered by Disqus