Menghitung Luas Permukaan Kubus Dan Balok Di Pascal

Program menghitung_Luas_permukaan_kubus_dan_permukaan_balok;
uses crt;
var a,v,Si,Pa,Le,Ti:integer;
procedure LuasKubus(var S,LK:integer);
begin
    LK:=6*sqr(S);
    writeln('_____________________');
    writeln('Luas Permukaan Kubus: ',LK);
    readln;
end;

procedure LuasBalok(var P,L,T,LB:integer);
begin
    LB:=2*(P*L+P*T+L*T);
    writeln('______________________');
    writeln('Luas Permukaan Balok: ',LB);
    readln;
end;
begin
 clrscr;
 writeln('1. Luas Permukaan Kubus.');
 writeln('2. Luas Permukaan Balok.');
 writeln('=====================');
 write('Masukkan pilihan Anda [1/2]: ');readln(a);
 if(a=1)then
 begin
      writeln('===Luas Permukaan Kubus===');
      write('Masukkan Nilai Sisi: ');readln(Si);
      LuasKubus(Si,v);
      end
      else
      if(a=2)then
      begin
            writeln('===Luas Permukaan Balok===');
            write('Masukkan Nilai Panjang: ');readln(Pa);
            write('Masukkan Nilai Lebar: ');readln(Le);
            write('Masukkan Nilai Tinggi: ');readln(Ti);
            LuasBalok(Pa,Le,Ti,v);
      end;
end.


Ini Hasilnya:

Semoga Bermanfaat Bagi semua, dan Terima Kasih Telah Mengunjungi Blog Saya!

Jangan Lupa Komennya!