CORETAN KU

 Bismillahirahmanirrahim

Mungkin sobat semua sudah mahir sama yang namanya pascal tapi tidak ada salahnya kalau saya mencoba berbagi mengenai program pascal,yaitu program menghitung keliling dan luas persegi panjang,berikut adalah input programnya:

Program Menghitung Keliling Persegi panjang:

Program menghitung_keliling_persegi_panjang;

Uses WinCrt;

     Var

     panjang,lebar:real;

     keliling_persegi_panjang:real;

Begin

     writeln('masukkan nilai panjang,lebar=');

     readln(panjang,lebar);

     keliling_persegi_panjang:=2*(panjang+lebar);

     writeln('keliling=',keliling_persegi_panjang:4:2);

End.

Program menghitung luas persegi panjang:

Program menghitung_luas_pesegi_panjang;

Uses WinCrt;

     Var

     panjang,lebar:real;

     luas_persegi_panjang:real;

Begin

     writeln('masukkan nilai panjang,lebar=');

     readln(panjang,lebar);

     luas_persegi_panjang:=panjang*lebar;

     writeln('luas=',luas_persegi_panjang:4:2);

End.

Terimakasih sudah berkunjung ,semoga bermanfaat  ......