Skip to main content

Program Mengitung Luas Persegi Panjang Dalam PASCAL

Program menghitung luas persegi panjang. Pada Kesempatan kali ini saya akan membagi sebuah tutorial cara membuat program menghitung luas persegi panjang. Sebelum membuat programnya kita perlu mendefiniskan variabel yang akan digunakan seperti : p (Panjang), l (Lebar), dan lu (luas). setelah itu ita buat algoritmanya atau dalam artian logiakanya.

       -* Mulai
       -* Masukkan Nilai Panjang
       -* Masukkan Nilai Lebar
       -* Luas sama dengan panjang kali lebar
       -* Cetak Lusa
       -* Selesai.

setelah meliahat algoritma diatas kita sudah bisa membuat programnya.

Program Luas_Ppanjang;
uses crt;
Var    l,p  : integer
       lu    : real
begin
        clrscr;
        write(‘Masukkan Nilai Panjang : ‘);readln(p);
        write(‘Masukkan Nilai Lebar    : ‘);readln(l);
        lu :=  p*l;
        writeln(‘Nilai Luas Persegi Panjang= ‘,lu);
readln;
end.

[luas%2520Persegi%2520Panjang%255B10%255D.png]

Alur Logika
  • Program Luas_Ppanjang; Sebuah judul program boleh digunakan boleh tidak, kalau ingin digunakan harus sesuai prosedur dengan program nama judul;
  • Uses crt; Sebuah defenisi program boleh ditulis boleh tidak. Biasanya apabila ingin menggunakan menu window clrscr; harus menggunakan uses crt;
  • Var Sebuah deklarasi variabel, dimana setiap variabel di berikan type datnya dan bentuk datanya dapat berubah contoh : p, l : integer; berarti nilai p dan l adalah bilangan bulat
  • Begin akhiri dengan end. Merupakan blok program yang mengandung pernyataan – pernyataan dan intruksi – intruksi baris program yang dibuat.
  • Clrscr; Untuk membersihkan layar dari program sebelumnya. Setiap penggunaannya harus didefinisikan dengan uses crt;
  • Write(‘Masukan Nilai panjang : ‘); adalah untuk menampilkan inis program dimana cursor berikutnya akan berada di smaping tulisan yang dibuat. Contoh diatas diminta untuk mencetak Masukkan Nilai panjang :_.
  • Readln ( ); Untuk membaca suatu variabel atau program
  • lu := p*l; sebuah proses pemberian niali suatu variabel. Dimana Variabel lu adalah jumlah dari hasil kali variabel p dan l.
  • Readln; untuk melihat isi program setelah program di jalankan
-* catatan
Untuk Tutorial kali ini hanya ini yang bisa saya bagikan mudah – mudahan tutorial ini bermanfaat bagi pembacanya, sampai ketemu lagi di tutorial selanjutnya. 

Wassalam…

Comments

Popular posts from this blog

Program Menghitung Luas Segitiga dengan Pascal

  Oke sudah lama sekali saya tidak menulis di blog ini , maklum banyak kegiatan di luar salah satunya tugas kuliah yang semakin menumpuk akibat sering ditunda-tunda. Dan kali ini saya akan memberikan tutorial tentang cara membuat program untuk menghitung luas segitiga siku-siku dengan menggunakan bahasa pemrograman turbo pascal sehingga kita tidak perlu repot-repot lagi menghitung secara manual, cukup dengan memasukkan data dan tunggu hasilnya.  Segitiga Siku siku  langkah-langkahnya sebagai berikut: 1. Buka Turbo pascal atau Tpw , masih bingung antara pascal dengan      TPW?    santai, sebenrnya keduanya merupakan sebuah software yang sama ,    bedanya TPW ialah Turbo pascal yang digunakan untuk komputer yang    memiliki sistem operasi windows. 2. Masukkan kode-kode di bawah ini..    program hitungsegitiga;    uses wincrt;    var a,b,c,d,e:real;    begin  ...

Latihan Dan Soal Perulangan Pascal (Bagian 3)

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Perulangan Pascal (Bagian 2) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya : Buatlah Program dengan 3 moodel perulangan(Repeat-Until, While, dan For untuk permasalahan deret ukur 3, 9, 23, ...... jawab : PERULANGAN REPEAT-UNTIL     uses crt;    var      i,p,nilai   : integer;    begin      clrscr;      writeln(' PERULANGAN REPEAT-UNTIL ');      writeln('-------------------------');      writeln;      write('Masukkan Jumlah Deret = ');readln(p);      writeln;      nilai   :=3;      i       :=1;      repeat      begin           write(nilai:5);           i    ...

Latihan Dan Soal Untuk Program Penyeleksian Kondisi Pascal (Bagian 2)

Sebelumnya saya sudah posting mengenai  Latihan Dan Soal Untuk Program Penyeleksi Kondisi Pascal (Bagian 1)  Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya : 1. Buatlah program untuk mengetahui harga dan besar angsurannya jika dikredit  selama 10 tahun.     Adapun daftar sebagai berikut: Tipe Harga Angsuran/Bulan A Rp  50.000.000 Rp  500.000 B Rp  65.000.000 Rp  650.000 C Rp  75.000.000 Rp  750.000 D Rp  85.000.000 Rp  850.000 Jawab :    Program Kredit_Angsuran_Rumah;    uses crt;    var      tipe, jenis: char;    begin      clrscr;      writeln('   PROGRAM KREDIT ANGSURAN RUMAH   ');     ...