Menghitung Volume Limas Segi Empat

ALGORITMA PEMROGRAMAN TURBO PASCAL 70

Program_Menghitung_Volume_LimasSegiEmpat

Algoritma

1. Baca input nilai panjang
2. Simpan ke variable panjang
3. Baca input nilai lebar
4. Simpan ke variable lebar
5. Baca input nilai tinggi
6. simpan ke variable tinggi
7. Masukkan Rumus Limas Segi Empat = 1/3 x panjang x lebar x tinggi,
simpan ke variable Volume
8. 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;
End.