Program Pascal Mencari Luas JajarGenjang

Program Pascal Mencari Luas JajarGenjang

Assalamualaikum wr.wb

selamat pagi,siang,sore,malam semuanya :D Kali ini saya akan memberikan contoh Flowchart "mencari luas jajargenjang" yang mungkin bisa menambah pengetahuan teman" sekalian, berikut gambar nya :

1. Programnya

program LuasJajarGenjang;
uses crt;
Var
   a :Integer;
   t :Integer;
   Luas :Integer;
Begin
     clrscr;
     Writeln('program mencari luas jajar genjang');
     Write('Input nilai a =');readln (a);
     Write('Input nilai t =');readln (t);
     Luas :=a*t;
     Writeln('Nilai Luas =',Luas);
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program

Demikianlah yang dapat saya sampaikan, untuk melihat lebih banyak lagi temtang pemrograman silahkan kunjungi artikel saya yang lainnya  terimakasih :))