TENTANG PEMBUAT BLOG

Nama : Idi Suward
NIM : 0806012736
Jurusan : Teknik Informatika
Kelas : PAGI

Minggu, 30 November 2008

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Kamis, 13 November 2008

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.

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 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 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 Kubus

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.

Minggu, 09 November 2008

TENTANG PEMBUAT BLOG

Nama : Idi Suwardi
NIM : 0806012736
Jurusan : Teknik Informatika
Kelas : PAGI

Followers

Algoritma Pemrograman © 2008 Template by Dicas Blogger.

TOPO