Menghitung Volume Kubus

Program_Menghitung_Volume_Kubus

Algoritma

1. Baca Input Nilai Sisi

2. Simpan ke Variable Sisi

3. Masukkan Rumus Kubus = Sisi x sisi x sisi, Simpan hasilnya ke Volume

4. Tampilkan ke Monitor Nilai Volume

PROGRAM_VOLUME_KUBUS;

Uses Crt;

Var

Sisi : word;

Volume : word;

Begin

Clrscr;

Write(‘Masukkan Sisi Kubus’);

Readln(Sisi);

Volume := Sisi*Sisi*Sisi;

Writeln(‘Volume Kubus Dengan Sisi = ‘,Sisi,’ Adalah ’,Volume);

Readln;

End.