PROGRAM LUAS DAN KELILING

Assalamu’alaikum sobat info sekalian, puja dan puji syukur kita kepada Allah  yang telah melimpahkan  nikmat rizkinya kepada kita semua, dan Kepada junjungan kita Nabi Agung Muhammad saw semoga kita mendapatkan syafatnya di ya’umul hisab kelak. Ini program Tpw yang baru dari saya, semoga para sobat bisa menikmatinya.

Langsung saja saya berikan flowchatnya:

program procedur;

uses wincrt;

const phi= 3.14;

var

  ulang: string;

  pil: integer;

  a,t,p,l,r,s,luas,kll:real;

   Procedure Persegi_Panjang;

 begin

       repeat

        clrscr;

        writeln('== Program Luas Dan Keliling Persegi Panjang ==');

        writeln('===============================================');

        write('Panjang Persegi Panjang : ');readln(p);

        write('Lebar Persegi Panjang   : ');readln(l);

                     Luas:=p*l;

                     Kll:= 2*(p+l);

        writeln('===============================================');

        writeln('Jadi, Luas Persegi Panjang  = ',luas:8:2);

        writeln('Dan Keliling Persegi Panjang= ', kll:8:2); 

        writeln;

        write('Ulang lagi?[Y/T]');readln(ulang);

        until(ulang='T') OR (ulang='t');

        end;

 Procedure Lingkaran;

 begin

       repeat

        clrscr;

        writeln('==   Program Luas Dan Keliling Lingkaran  ==');

        writeln('============================================');

        write('Jari-jari Lingkaran : ');readln(r);

                     Luas:=phi*sqr(r);

                     Kll:=2*phi*r;

        writeln('============================================');

        writeln('Jadi, Luas Lingkaran  = ',luas:8:2);

        writeln('Dan keliling Lingkaran= ',kll:8:2);

        writeln;

        write('Ulang lagi?[Y/T]');readln(ulang);

        until(ulang='T') OR (ulang='t');

        end;

  Procedure Segitiga;

  begin

       repeat

        clrscr;

        writeln('== Program Luas Segitiga ==');

        writeln('===========================');

        write('Alas Segitiga   : ');readln(a);

        write('Tinggi Segitiga : ');readln(t);

                    Luas:=1/2*a*t;

        writeln('===========================');

        writeln('Jadi, Luas Segitiga= ',luas:8:2);

        writeln;

        write('Ulang lagi?[Y/T]');readln(ulang);

       Until(ulang='T') OR (ulang='t');

       End;

 Procedure Bujur_Sangkar;

 begin

       repeat

        clrscr;

        writeln('== Program Luas Dan Keliling Bujur Sangkar ==');

        writeln('=============================================');

        write('Panjang Sisi : ');readln(s);

                     Luas:=sqr(s);

                     Kll:=4*s;

        writeln('=============================================');

        writeln('Jadi, Luas Bujur Sangkar  = ',luas:8:2);

        writeln('Dan Keliling Bujur Sangkar= ',kll:8:2);

        writeln;

        write('Ulang lagi?[Y/T]');readln(ulang);

        until(ulang='T') OR (ulang='t');

        end;

 Procedure Jajar_Genjang;

 begin

       repeat

        clrscr;

        writeln('== Program Luas Jajar Genjang ==');

        writeln('================================');

        write('Panjang Jajar Genjang  : ');readln(p);

        write('Lebar Jajar Genjang    : ');readln(l);

                     Luas:=p*l;

        writeln('=============================================');

        writeln('Jadi, Luas Jajar Genjang   = ',luas:8:2);

        writeln;

        write('Ulang lagi?[Y/T]');readln(ulang);

        until(ulang='T') OR (ulang='t');

        end;

begin

repeat

 clrscr;

 writeln('----------------------------------------');

 writeln('    >>>>> bustomo Ali Husen<<<<<<<      ');

 writeln('         >>>>>11295061<<<<<<<           ');

 writeln('----------------------------------------');

 writeln('----------------------------------------');

 writeln('=      *** PILIHAN PROGRAM ***    =');

 writeln('=        **  LUAS DAN KELILING **      =');

 writeln('=            1. Persegi Panjang        =');

 writeln('=            2. Lingkaran              =');

 writeln('=            3. Segitiga               =');

 writeln('=            4. Bujur Sangkar          =');

 writeln('=            5. Jajar Genjang          =');

 writeln('=            6. Selesai                =');

 writeln('----------------------------------------');

 writeln;

 write('Pilihan program Anda    : ');readln(pil);

case pil of

1: Persegi_Panjang;

2: Lingkaran;

3: Segitiga;

4: Bujur_Sangkar;

5: Jajar_Genjang;

end;

until pil=6;

clrscr;

Writeln('Tekan Enter untuk Keluar!');

readln;

end.
Atau bisa juga download aplikasinya disini sobat infolover Download