uses wincrt;
var point:byte;
begin
write('masukkan point anda
=');readln(point);
If point>100 Then
Writeln('Selamat Anda Menang')
else
writeln('Anda Belum Beruntung');
end.
Kamis, 16 Mei 2013
Program Pascal untuk Menghitung Luas dan Volume
program segitiga;
uses wincrt;
var a,t,l:real;
begin
writeln('
==============================');
writeln(' ==*Menghitung Luas
Segitiga*==');
write('================================================================================');
writeln;
writeln;
write('Masukkan alas
segitiga = '); readln(a);
write('Masukkan tinggi
segitiga = '); readln(t);
writeln;
l:=1/2*a*t;
write('Maka luas
segitiga =',l:5:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*Selvidiah
Mutiara_4111412061*==');
writeln('
==================================');
end.
2. Luas Bujur Sangkar
program bujur_sangkar;
uses wincrt;
var s,l:real;
begin
writeln(' ===================================');
writeln(' ==*Menghitung Luas Bujur
Sangkar*==');
writeln('================================================================================');
writeln;
writeln;
write('Masukkan sisi bujur
sangkar = '); readln(s);
writeln;
l:=s*s;
write('Maka luas bujur
sangkar =',l:5:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*Selvidiah
Mutiara_4111412061*==');
writeln('
==================================');
end.
3. Luas Lingkaran
program lingkaran;
uses wincrt;
var r,luas:real;
begin
writeln(' =====================================');
writeln(' =====*Menghitung Luas
Lingkaran*=====');
writeln('================================================================================');
writeln;
writeln;
write('Masukkan jari-jari
lingkaran = '); readln(r);
writeln;
luas:=3.14*r*r;
write('Maka luas
lingkaran =',luas:6:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*Selvidiah
Mutiara_4111412061*==');
writeln('
==================================');
end.
4. Luas Persegi Panjang
program persegi_panjang;
uses wincrt;
var p,l,luas:real;
begin
writeln('
=====================================');
writeln(' ==*Menghitung Luas Persegi
Panjang*==');
writeln('================================================================================');
writeln;
writeln;
write('Masukkan panjang
persegi panjang = '); readln(p);
write('Masukkan lebar
persegi panjang = '); readln(l);
writeln;
luas:=p*l;
write('Maka luas persegi
panjang =',luas:5:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*Selvidiah
Mutiara_4111412061*==');
writeln(' ==================================');
end.
5. Volume Balok
program balok;
uses wincrt;
var p,l,t,v:real;
begin
writeln('
=====================================');
writeln(' ======*Menghitung Volume
balok*======');
writeln('================================================================================');
writeln;
writeln;
write('Masukkan panjang
balok = '); readln(p);
write('Masukkan lebar
balok = '); readln(l);
write('Masukkan tinggi
balok = '); readln(t);
writeln;
v:=p*l*t;
write('Maka volume
balok =',v:6:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*Selvidiah
Mutiara_4111412061*==');
writeln('
==================================');
end.
6. Volume Bola
program bola;
uses wincrt;
var r,v:real;
begin
writeln(' ====================================');
writeln(' ======*Menghitung Volume
Bola*======');
writeln('================================================================================');
writeln;
writeln;
write('Masukkan jari-jari
bola = '); readln(r);
writeln;
v:=4/3*(3.14*r*r*r);
write('Maka volume
bola =',v:8:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*Selvidiah
Mutiara_4111412061*==');
writeln('
==================================');
end.
7. Volume Kubus
program kubus;
uses wincrt;
var s,v:real;
begin
writeln(' =====================================');
writeln(' ======*Menghitung Volume
kubus*======');
writeln('================================================================================');
writeln;
writeln;
write('Masukkan sisi kubus
= '); readln(s);
writeln;
v:=s*s*s;
write('Maka volume
kubus =',v:5:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*Selvidiah
Mutiara_4111412061*==');
writeln('
==================================');
end.
8. Volume Kerucut
program kerucut;
uses wincrt;
var r,t,v:real;
begin
writeln(' =====================================');
writeln(' =====*Menghitung Volume
kerucut*=====');
writeln('================================================================================');
writeln;
writeln;
write('Masukkan jari-jari
kerucut = '); readln(r);
write('Masukkan tinggi
kerucut = '); readln(t);
writeln;
v:=(3.14*r*r*t)/3;
write('Maka volume
kerucut =',v:6:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*Selvidiah
Mutiara_4111412061*==');
writeln('
==================================');
end.
9. Volume Tabung
program tabung;
uses wincrt;
var r,t,v:real;
begin
writeln('
====================================');
writeln(' =====*Menghitung Volume
Tabung*=====');
writeln('================================================================================');
writeln;
writeln;
write('Masukkan jari-jari
tabung = '); readln(r);
write('Masukkan tinggi
tabung = '); readln(t);
writeln;
v:=3.14*r*r*t;
write('Maka volume
tabung =',v:6:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*Selvidiah
Mutiara_4111412061*==');
writeln(' ==================================');
end.
Contoh Program Perulangan Sederhana dalam Pascal
For…to…do
program kelipatan_3;
uses wincrt;
var i:integer;
begin
writeln('kelipatan 3 sampai 21:');
for i:=3 to 21 do
if i mod 3 =0 then
writeln(i);
end.
While…do…
Inisialisasi=1
Program whiledo1;
Uses wincrt;
Var i:byte;
Begin
Writeln('Kelipatan 7 sampai 70:');
i:=1;
While i<=70 Do
Begin
If i mod 7 = 0 then
Writeln(i);
i:=i+1;
end;
end.
Inisialisasi=0
Program whiledo0;
Uses wincrt;
Var
i:byte;
Begin
Writeln('Bilangan cacah ganjil sampai 20:');
i:=0;
While i<=20 Do
Begin
If i mod 2 = 1 then
Writeln(i);
i:=i+1;
end;
end.
Repeat…until
Inisialisasi=0
program rufaktorial;
uses wincrt;
i,n,f:integer;
begin
write('n = '); read(n);
i:=0;
f:=1;
repeat
i:=i+1;
f:=f*i;
until i=n;
writeln(n,' faktorial = ',f);
end.
Inisialisasi=1
Program ru1;
Uses wincrt;
Var x:integer;
Begin
x:=1;
repeat
writeln(x,'. Selvidiah Mutiara adalah
seorang Mahasiswi Prodi Matematika');
x:=x+1;
until x>9;
end.
PERINTAH SELEKSI DALAM PASCAL
Bahasa pemrograman Pascal memiliki kemampuan untuk
melakukan pemilihan terhadap beberapa alternatif yang ada. Sebuah aksi atau
statemen akan dilaksanakan apabila sebuah kondisi terpenuhi. Pemilihan ini
tidak hanya berlaku untuk satu buah kondisi tetapi juga dapat beberapa kondisi.
A. Perintah Seleksi If … Then …
Kondisi merupakan ekspresi
yang bernilai logika yaitu bernilai benar atau salah. Jika pernyataan yang akan
dieksekusi oleh If ketika kondisi bernilai benar hanya berupa sebuah
pernyataan, maka dapat dituliskan dalam satu baris sebagai berikut :
If < kondisi 1 > Then < pernyataan >
Contoh
If nilai>75 Then Writeln(‘A’);
Jika pernyataan yang akan dieksekusi oleh If ketika kondisi
bernilai benar namun berupa beberapa pernyataan, maka di awal pernyataan harus
diawali dengan begin dan di akhir pernyataan yang terakhir harus diakhiri
dengan end. Struktur perintah seleksi tersebut adalah sebagai berikut :
If < kondisi 1 > Then
Begin
<
pernyataan_1 >
<
pernyataan_2 >
End;
Contoh
If nilai>75 Then
Begin
Writeln(‘A’);
Writeln(‘Anda Lulus’);
End;
B. Perintah Seleksi If … Then …
Else
Struktur perintah seleksi If … Then ... Else memungkin programmer melakukan spesifikasi
untuk menyatakan kondisi yang benar dan salah. Kondisi merupakan ekspresi yang
bernilai logika yaitu bernilai benar atau salah. Jika pernyataan yang akan
dieksekusi oleh If ketika kondisi bernilai benar hanya berupa sebuah pernyataan
:
Struktur
Perintah Seleksi If … Then … Else
If < kondisi 1 > Then
pernyataan
Else
Pernyataan;
Jika hanya
terdapat satu pernyataan pada kondisi pertama maka tidak menggunakan titik koma
diakhir pernyataan tersebut. Jika hanya ada satu pernyataan setelah else maka
diakhir pernyataan tersebut menggunakan titik koma.
Contoh
Membuat Program Kelulusan. Jika nilai lebih atau
sama dengan 60 maka cetak lulus. Jika tidak cetak tidak
lulus.
Program
:
If nilai>=60 Then
Writeln(’Lulus’)
Else
Writeln(’Tidak Lulus’);
Jika pernyataan yang akan dieksekusi oleh If
ketika kondisi bernilai benar dan berupa beberapa pernyataan, maka dapat
dituliskan sebagai berikut :
If < kondisi 1 > Then
Begin
Pernyataan_1
Pernyataan_2
End
Else
Begin
Pernyataan_1
Pernyataan_2
End;
Jika ada dua atau lebih pernyataan di dalam if …
then … else … maka harus diawali dengan Begin dan End. End Sebelum else tidak
menggunakan titik koma. Namun Pernyataan didalam begin dan end diakhiri dengan
titik koma. Sedangkan End terakhir menggunakan titik koma.
Contoh :
Membuat Program Kelulusan. Jika nilai lebih atau
sama dengan 60 maka cetak ’Lulus’ dan cetak ’Anda dapat sertifikat’. Jika tidak
cetak ’Tidak lulus’ dan cetak ’Anda tidak mendapat sertifikat’.
Program
If nilai>=60 Then
Begin
Writeln(’Lulus’);
Writeln(’Anda dapat Sertifikat’);
End;
Else
Begin
Writeln(’Tidak Lulus’);
Writeln(’Anda tidak dapat Sertifikat’)
End;
Berikut adalah struktur if ... then ... else ... jika
ada tiga kondisi atau lebih :
If < kondisi 1 > Then
Pernyataan
Else If
< kondisi 2 > Then
Pernyataan
Else
Pernyataan;
Selama menemukan else di dalam struktur if ... then … maka
pernyataan tidak diakhiri dengan titik koma atau jika didalamnya terdapat dua
pernyataan atau lebih dan menemukan else maka End juga tidak diakhiri dengan
titik koma.
If
nilai > 85 Then
Writeln(‘A’)
Else
If nilai > 75 Then
Writeln(‘B’)
Else
If nilai > 60 Then
Writeln(‘C’)
Else
If nilai > 50 Then
Writeln(‘D’)
Else
Writeln(‘E’);
C. Perintah Seleksi Case - Of
Pernyataan case .. of merupakan perluasan dari pernyataan if. Untuk
pemilihan yang terdiri dari banyak kondisi, struktur if melakukan pengecekan
terhadap setiap kondisi, bila satu kondisi tidak terpenuhi baru akan
dilanjutkan pada kondisi yang berikutnya. Berbeda dengan pernyataan if, penyataan case
melakukan pengecekan dengan pemilihan kondisi yang sesuai parameter yang ada.
Pernyataan case dapat dituliskan dengan struktur sebagai berikut:
Case < kondisi > Of
Nilai_1
: Pernyataan_1;
Nilai_2 : Pernyataan_2;
Nilai_3
: Pernyataan_3;
…
Nilai_n : Pernyataan_n;
End ; { end dari case }
Nilai pada pernyataan case dapat
berupa konstanta, range dari konstanta yang
bukan bertipe real. Pada
program dibawah nilai berupa huruf.
Program nilai;
Var nil : Char ;
Begin
Write ('Nilai Numerik yang didapat :');
Readln (nil);
Case nil Of
'A': Writeln
('Sangat Baik’);
'B':
Writeln('Baik’);
'C': Writeln('Cukup');
'D': Writeln('Kurang');
'E': Writeln('Sangat Kurang');
End;
End.
hasil :
Nilai Numerik yang didapat : B (Input)
Baik
Pada program dibawah nilai berupa angka.
Program Hari;
Var h : angka ;
Begin
Write
('Ini Angka :');
Readln (h);
Case h
Of
1:
Writeln ('Satu');
2:
Writeln('Dua');
3:
Writeln('Tiga');
4:
Writeln('Empat');
5:
Writeln('Lima
End;
hasil :
Ini Angka : 1
Satu
Langganan:
Postingan (Atom)
