Program Travesium; Uses wincrt; function Luas(Pab,pcd,t:real):real; begin Luas:= ((pab+pcd)*t*0.5) ; end; function Keliling(Pab,Pbc,Pcd,Pad:real):real; begin Keliling:=pab+pbc+pcd+pad; end; Var Pjab,Pjbc,Pjcd,Pjad,Tn:real; begin Clrscr; writeln('Program untuk menghitung Luas dan keliling travesium'); writeln; write('Masukkan panjang ab : ');readln(Pjab); write('Masukkan panjang bc : ');readln(Pjbc); write('Masukkan panjang cd : ');readln(Pjcd); write('Masukkan panjang ad : ');readln(Pjad); write('Masukkan tinggi : ');readln(Tn); writeln; write('Kelilingnya = ',keliling(Pjab,Pjbc,Pjcd,Pjad):4:2); writeln; write('Luasnya = ',Luas(pjab,pjcd,tn):4:2); end.
Program pilih; uses wincrt; function LuasL (r:real):real; begin LuasL:=pi*r*r; end; Function LuasB (t,l:real):real; begin LuasB:=t*l; end; var pilihan : byte; rr,lb,tn,luas : real; lagi : char; begin lagi := 'Y'; while upcase (lagi) = 'Y' do begin gotoxy(15,1);writeln('<<
>>'); writeln; writeln('1. Luas Lingkaran'); writeln; writeln('2. Luas Bujur Sangkar'); writeln; writeln('3. Selesai'); writeln; pilihan := 4;
while (pilihan <0) or (pilihan >3) do begin write('pilih no 1-3 ? '); readln(pilihan); end; clrscr; if pilihan = 1 then begin writeln('Jari-jari lingkaran : ');readln(rr); writeln('Luas lingkaran = ',luasL(rr):4:2); end; if pilihan = 2 then begin write('Panjang Bujur Sangkar : '); readln(tn); write('Lebar Bujur Sangkar : '); readln(lb); writeln; writeln('Luas Bujur Sangkar = ',luasB(lb,tn):4:0); end; if pilihan = 3 then writeln('Selesai'); write('Akan Menghitung Lagi (Y/T) ?'); readln(lagi); end; end.
Program Pilihann; Uses wincrt; Function LuasBJ (p:real):real; begin LuasBJ := p*p; end; Function KelilingBJ (p:real):real; begin KelilingBJ := 4*p;
end; Function LuasPP (p,l:real):real; begin LuasPP := p*l; end; Function KelilingPP (p,l:real):real; begin KelilingPP := 2*(p+l); end; Function LuasSS (a,t:real):real; begin LuasSS := (a*t)/2; end; Function KelilingSS (p:real):real; begin KelilingSS := p+p+p; end; Function LuasL (r:real):real; begin LuasL := pi*r*r; end; Function KelilingL (r:real):real; begin KelilingL := 2*pi*r; end; Var pilihan : byte; rr,lb,tn,pj,al : real; lagi : char; Begin lagi := 'Y'; while upcase (lagi) = 'Y' do begin writeln('<<>>'); writeln('1. Luas dan Keliling bujur sangkar'); writeln('3. Luas dan keliling persegi panjang'); writeln('4. Luas dan Keliling Segitiga Sama Sisi'); writeln('5. Luas dan Keliling Lingkaran'); writeln('6. Selesai'); pilihan := 6; while (pilihan <0) or (pilihan >5) do begin write('pilih no 1-6?'); readln(pilihan); end; clrscr; if pilihan = 1 then begin writeln('<<>>');
writeln('1. Luas Bujur Sangkar'); writeln('2. Keliling Bujur Sangkar'); pilihan := 3; while (pilihan <1) or (pilihan >2) do begin write('pilih 1 atau 2 ?'); readln(pilihan); end; if pilihan = 1 then begin write('Panjang sisi Bujur Sangkar ?');readln(pj); writeln('Luas Bujur Sangkar =',luasBJ(pj):4:0); end; if pilihan = 2 then begin write('Panjang Bujur Sangkar ?'); readln(pj); writeln('Keliling Bujur Sangkar =',kelilingBJ(pj):4:0); end; end; if pilihan = 3 then begin writeln('<<>>'); writeln('1. Luas Persegi Panjang'); writeln('2. Keliling Persegi Panjang'); pilihan := 3; while (pilihan <0) or (pilihan >2) do begin write('Pilih 1 atau 2 ?'); readln(pilihan); end; if pilihan =1 then begin write('Panjang Persegi Panjang ?'); readln(pj); write('Lebar Persegi Panjang ?'); readln(lb); writeln('Luas Persegi Panjang =',luasPP(pj,lb):4:0); end; if pilihan = 2 then begin write('Panjang Persegi Panjang ?'); readln(pj); write('Lebar Persegi Panjang ?'); readln(lb); writeln('Keliling Persegi Panjang =',kelilingPP(pj,lb):4:0); end; end; if pilihan = 4 then begin writeln('<<>>'); writeln('1. Luas Segitiga Sama Sisi'); writeln('2. Keliling Segitiga Sama Sisi');
pilihan := 3; while (pilihan <0) or (pilihan >2) do begin write('Pilih 1 atau 2 ?'); readln(pilihan); end; if pilihan = 1 then begin write('Alas Segitiga Sama Sisi ?'); readln(al); write('Tinggi Segitiga Sama Sisi ?'); readln(tn); writeln('Luas Segitiga Sama Sisi =',luasSS(al,tn):4:0); end; if pilihan = 2 then begin write('Panjang Sisi Segitiga Sama Sisi ?'); readln(pj); writeln('Keliling Segitiga Sama Sisi =',kelilingSS(pj):4:0); end; end; if pilihan = 5 then begin writeln('<<>>'); writeln('1. Luas Lingkaran'); writeln('2. Keliling Lingkaran'); pilihan := 3; while (pilihan <0) or (pilihan >2) do begin write('Pilih 1 atau 2 ?'); readln(pilihan); end; if pilihan = 1 then begin write('Jari-jari Lingkaran'); readln(rr); writeln('Luas Lingkaran =',luasL(rr):4:0); end; if pilihan = 2 then begin write('Jari-jari Lingkaran ?'); readln(rr); writeln('Keliling Lingkaran =',kelilingL(rr):4:0); end; end; if pilihan = 6 then writeln('Selesai'); write('Akan Menghitung Lagi (Y/T) ?'); readln(lagi); end; clrscr; end.
