Menghitung Volume Kubus

ALGORITMA PEMROGRAMAN TURBO PASCAL 7.0

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.