Program_Menghitung_Volume_LimasSegiEmpat
Algoritma
- Baca input nilai panjang
- Simpan ke variable panjang
- Baca input nilai lebar
- Simpan ke variable lebar
- Baca input nilai tinggi
- simpan ke variable tinggi
- Masukkan Rumus Limas Segi Empat = 1/3 x panjang x lebar x tinggi, simpan ke variable Volume
- Tampilkan ke layer Monitor Volume Limas Segi Empat
PROGRAM_VOLUME_LIMASSEGIEMPAT;
Uses Crt;
Var
Panjang : word;
Lebar : word;
Tinggi : word;
Volume : real;
Begin
Clrscr;
Write(‘Masukkan Panjang Limas Segi Empat = ‘);
Readln(panjang);
Write(‘Masukkan Lebar Limas Segi Empat = ‘);
Readln(lebar);
Write(‘Masukkan Tinggi Limas Segi Empat = ‘);
Readln(tinggi);
Volume := 1/3 * panjang * lebar * tinggi ;
Writeln(‘Volume Limas Segi Empat adalah = ‘,volume);
Readln;