NasstroN: Delphi

Showing posts with label Delphi. Show all posts

Pembahasan Tugas Menghitung Luas Tanah (Setengah Lingkaran, Persegi Panjang dan Segitiga Sama Kaki) dengan IDE Lazarus

16:27 Delphi , pemrograman , software 1 comment

PEMBAHASAN TUGAS

MENGHITUNG LUAS DAN KELILING TANAH

Soal :

Buatlah program menggunakan bahasa pemrograman pascal (red:lazaruz) untuk menghitung luas dan keliling tanah seperti gambar dibawah ini

Penyelesaian Soal :

Dari kasus menghitung luas dan keliling tanah seperti gambar diatas yang meliputi :

Setengah Lingkaran
Persegi Panjang, dan
Segitiga Sama kaki

Pembagian bidang dapat kita gambarkan seperti gambar 1.0 berikut.

Pada pembagian ruang hitung diatas dapat kita ketahui nilai pokok mana saja yang harus kita inputkan, adapun nilai pokok yang kita butuhkan untuk menghitung luas dan keliling tanah seperti gambar 1.0 diatas meliputi :

Nilai Panjang dari Persegi Panjang Nilai
Lebar Persegi Panjang, dan
Nilai Tinggi dari Segi Tiga

Setelah ketiga nilai pokok tersebut kita ketahui, maka kita dapet menghitung luas dan keliling bidang tanah pada gambar diatas.

Luas Tanah

1. Luas Setengah Lingkaran

Rumus Luas Setengah Lingkaran :

Setengah Lingkaran = π x r ^2 /2

Didalam Pascal Dapat di Tulis dengan :

Luas Setengah lingkaran := (Pi*sqr(R))/2;

Keterangan :

Pi diberi nilai 3.14 dengan menggunkan variable constant (tetap)

Pi := 3.14;

Sqr(R) adalah merupakan source code dalam pascal untuk mencari pangkat 2 dari suatu bilangan, yakni Sqr = Square
Nilai Jari-jari (R) didapatkan dari Nilai Lebar Persegi Panjang dibagi 2

R := L/2;

Karena luas lingkaran hanya setengah maka hasil dari luas lingkaran dibagi 2

Luas1 := (Pi*sqr(R))/2;

2. Luas Persegi Panjang

Rumus Luas Persegi Panjang :
Luas Persegi Panjang = P x L

Didalam Pascal Dapat di Tulis dengan :

Luas Persegi Panjang := P*L;

Keterangan :

Sudah Jelas

3. Luas Segitiga

Rumus Luas Segitiga :
Luas Segitiga Sama Kaki= 2 x (1/2 x alas x tinggi) / alas x tinggi

Didalam Pascal Dapat di Tulis dengan :

Luas Segitiga Sama Kaki := Alas*T;

Keterangan :

Nilai Alas dari segitiga sama dengan nilai dari Jari-jari (R) Lingkaran, maka dapat diambilkan nilai dari Jari-jari (R) dari lingkaran .

Alas := R;

Sudah Jelas

Keliling Tanah

1. Keliling Setengah Lingkaran

Rumus Keliling Setengah Lingkaran :

Keliling Setengah Lingkaran = (2 x π x R)/2 atau π xR

Didalam Pascal Dapat di Tulis dengan :

Luas Setengah lingkaran := (2*Pi*R)/2;
atau

Luas Setengah lingkaran := Pi*R;

Keterangan :

Pi diberi nilai 3.14 dengan menggunkan variable constant (tetap)

Pi := 3.14;

Nilai Jari-jari (R) didapatkan dari Nilai Lebar Persegi Panjang dibagi 2

R := L/2;

Karena keliling lingkaran yang terhitung hanya setengah maka hasil dari keliling lingkaran dibagi 2

Keliling1 := (2*Pi*R)/2;

2. Keliling Persegi Panjang

Rumus Keliling Panjang :
Keliling Persegi Panjang = 2 x (P+L)

Karena yang dihitung hanya pada sisi panjangnya saja, naka menggunakan rumus

Keliling Persegi Panjang = 2 x P

Didalam Pascal Dapat di Tulis dengan :

Keliling Sisi Panjang Persegi Panjang := P*2;

Keterangan :

Sudah Jelas

3. Keliling Segitiga Sama Kaki
Rumus Keliling Segitiga :

Keliling Segitiga Sama Kaki = (2 xSisi Miring)+Alas

Karena yang dihitung hanya pada sisi miringnya saja, maka dapat menggunakan rumus
Keliling Persegi Panjang = Sisi Miring x 2

Didalam Pascal Dapat di Tulis dengan :

Keliling Segitiga Sama Kaki := Si_Mir*2);

Untuk mengetahui nilai dari Sisi Miring Segitiga dapat menggunakan rumus Pytagoras

Sisi Miring = √(alas² + tinggi²)

yang didalam pascal dapat ditulis dengan :

Si_Mir := sqrt((sqr(Alas)+sqr(T)));

Keterangan :

Nilai Alas dari segitiga sama dengan nilai dari Jari-jari (R) Lingkaran, maka dapat diambilkan nilai dari Jari-jari (R) dari lingkaran .

Alas := R;

Sqr(Alas) adalah merupakan source code dalam pascal untuk mencari pangkat 2 dari suatu bilangan, yakni Sqr = Square
Sqrt() adalah merupakan source code dalam pascal untuk mencari akat pangkat 2 dari suatu bilangan, yakni Sqrt = Square Root

Source code Pascal (Lazarus) :

program Tugas_Hitung_Luas_dan_Keliling_Tanah;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
  P, L, T : Integer;                                                                {
  ket : (Integer : Tipe data untuk bilangan bulat)
      P : variable panjang persegi
      L : variable lebar persegi
      T : variable tinggi segitiga                                                  }

Pi, R, Alas, Si_Mir, Keliling1, Keliling2, Keliling3 : Single;                      {
  ket : (Single : Tipe data untuk bilangan desimal 4 Bit)
      Pi      : variable Pi
      R       : variable Rata-rata
      Alas       : variable Alas
      Si_Mir  : variable Sisi Miring Segitigas                                         }

Luas1, Luas2, Luas3, Tot_luas, Tot_Keliling : Double;                                   {
  ket : (Double : Tipe data untuk bilangan desimal 8 Bit)
      Luas1      : variable Luas Tanah Dengan Bentuk Setengah Lingkaran
      Luas2      : variable Luas Tanah Dengan Bentuk Persegi Panjang
      Luas3      : variable Luas Tanah Dengan Bentuk Segitiga
      Tot_luas   : variable Keseluruhan Luas Tanah
      Keliling   : Keliling Keseluruhan Bidang Tanah                                       }

// variable pilihan untuk mengulangi
  ulang : Char;

procedure Hitung;
begin
  Pi    := 3.14;  // Nilai variable konstant Pi
  R     := L/2;   // Jari-jari Lingkaran = Lebar Persegi Panjang / 2
  Alas  := R;     // Karena Segitiganya sama kaki maka (Alas = Jari-jari (R) )

//Luas Tanah
  Luas1 := (Pi*sqr(R))/2;   // Rumus Luas setengah lingkaran
  Luas2 := P*L;             // Rumus Luas Persegi Panjang
  Si_Mir:= sqrt((sqr(Alas)+sqr(T))); //Rumus Pytagoras
  Luas3 := Alas*T;  // Rumus Luas Segitiga sama kaki "2 x (1/2 x Alas x Tinggi)"
  Tot_luas:= Luas1+Luas2+Luas3; // Jumlah keseluruhan luas tanah

// Keliling Tanah
  Keliling1:= (2*Pi*R)/2; // Setengah Lingkaran
  Keliling2:= P*2;        // Sisi Persegi Panjang
  Keliling3:= Si_Mir*2;   // Sisi Miring Segitiga
  Tot_Keliling := Keliling1+Keliling2+Keliling3;
end;

procedure Garis;
begin
  WriteLn('=====================================================================');
end;

procedure enter_wae;
begin
  WriteLn();WriteLn();WriteLn();
  Garis;
  WriteLn(' #####   ###   ##    ##   ###   #####    ###   #####  #####    ###');
  WriteLn('    ##  ## ##  ###   ##  ## ##  ##  ##  ## ##  ##  ## ##  ##  ## ##');
  WriteLn('    ## ##   ## ## #  ## ##   ## ##  ## ##   ## ##  ## ##  ## ##   ##');
  WriteLn('    ## ####### ##  # ## ####### #####  ####### ##  ## #####  #######');
  WriteLn('    ## ##   ## ##   ### ##   ## ##  ## ##   ## ##  ## ##  #  ##   ##');
  WriteLn(' ####  ##   ## ##    ## ##   ## #####  ##   ## #####  ##   # ##   ##');
  Garis;
  WriteLn();WriteLn();WriteLn();
  WriteLn('---------------------------= HITUNG LAGI =---------------------------');
  Garis;
end;

procedure Jalankan_Program;
begin
  WriteLn('Silahkan Masukkan Data Tanah');
  Write('  Panjang Persegi            : ');
  ReadLn(P);
  Write('  Lebar Persegi              : ');
  ReadLn(L);
  Write('  Tinggi Segitiga            : ');
  ReadLn(T);
  Hitung;
  WriteLn();
  Garis;
  WriteLn('  Luas Setengah Lingkaran    : ',Luas1:6:3);
  WriteLn('  Luas Persegi Panjang       : ',Luas2:6:3);
  WriteLn('  Luas Segitiga Sama Kaki    : ',Luas3:6:3);
  WriteLn();
  WriteLn('  Luas Tanah Adalah          : ',Tot_luas:6:3,' M2');
  WriteLn('  Keliling Tanah adalah      : ',Tot_Keliling:6:3, ' M');
  Garis;
  Write('Apakan Anda Akan Menghitung kembali ? (Y/N) : ');
  ReadLn(ulang); if (ulang ='Y') or (ulang='y') then enter_wae;
end;

begin
  ulang := 'Y';
  Garis;
  WriteLn('      PEMBAHASAN SOAL MENGHITUNG LUAS DAN KELILING TANAH');
  WriteLn('                       Oleh : Suharyanto');
  Garis;
  WriteLn('Bentuk Kasus Tanah di Lapangan adalah : ');
  WriteLn('- Setengah Lingkaran');
  WriteLn('- Persegi Panjang');
  WriteLn('- Segitiga sama kaki');
  WriteLn();
  repeat
    case ulang of
    'Y': Jalankan_Program;
    'y': Jalankan_Program;
    else
      begin
        Write('Apakan Anda Akan Menghitung kembali ? (Y/N) : ');
        ReadLn(ulang); if (ulang ='Y') or (ulang='y') then enter_wae;
      end;
    end;
  until (ulang='N') or (ulang='n');
end.

Hasil Runnya :

Untuk Program dapat di dowload disini

Subscribe to: Posts ( Atom )

Pembahasan Tugas Menghitung Luas Tanah (Setengah Lingkaran, Persegi Panjang dan Segitiga Sama Kaki) dengan IDE Lazarus

Labels