Home / Pemrograman C dan C++ / OPERASI BANGUN DATAR DAN BANGUN RUANG MENGGUNAKAN DELPHI 7

OPERASI BANGUN DATAR DAN BANGUN RUANG MENGGUNAKAN DELPHI 7

Posted by Sepercik Tinta Selasa, 01 November 2011 0 komentar
Selamat pagi dan Semoga hari ini kita senantiasa bisa memanfaatkan waktu dengan sebaik-baiknya, sehingga setiap detik yang kita kumpulkan setiap menit yang kita habiskan, setiap jam yang kita lewatkan, setiap hari yang kita jalankan akan menjadi butir-butir embun perubahan yang nyata, dan semoga coretan ini bisa membawa manfaat amin.
pada kesempatan kali ini saya akan membagi secuil apa yang saya ketahui mengenai Pemrograman, yaitu Operasi Bangun Datar dan Bangun Ruang, yang pada kesempatan kali ini, saya menggunakan Delphi 7.

Ikuti Langkah-langkah berikut ini.
1. Buka delphi 7-pilih File-New-Console Aplication-Other















2. kemudian akan muncul seperti ini












Masukan Kode  Berikut ini
var
  x,s,p,l,a,t,d,e,r,n:integer;


begin
writeln('====================================================================');
writeln('  TUGAS KELOMPOK STRUKTUR DATA-POLITEKNIK SAWUNGGALIH AJI PURWOREJO ');
writeln('====================================================================');
writeln('                                                  Program by:       ');
writeln('                                            1. Samingan   (32102030)');
writeln('                                            2. Sunariyadi (32102018)');
writeln('                                            3. Prasetyo AW(32102004)');
writeln('====================================================================');
writeln('            MENGHITUNG OPERASI BANGUN DATAR DAN BANGUN RUANG        ');
writeln('====================================================================');
readln;

writeln('Pilihlah operasi yang anda inginkan');
writeln('   1. Luas Persegi ');
writeln('   2. Luas Persegi Panjang');
writeln('   3. Luas Segetiga');
writeln('   4. Luas Jajar Genjang');
writeln('   5. Luas Layang-Layang');
writeln('   6. Luas Lingkaran');
writeln('   7. Volume Kubus');
writeln('   8. Volume Balok');
writeln('   9. Volume Bola');
writeln('   10.VOlume Limas Segi Empat');
writeln('   11.Volume Tabung');
writeln('   12.Volume Kerucut');
repeat
(*Penggunaan Repeat Until bisa dimodifikasi, apabila menginginkan yang di repeat dari awal maka tempatkan repeat diatas*)
x:=0;
writeln('Apa pilihan anda?  ');
writeln('1/2/3/4/5/6/7/8/9/10/11/12');readln(x);

if x=1 then

  begin
    writeln('================================================================');
    writeln('                   MENGHITUNG LUAS PERSEGI                      ');
    writeln('================================================================');
    write  ('Masukan sisi persegi = ');readln(s);
    writeln('Luas persegi         = ',s*s);
    readln;
    writeln('   Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       write('Silahkan Tekan Enter Untuk Memilih Oerasi');
    readln;
    end

else if x=2 then
  begin
    writeln('================================================================');
    writeln('             MENGHITUNG LUAS PERSEGI PANJANG                    ');
    writeln('================================================================');
    write  ('Masukan Panjang      = ');readln(p);
    write  ('Masukan Lebar        = ');readln(l);
    writeln('Luas persegi Panjang = ',p*l);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Memilih Operasi');
    readln;
    end
else if x=3 then
  begin
    writeln('================================================================');
    writeln('                  MENGHITUNG LUAS SEGITIGA                      ');
    writeln('================================================================');
    write  ('Masukan Alas         = ');readln(a);
    write  ('Masukan Tinggi       = ');readln(t);
    writeln('Luas Segitiga        = ',0.5*a*t);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Memilih Operasi');
    readln;
    end

else if x=4 then
  begin
    writeln('================================================================');
    writeln('              MENGHITUNG LUAS JAJAR GENJANG                     ');
    writeln('================================================================');
    write  ('Masukan Alas         = ');readln(a);
    write  ('Masukan Tinggi       = ');readln(t);
    writeln('Luas Jajar Genjang   = ',a*t);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Melanjutkan');
    readln;
    end

else if x=5 then
  begin
    writeln('================================================================');
    writeln('               MENGHITUNG LUAS BELAH KETUPAT                    ');
    writeln('================================================================');
    write  ('Masukan Alas         = ');readln(d);
    write  ('Masukan Tinggi       = ');readln(e);
    writeln('Luas Segitiga        = ',0.5*d*e);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Melanjutkan');
    readln;
    end

else if x=6 then
  begin
    writeln('================================================================');
    writeln('                  MENGHITUNG LUAS LINGKARAN                     ');
    writeln('================================================================');
    write  ('Masukan Jari-jari    = ');readln(r);
    writeln('Luas Lingkaran       = ',3.14*r*r);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Melanjutkan');
    readln;
    end

else if x=7 then
  begin
    writeln('================================================================');
    writeln('                  MENGHITUNG VOLUME KUBUS                       ');
    writeln('================================================================');
    write  ('Masukan Sisi Kubus   = ');readln(s);
    writeln('Volume Kubus         = ',s*s*s);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Melanjutkan');
    readln;
    end

else if x=8 then
  begin
    writeln('================================================================');
    writeln('                  MENGHITUNG VOLUME BALOK                       ');
    writeln('================================================================');
    write  ('Masukan Panjang      = ');readln(p);
    write  ('Masukan Lebar        = ');readln(l);
    write  ('Masukan Lebar        = ');readln(t);
    writeln('Volume Balok         = ',p*l*t);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Melanjutkan');
    readln;
    end

else if x=9 then
  begin
    writeln('================================================================');
    writeln('                   MENGHITUNG VOLUME BOLA                       ');
    writeln('================================================================');
    write  ('Masukan Jari-Jari    = ');readln(r);
    write  ('Masukan Tinggi Bola  = ');readln(t);
    writeln('Volume Bola          = ',1.3*3.14*r*t*t*t);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Melanjutkan');
    readln;
    end
else if x=10 then
  begin
    writeln('================================================================');
    writeln('               MENGHITUNG VOLUME LIMAS SEGI 4                   ');
    writeln('================================================================');
    write  ('Masukan Panjang      = ');readln(p);
    write  ('Masukan Lebar        = ');readln(l);
    writeln('Masukan Tinggi       = ');readln(t);
    writeln('Volume Limas Segi 4  = ',0.3*p*l*t);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Melanjutkan');
    readln;
    end

else if x=11 then
  begin
    writeln('================================================================');
    writeln('                   MENGHITUNG VOLUME TABUNG                     ');
    writeln('================================================================');
    write  ('Masukan Jari-Jari    = ');readln(r);
    write  ('Masukan Tinggi Tabung= ');readln(t);
    writeln('Volume Tabung        = ',3.14*r*r*t);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi?Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Melanjutkan');
    readln;
    end

else if x=12 then
  begin
    writeln('================================================================');
    writeln('                   MENGHITUNG VOLUME KERUCUT                    ');
    writeln('================================================================');
    write  ('Masukan Jari-Jari    = ');readln(r);
    write  ('Masukan Tinggi Bola  = ');readln(t);
    writeln('Volume Kerucut       = ',0.3*3.14*r*r*t);
    readln;
    writeln('  Apakah anda ingin Menghitung Lagi? Ya(Tekan 1)/Tidak(Tekan 0) ');
    readln(n);
       if n=0 then exit
       else
       writeln('Silahkan Tekan Enter Untuk Melanjutkan');
    readln;
    end
else writeln('******** Maaf Nomor Yang Anda Masukan Tidak Terdaftar **********');
until x=0;
readln;
end.
setelah selesai dimasukan langsung saja tekan F9 pada keyboar anda. dan.....





















Program ini menggunakan If bersarang dan Repeat Until, untuk bagaimana penggunaanya silahkan dipelajari script diatas. Semoga Tutorial ini bermanfaat. kritik dan saran sangat saya nantikan. Salam LGJ ( Lo Gue Jreng)
TERIMA KASIH ATAS KUNJUNGAN SAUDARA
Judul: OPERASI BANGUN DATAR DAN BANGUN RUANG MENGGUNAKAN DELPHI 7
Ditulis oleh Sepercik Tinta
Rating Blog 5 dari 5
Semoga artikel ini bermanfaat bagi saudara. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke http://seperciktinta.blogspot.com/2011/11/operasi-bangun-datar-dan-bangun-ruang.html. Terima kasih sudah singgah membaca artikel ini.
Categories:

If You Like This Post, Share it With Your Friends

0 komentar:

Posting Komentar

Original design by Bamz | Copyright of Blog Pintar.
Diberdayakan oleh Blogger.