Contoh Listing Program Menghitung Luas Bangun Datar Pada Pascal & C++

Nama NIM Kelas Tugas

: Romdhani Tri Andrianto : 12070085 : 12.5A.03 : Pemrograman Terstruktur

Menghitung Luas dan Keliling Segitiga, Persegi Panjang dan Lingkaran

Listing Program Dengan C++

#include "conio.h" #include "iostream.h" #define phi 3.14 void main() { float tg, al, ss, lb, ls, kll, lj, r; int bgn; do { clrscr (); cout<<"==========================\n" ; cout<<"| MENU |\n"; cout<<"==========================\n" ; cout<<"|1. Segitiga |\n"; cout<<"|2. Persegi Panjang |\n"; cout<<"|3. Lingkaran |\n"; cout<<"|4. Keluar . . . |\n"; cout<<"==========================\n" ; cout<<"Masukan Pilihan Anda : "; cin>>bgn; cout<<"==========================\n"; switch(bgn) { case 1 : cout<<"\nMasukan Tinggi Segitiga : "; cin>>tg; cout<<"Masukan Lebar Alas Segitiga : ";

cin>>al; cout<<"Masukan Sisi Segitiga : "; cin>>ss; ls = 0.5*tg*al; kll = ss+ss+ss; cout<<"\nLuas Segitiga Adalah "< cout<<"\nKeliling Segitiga Adalah "< cout<<"\n\nAnda ingin melanjutkan proses (ya = 1/ no = 0): "; cin>>lj; break; case 2 : cout<<"\nMasukan Panjang Persegi Panjang : "; cin>>ss; cout<<"Masukan Lebar Persegi Panjang : "; cin>>lb; kll = 2*(ss+lb); ls = ss*lb; cout<<"\nLuas Persegi Panjang Adalah "< cout<<"\nKeliling Persegi Panjang Adalah "< cout<<"\n\nAnda ingin melanjutkan proses (ya = 1/ no = 0): "; cin>>lj; break; case 3 : cout<<"\nMasukan Jari - Jari Lingkaran : "; cin>>r; kll = phi*(r+r); ls = phi * r * r; cout<<"\nLuas Lingkaran Adalah "< cout<<"\nKeliling Lingkaran Adalah "< cout<<"\n\nAnda ingin melanjutkan proses (ya = 1/ no = 0): "; cin>>lj; break; } } while(bgn >=1 && bgn <= 4 ); getch(); }

Listing Program Dengan Pascal

1. Menghitung Luas dan Keliling Segitiga

program segitiga; uses wincrt; var alas, tinggi, sisimiring, luas, keliling : real ;

begin clrscr; writeln (‘Menghitung Luas dan Keliling Segitiga’); writeln (‘-------------------------------------------------‘); write (‘Masukkan nilai alas : ‘) ; readln (alas); write (‘Masukkan nilai tinggi : ‘) ; readln (tinggi) ; luas:= 0.5*alas*tinggi; sisimiring:= sqrt (sqr(alas)+sqr(tinggi)); keliling:= alas+tinggi+sisimiring; writeln (‘Luas Segitiga adalah : ‘, luas:3:2, ‘cm’); writeln (‘Keliling Segitiga adalah : ‘, keliling3:2, ‘cm’); readln; end.

2. Menghitung Luas dan Keliling Lingkaran

program lingkaran; uses wincrt; var r, luas, keliling : real ;

begin clrscr; writeln (‘Menghitung Luas dan Keliling Lingkaran’); writeln (‘---------------------------------------------------‘);

write (‘Masukkan jari-jari lingkaran : ‘) ; luas:= pi*sqr(r); keliling:=2*pi*pi; writeln (‘Luas Lingkaran adalah : ‘, luas:3:2, ‘cm’); writeln (‘Keliling Lingkaran adalah : ‘, keliling3:2, ‘cm’); readln; end.

3. Menghitung Luas dan Keliling Persegi Panjang

program persegi_panjang; uses wincrt; var alas, tinggi, luas, keliling : real ;

begin clrscr; writeln (‘Menghitung Luas dan Keliling Persegi Panjang’); writeln (‘----------------------------------------------------------‘); write (‘Masukkan nilai alas : ‘) ; readln (alas); write (‘Masukkan nilai tinggi : ‘) ; readln (tinggi) ; luas:= alas*tinggi; keliling:= ((2*alas)+(2*tinggi)); writeln (‘Luas Persegi Panjang adalah : ‘, luas:3:2, ‘cm’); writeln (‘Keliling Persegi Panjang adalah : ‘, keliling3:2, ‘cm’); readln; end.