program pascal-luas persegi panjang

Advertisemen
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.
Advertisemen

Disclaimer: Gambar, artikel ataupun video yang ada di web ini terkadang berasal dari berbagai sumber media lain. Hak Cipta sepenuhnya dipegang oleh sumber tersebut. Jika ada masalah terkait hal ini, Anda dapat menghubungi kami disini.
Related Posts
Disqus Comments
© Copyright 2017 Uphik Lamers - All Rights Reserved - Created By ads Diberdayakan oleh Blogger