Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.
TENTANG PEMBUAT BLOG
Minggu, 30 November 2008
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.
Diposting oleh Algoritma di 01.26 0 komentar
Label: Program Turbo Pascal 70
Artigos Relacionados: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.
Diposting oleh Algoritma di 01.25 0 komentar
Label: Program Turbo Pascal 70
Artigos Relacionados: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.
Diposting oleh Algoritma di 01.24 1 komentar
Label: Program Turbo Pascal 70
Artigos Relacionados: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.
Diposting oleh Algoritma di 01.22 0 komentar
Label: Program Turbo Pascal 70
Artigos Relacionados: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.
Diposting oleh Algoritma di 01.11 0 komentar
Label: Program Turbo Pascal 70
Artigos Relacionados:Minggu, 09 November 2008
TENTANG PEMBUAT BLOG
Nama : Idi Suwardi
NIM : 0806012736
Jurusan : Teknik Informatika
Kelas : PAGI
Diposting oleh Algoritma di 22.04 0 komentar
Label: Tentang Penulis
Artigos Relacionados: