Contoh Program Pascal Paling Sederhana
"Contoh program pascal sederhana menghitung volume balok dan perulangan biodata"
6 min read
Contoh Program Pascal Paling Sederhana - Setelah kemarin kita belajar Pascal dasar seperti cara penulisan dan deklarasi variabel Pascal, hari ini, kita akan membahas program pascal tentang volume dan luas bangun datar dan contoh program perulangan pada pascal. Pada contoh ini, sebaiknya kita langsung praktekkan agar lebih mudah dipahami.
 |
| Contoh Program Pascal - pixabay |
Algoritma dan Pemrograman Terstruktur - Dalam membuat suatu program, langkah pertama yang dilakukan oleh seorang programmer adalah membuat algoritma. Algoritma adalah langkah logis dan sistematis, terstruktur dalam penyelesaian suatu masalah. Sebaiknya algoritma dibuat dalam bentuk flowchart (Diagram alir).
Pascal termasuk bahasa pemrograman tingkat tinggi yang bersifat case sensitive, artinya penulisan huruf kapital berbeda dengan huruf kecil, So, hati-hati dalam penggunaan huruf pada variabel dan Reserved Words. Intinya, pahami penggunaan write dan read. Bedanya dengan writeln dan readln adalah mengeksekusi program pada baris baru.
Contoh Program Pascal Sederhana
Langsung saja, berikut beberapa contoh program Pascal lengkap dengan cara penulisannya. Cara gunainnya gimana nih? Kamu tidak perlu menulisnya satu-satu jika ingin melihat hasil program secara cepat. Cukup copy kode-kode di bawah ini, terus ke pascal dan aktifkan menu edit, paste form windows untuk mempaste program langsung dari web.
Sebaliknya jika ingin mengcopy listing dari free pascal ke blog atau notepad, bisa kilk menu edit dan select all terus copy to windows.
1. Program Pascal Menghitung Luas Lingkaran
Rumus Luas Lingkaran = pi*r*r
pi adalah konstanta dengan nilai = 3.14
Contoh Program
program luas_lingkaran;
uses crt;
const pi=3.14;
var
r:integer;
Luas:real;
begin
clrscr;
writeln('***Program Pascal Menghitung Luas Lingkaran***');
write('Masukkan jari-jari = ');
readln(r);
Luas:=pi*r*r;
write('Luas lingkaran = ',Luas:2:2);
readln;
end.
2. Program Pascal Menghitung Volume Balok
Rumus volume balok = p*l*t
Contoh Program
program volume_balok;
uses crt;
var
p,l,t,v:integer;
begin
clrscr;
writeln('***Program Pascal Menghitung Volume Balok***');
write('Masukkan panjang = ');
readln(p);
write('Masukkan Lebar = ');
readln(l);
write('Masukkan Tinggi = ');
readln(t);
v:=p*l*t;
writeln('Volume balok = ',v);
readln;
end.
3. Program Pascal Menghitung Luas Segitiga
Rumus luas segitiga = 1/2(alas*tinggi)
Contoh Program
program luas_segitiga;
uses crt;
var
luas,al,ti:integer;
begin
clrscr;
writeln('***Program Pascal Menghitung Luas Segitiga***');
write('Masukkan alas = ');
readln(al);
write('Masukkan tinggi = ');
readln(ti);
luas:=(al*ti) div 2;
writeln('Luas segitiga = ',luas);
readln;
end.
4. Contoh Program Pascal Mencari Luas Persegi Panjang
Rumus Luas Persegi Panjang = panjang * lebar
Contoh Program
program luas_persegi_panjang;
uses crt;
var
luas,per,segi:integer;
begin
clrscr;
writeln('***Program Pascal Menghitung Luas Persegi Panjang***');
write('Masukkan panjang = ');
readln(per);
write('Masukkan lebar = ');
readln(segi);
luas:=per*segi;
writeln('Luas Persegi Panjang = ',luas);
readln;
end.
Untuk bangun ruang dan datar lainnya, silahakan cari rumusnya saja. Ingat! Operasi pembagian menggunakan div bukan tanda slash seperti bahasa Program Basic.
5. Contoh Program Pascal Perulangan
Contoh program perulangan Pascal sederhana dengan for - i - do
program perulangan_pascal;
uses crt;
var nama,NIM:string;
biodata:integer;
begin
clrscr;
writeln('***Contoh Program Perulangan Pascal***');
write('Masukkan Nama : ');
readln(nama);
write('Masukkan NIM : ');
readln(NIM);
for biodata:= 1 to 5 do
begin
write('Masukkan Nama : ');
readln(nama);
write('Masukkan NIM : ');
readln(NIM);
end;
end.
Contoh di bawah ini sama dengan contoh nomor 5, hanya saja proses penulisannya lebih disederhanakan.
program perulangan;
uses crt;
var m,n:string;
o:integer;
begin
clrscr;
writeln('***Contoh Program Perulangan Pascal***');
for o:=1 to 3 do
begin
write('Masukkan nama : ');
readln(m);
write('Masukkan NIM : ');
readln(n);
end;
end.
uses crt;
var m,n:string;
o:integer;
begin
clrscr;
writeln('***Contoh Program Perulangan Pascal***');
for o:=1 to 3 do
begin
write('Masukkan nama : ');
readln(m);
write('Masukkan NIM : ');
readln(n);
end;
end.
6. Contoh Program Pascal Perulangan Kondisi
Contoh program perulangan Pascal sederhana dengan if - mod - then - else
Contoh ini adalah contoh menggunakan fungsi if sederhana. Cara kerjanya untuk menentukan kelas mahasiswa berdasarkan NIM yang diinput. Jika NIM yang diinput berakhiran genap maka kelas akan A dan sebaliknya, jika NIM yang diinput berakhiran ganjil maka kelas B.
program perulangan_2;
uses crt;
var
Nama:string;
NIM,n:integer;
IPK:real;
begin
clrscr;
for n:=1 to 5 do
begin
write('Nama : ');readln(Nama);
write('NIM : ');readln(NIM);
write('IPK : ');readln(IPK);
if NIM mod 2=0 then writeln('Kelas A') else writeln('Kelas B');
end;
end.
Demikianlah beberapa contoh program pascal menghitung luas dan volume bangun datar serta contoh program Pascal perulangan untuk menentukan kelas dan perulangan sederhana. Semoga bermanfaat dan terima kasih telah berkunjung.