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.
Seja o primeiro a comentar
Posting Komentar