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 Perancis, Blaise 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
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.
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
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.
Tags : info,
0 Comments for "Apa itu Pascal ?"