CARA MENCARI LUAS PERMUKAAN BALOK DI FREEPASCAL

Baik pada kali ini saya akan menunjukan cara bagaimana membuat Coding Untuk menghitung 

Luas Permukaan Balok secara otomatis di FreePascal.

Baik langsung saja saya kasih code ya ke kalian dan kalian tinggal copy paste saja

uses crt;

var

p, t, l, lp, v : real;

begin

clrscr;

writeln ('==========================================');

writeln ('Menghitung Luas Permukaan dan Volume Balok');

writeln ('==========================================');

write ('Panjang = '); readln (p);

write ('Lebar   = '); readln (l);

write ('Tinggi  = '); readln (t);

writeln ('==========================================');

writeln;

lp := 2*((p*l)+(p*t)+(l*t));

v  := p*l*t;

writeln ('Luas Permukaan Balok = ', lp:2:2);

writeln ('------------------------------------------');

writeln ('Volume Balok         = ', v:5:2);

writeln;

readln;

end.

Baik segitu saja dari saya jika anda kurang faham silahkan hubungi email saya 

Melalui raihanwisnu44@gmail.com