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