Kode Program Bahasa Pascal Menghitung Luas Persegi Panjang
Berikut salah satu contoh dari soal menghitung luas persegi panjang menggunakan bahasa pemrograman Pascal:
silahkan buat di https://www.onlinegdb.com/
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | program luas_persegi_panjang; uses crt; var panjang, lebar, luas: real ; begin clrscr; writeln ( '## Program Pascal Menghitung Luas Persegi Panjang ##' ); writeln ( '======================================================' ); writeln ; write ( 'Input panjang persegi: ' ); readln(panjang); write ( 'Input lebar persegi: ' ); readln(lebar); luas := panjang * lebar; writeln ( 'Luas persegi panjang = ' ,luas: 4 : 2 ); readln; end . |
0 Komentar