Hiasan

Selasa, 30 Oktober 2012

Membuat Program Penghitung Luas Bangun Datar dengan Menu Pilihan ( case of ) menggunakan Turbo Pascal

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