Contoh Program Pascal
Setelah mempelajari beberapa kelebihan bahasa pemrograman Pascal, sekarang saatnya untuk mencoba membuat program sederhana menggunakan bahasa pemrograman ini. Berikut adalah contoh membuat program sederhana dengan Pascal:
Contoh 1: Program Menampilkan Teks di Layar
program HelloWorld;
begin
writeln('Hello World!');
end.
Penjelasan kode program:
- Baris 1: Menunjukkan nama program.
- Baris 2: Memulai program dengan kata kunci begin.
- Baris 3: Menampilkan teks “Hello World!” di layar menggunakan prosedur writeln.
- Baris 4: Mengakhiri program dengan kata kunci end.
Contoh 2: Program Menghitung Luas Segitiga
program LuasSegitiga;
var
alas, tinggi, luas : real;
begin
write('Masukkan alas segitiga: ');
readln(alas);
write('Masukkan tinggi segitiga: ');
readln(tinggi);
luas := (alas * tinggi) / 2;
writeln('Luas segitiga adalah: ', luas:0:2);
end.
Penjelasan kode program:
- Baris 1: Menunjukkan nama program.
- Baris 2: Mendeklarasikan variabel alas, tinggi, dan luas sebagai tipe data real.
- Baris 3: Memulai program dengan kata kunci begin.
- Baris 4-5: Meminta pengguna memasukkan nilai alas dan tinggi segitiga dengan menggunakan prosedur write dan readln.
- Baris 6: Menghitung luas segitiga dengan rumus (alas x tinggi) / 2.
- Baris 7: Menampilkan hasil perhitungan luas segitiga ke layar dengan menggunakan prosedur writeln.
- Baris 8: Mengakhiri program dengan kata kunci end.
Contoh 3: Program Konversi Suhu
program KonversiSuhu;
var
celsius, fahrenheit : real;
begin
write('Masukkan suhu dalam Celsius: ');
readln(celsius);
fahrenheit := (celsius * 9 / 5) + 32;
writeln('Suhu dalam Fahrenheit adalah: ', fahrenheit:0:2);
end.
Penjelasan kode program:
- Baris 1: Menunjukkan nama program.
- Baris 2: Mendeklarasikan variabel celsius dan fahrenheit sebagai tipe data real.
- Baris 3: Memulai program dengan kata kunci begin.
- Baris 4-5: Meminta pengguna memasukkan nilai suhu dalam Celsius dengan menggunakan prosedur write dan readln.
- Baris 6: Menghitung suhu dalam Fahrenheit dengan rumus (Celsius x 9/5) + 32.
- Baris 7: Menampilkan hasil perhitungan suhu dalam Fahrenheit ke layar dengan menggunakan prosedur writeln.
- Baris 8: Mengakhiri program dengan kata kunci end.
Itulah beberapa contoh program sederhana dengan bahasa pemrograman Pascal. Dalam membuat program, pastikan Anda menguasai dasar-dasar pemrograman Pascal seperti variabel, tipe data, percabangan, dan perulangan. Dengan belajar dan berlatih terus-menerus, Anda akan semakin mahir dalam menggunakan bahasa pemrograman Pascal untuk mengembangkan aplikasi dan membuat program yang lebih kompleks.
Contoh 4: Program Kalkulator Sederhana
program Kalkulator;
var
a, b, hasil : real;
operasi : char;
begin
writeln('=== Kalkulator Sederhana ===');
write('Masukkan bilangan pertama: ');
readln(a);
write('Masukkan bilangan kedua: ');
readln(b);
write('Masukkan operasi (+, -, , /): ');
readln(operasi);
case operasi of
'+': hasil := a + b;
'-': hasil := a - b;
'': hasil := a * b;
'/': hasil := a / b;
end;
writeln('Hasil dari ', a:0:2, ' ', operasi, ' ', b:0:2, ' = ', hasil:0:2);
end.
Penjelasan kode program:
- Baris 1: Menunjukkan nama program.
- Baris 2: Mendeklarasikan variabel a, b, hasil, dan operasi sebagai tipe data real dan char.
- Baris 3-4: Menampilkan judul program dan meminta pengguna memasukkan bilangan pertama dan kedua.
- Baris 5: Meminta pengguna memasukkan operasi yang ingin dilakukan dengan menggunakan prosedur write dan readln.
- Baris 6-10: Menggunakan struktur case untuk menentukan operasi yang akan dilakukan dan menghitung hasilnya.
- Baris 11: Menampilkan hasil perhitungan ke layar dengan menggunakan prosedur writeln.
- Baris 12: Mengakhiri program dengan kata kunci end.
Contoh 5: Program Mencari Bilangan Prima
program BilanganPrima;
var
n, i : integer;
prima : boolean;
begin
write('Masukkan angka: ');
readln(n);
prima := true;
for i := 2 to n-1 do
begin
if n mod i = 0 then
begin
prima := false;
break;
end;
end;
if prima then
writeln(n, ' adalah bilangan prima')
else
writeln(n, ' bukan bilangan prima');
end.
Penjelasan kode program:
- Baris 1: Menunjukkan nama program.
- Baris 2: Mendeklarasikan variabel n, i, dan prima sebagai tipe data integer dan boolean.
- Baris 3-4: Meminta pengguna memasukkan angka dan mendeklarasikan variabel prima dengan nilai true.
- Baris 5-10: Menggunakan perulangan for untuk mengecek apakah bilangan n adalah bilangan prima atau bukan.
- Baris 6-7: Jika n habis dibagi i, maka n bukanlah bilangan prima, maka prima akan diubah menjadi false dan perulangan akan dihentikan dengan menggunakan kata kunci break.
- Baris 11-13: Menampilkan hasil perhitungan ke layar dengan menggunakan prosedur writeln.
- Baris 14: Mengakhiri program dengan kata kunci end.
Itulah beberapa contoh program yang lebih kompleks dengan bahasa pemrograman Pascal. Anda bisa mencoba mengembangkan program-program tersebut atau membuat program lainnya untuk menguji kemampuan Anda dalam menggunakan bahasa pemrograman Pascal. Jangan lupa untuk terus belajar dan berlatih untuk meningkatkan kemampuan Anda dalam pemrograman.
No Comments