Kali Ini Tips&Trick Blog mau share tentang Contoh Bahasa Pemrograman, dan
Aplikasi yang saya gunakan dalah PASCAL. Oke, di bawah ini ada sebuah contoh
program Case-Of menghitung Luas Bangunan menggunakan Bahasa Pemrograman PASCAL.
Check This Out!.
Contoh Program PASCAL Case Of
Program Case_Of_Hitung_Luas_Bangunan;
Uses crt;
Var
luaspp,p,l,r:integer;
luasll:real;
pil:char;
bye:string;
salah:string;
Begin
Clrscr;
Writeln(‘->Pilihan<-‘);
Writeln(‘1.Menghitung Luas Persegi Panjang.’);
Writeln(‘2.Menghitung Luas Lingkaran.’);
Writeln(‘3.Exit’);
Readln(pil);
Clrscr;
case pil of
‘1’ : Begin
Write(‘Masukkan Panjang:’);Readln(p);
Write(‘Masukkan Lebar:’);Readln(l);
luaspp:=p*l;
Writeln(‘Luas Persegi Panjang:’,luaspp);Read(luaspp);
End;
‘2’: Begin
Write(‘Masukkan Jari-Jari:’);Readln(r);
luasll:=3.14*r*r;
End;
‘3’: Begin
Write(‘Bye’);Readln;
else;
Writeln(‘Salah Input
Nih!’);Readln(salah);
End;
End.
End.
Gimana? Berhasil tidak? Misalkan tidak, coba di cek
sesuai atau ngga sama tulisan yang di atas?. Dalam menulis Kodingan dibutuhkan
kesabaran. Ingat!! Orang sukses pasti gagal dulu dan Jangan pernah berhenti
mencoba dan mudah menyerah. Semoga Sukses!.