program pascal-luas persegi panjang | Uphik Lamers

Saturday, April 23, 2011

program pascal-luas persegi panjang

 
Buat algoritma dan program untuk menghitung luas yang diarsir pada gambar dibawah ini







  1. Menentukan nilai panjang sisi luar (pL): pL= 18, lebar sisi luar (lL): lL= 12, panjang sisi dalam (pT): pT= 10, dan lebar sisi dalam (lT): lT= 5.
  2. Menghitung luas total, Ltotal= pL x lL
  3. Menghitung luas tengah, Ltengah= pT x lT
  4. Didapat luas yang diarsir, Larsir= Ltotal-Ltengah
      Program pascal:
uses crt;
var pL, lL, pT, lT, Ltotal , Ltengah: integer;
begin
    clrscr;
    pL:=18;  lL:=12;  pT:=10;  lT:=5;
    Ltotal:= pL*lL;
    Ltengah:= pT*lT;
    writeln('Luas total       = ', Ltotal);
    writeln('Luas tengah      = ', Ltengah);
    writeln('Luas yang diarsir= ', Ltotal-Ltengah);
    readln;
end.
Post a Comment