Pascal : Program Kuadrat Volum Balok

a.     berikut ini saya akan memeberikan contoh pemrograman pascal
miMisalkan a = panjang balok, b. tinggi balok, c. lebar balok. Yang dikeluarkan adalah kuadrat volum balok

Program kuadrat_volum_balok ;

{ diberikan tiga buah bilangan a, b, c kemudian dari ketiga bilangan tersebut dimasukkan

kedalam rumus volume balok kemudian hasilnya dikuadratkan  }

uses wincrt ;

var

a, b, c, kuadrat_volum : longint ;

begin

readln (a) ; {panjang balok}

readln (b) ; {tinggi balok}

readln (c) ; {lebar balok}

kuadrat_volum := sqr(a * b * c) ;

writeln ( 'kuadrat_volum =' , kuadrat_volum) ;

end.

NB : PROGRAM INI DIBUAT DENGAN MENGGUNAKAN TURBO PASCAL, JIKA ANDA MEMBUATNYA DENGAN FREE PASCAL, SILAHKAN HAPUS SYNTAX uses wincrt ; DIATAS