Contoh Program Pascal Paling Sederhana

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 sederhana
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.

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.

Lihat juga Tipe Data Dalam Bahasa Pascal

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.
Advertisement

Baca juga:

Tingglakan Komentar
Blogger
Disqus
1 Komentar Anda, 1000 Kebaikan Untuk Kita!

No comments

Komentar Brother's and Sista sangat dibutuhkan!