Biodata Siswa STMIK IBBI

Nama : Johannes Pandiangan
NIM : 0806012813
Program Studi : S-1 TeknikInformatika
Group : P-2 Ruang 301
Sesion : Pagi

Kamis, 13 November 2008

Menghitung Volume Limas Segi Empat

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.

Menghitung Volume Kerucut

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

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 Bola

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 Kubus

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.