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…
Labels:
Location: Makassar, Sulawesi Selatan, Indonesia

Comments

Post a Comment

Popular posts from this blog

Pemakaian Gotoxy Pada Program Pascal

Suatu informasi yang terdapat dilayar monitor tentu harus enak dilihat dan rapi. Jika melihat hasil program Menampilkan Lebih 1 Record Pada Pascal kurang menarik, hasilnya masih berantakan. Bagaimana membuat tampilan menjadi lebih tersusun? Untuk menyelesaikan hal ini, kita wajib menggunakan gotoxy. Gotoxy digunakan untuk menuju ke suatu koordinat tertentu pada layar monitor. Dengan menggunakan gotoxy, maka tampilan di layar akan lebih tersusun/rapi, sehingga lebih enak dilihat. Berikut pemakaian gotoxy pada program pascal. uses crt ; type     mahasiswa = record ;     nim    : string[8] ;     nama   : string[30] ;     jenjang: string[2] ;     prodi  : string[30] ;     Nilai  : byte ;     end; var    recMhs : array[1..30] of mahasiswa ;    ket    : string[10];    i      : byte ; Begin      for i:= 1 to 12 do      begin           Write('NIM       : '); readln(recMhs[i].nim) ;           Write('Nama      : '); readln(recMhs[i
Post a Comment
Baca selengkapnya....

Contoh Program Perkalian Menggunakan FOR BERSARANG Pada Turbo Pascal

    Berikut ini adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5. Program ini menggunakan for dalam for atau sering disebut juga dengan for bersarang. Kode Program: program buat_kolom_baris;   {for bersarang} var    a,b  : integer; begin    writeln('_____________________________________________________');    writeln('-----------------------------------------------------');    a := 0;    for a := 1 to 10 do    begin      for b := 1 to 5 do      begin      write (a:5,'*',b,'=',(a*b):2);      end;    writeln;    end;    writeln('-----------------------------------------------------');    writeln('_____________________________________________________'); readln; end. Hasil Program: Selamat Mencoba,, semoga berhasil... ^_^
Post a Comment
Baca selengkapnya....

Contoh Program Perkalian Menggunakan WHILE BERSARANG Pada Turbo Pascal

    Berikut ini adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5. Program ini menggunakan while dalam while atau sering disebut juga dengan while bersarang. Kode Program: program buat_kolom_baris;   {while dalam while}{while bersarang} var    a,b  : integer; begin    writeln('_____________________________________________________');    writeln('-----------------------------------------------------');    a := 1;    while a <= 10 do    begin       b := 1;       while b <= 5 do       begin       write (a:5,'*',b,'=',(a*b):2);       b := b + 1;       end;    writeln;    a := a + 1;    end;    writeln('-----------------------------------------------------');    writeln('_____________________________________________________');    readln; end. Hasil Program: Semoga artikel Contoh Program Perkalian Menggunakan WHILE BERSARANG Pada Turbo Pascal ini
Post a Comment
Baca selengkapnya....