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.
Biodata Siswa IBBI STMIK IBBI
NIM : 0806012785
Semester : satu (1)
Kelas : pagi (301)
Jurusan : TEKNIK INFORMATIKA A
Kamis, 13 November 2008
Menghitung Volume Kubus
Menghitung Volume Bola
ALGORITMA PEMROGRAMAN TURBO PASCAL 70
Program_Menghitung_Volume_Bola
Algoritma
1. Baca input nilai Jari-jari
2. Simpan ke variable jari_jari
3. Baca input nilai Tinggi
4. Simpan ke variable tinggi
5. Masukkan Rumus Bola = 4/3 x π x t3, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume
PROGRAM_VOLUME_BOLA;
Uses Crt;
Var
Jari_jari : word;
Tinggi : word;
Volume : real;
Begin
Clrscr;
Write(‘Masukkan Jari-jari Bola = ‘);
Readln(jari-jari);
Write(‘Masukkan Tinggi Bola = ‘);
Readln(tinggi);
Volume := 4/3 * 3.14159265 * tinggi * tinggi * tinggi ;
Writeln(‘Volume Bola adalah = ‘,volume);
Readln;
End.
Menghitung Volume Kerucut
ALGORITMA PEMROGRAMAN TURBO PASCAL 70
Program_Menghitung_Volume_Kerucut
Algoritma
1. Baca input nilai Jari-jari
2. Simpan ke variable jari_jari
3. Baca input nilai Tinggi
4. Simpan ke variable tinggi
5. Masukkan Rumus Kerucut = 1/3 x π x r 2 x t, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume Tabung
PROGRAM_VOLUME_KERUCUT;
Uses Crt;
Var
Jari_jari : word;
Tinggi : word;
Volume : real;
Begin
Clrscr;
Write(‘Masukkan Jari-jari Kerucut = ‘);
Readln(jari-jari);
Write(‘Masukkan Tinggi Kerucut = ‘);
Readln(tinggi);
Volume := 1/3 * 3.14159265 * jari_jari * jari_jari * tinggi ;
Writeln(‘Volume Kerucut adalah = ‘,volume);
Readln;
End.
Menghitung Volume Tabung
ALGORITMA PEMROGRAMAN TURBO PASCAL 70
Program_Menghitung_Volume_Tabung
Algoritma
1. Baca input nilai Jari-jari
2. Simpan ke variable jari_jari
3. Baca input nilai Tinggi
4. Simpan ke variable tinggi
5. Masukkan Rumus tabung = π x r 2 x t, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume Tabung
PROGRAM_VOLUME_TABUNG;
Uses Crt;
Var
Jari_jari : word;
Tinggi : word;
Volume : real;
Begin
Clrscr;
Write(‘Masukkan Jari-jari Tabung = ‘);
Readln(jari-jari);
Write(‘Masukkan Tinggi Tabung = ‘);
Readln(tinggi);
Volume := 3.14159265 * jari_jari * jari_jari * tinggi ;
Writeln(‘Volume Tabung adalah = ‘,volume);
Readln;
End.
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.