Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal
merupakan salah satu software yang dapat digunakan untuk membuat
macam-macam program, sekarang saya share Program Penghitung Luas Bangun Datar , berikut coding nya ^.^ :
program menghitung_Luas_Bangun_Datar;
uses wincrt;
var luas,r,alas,tinggi,panjang,lebar:real;
pilihan:char;
begin
writeln('----Pilih Bangun Datar yang Ingin Dihitung----');
writeln('1.Menghitung Luas Lingkaran');
writeln('2.Menghitung Luas Persegi Panjang');
writeln('3.Menghitung Luas Segitiga');
writeln('PILIHAN [1-3]:') ;
readln(pilihan);
case pilihan of
'1' : begin
write('masukan jari-jari lingkaran=');
readln(r);
luas:=22/7*r*r;
write('hasil luas lingkarannya =',luas:2:2);
end;
'2' : begin
write('masukan panjang=');
readln(panjang);
write('masukan lebar=');
readln(lebar);
luas:=panjang*lebar;
write('hasil luas persegi panjangnya=',luas:2:2);
end;
'3' : begin
write('masukan alas segitiga=');
readln(alas);
write('masukan tinggi segitiga=');
readln(tinggi);
luas:=1/2*alas*tinggi;
write('hasil luas segitiganya=',luas:2:2);
end;
end;
end.
Tidak ada komentar:
Posting Komentar