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. Latihan Kode Program Pascal - Menghitung Luas Persegi Panjang Di baris 4 terdapat deklarasi variabel panjang, lebar, dan luas bertipe real. Disini saya menggunakan tipe data real agar nilai panjang dan lebar persegi panjang bisa menampung angka pecahan. Kemudian user diminta menginput nilai panjang persegi dengan perintah readln(panjang) di baris 12, dan nilai lebar persegi dengan perintah readln(lebar) di baris 14. Kedua nilai ini dipakai untuk menghitung luas persegi panjang dengan perintah luas := panjang * lebar. Terakhir, luas persegi panjang ditampilkan di baris 17. Proses perhitungan luas sebenarnya juga bisa langsung dilakukan ke dalam perintah writeln, tidak harus ditampung dulu ke variabel luas terlebih dahulu. Berikut contoh yang dimaksud: 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); writeln('Luas persegi panjang = ',panjang * lebar:4:2); readln; end. Setelah menerima inputan panjang dan lebar, di akhir baris 16 perhitungan luas langsung ditulis ke dalam perintah writeln. Penulisan seperti ini memang lebih singkat. Namun kelemahannya kita harus melakukan perhitungan ulang jika butuh nilai luas persegi panjang di tempat lain. Kode Program Bahasa Pascal Menghitung Luas Persegi Panjang (Function) Untuk soal bonus, yakni membuat kode program menghitung luas persegi panjang dalam bentuk function, bisa menggunakan kode berikut: program luas_persegi_panjang; uses crt; var panjang, lebar, luas: real; function hitungLuasPersegiPanjang(p,l:real):real; begin hitungLuasPersegiPanjang := p*l; end; begin clrscr; writeln('## Program Pascal Menghitung Luas Persegi Panjang ##'); writeln('======================================================'); writeln; write('Input panjang persegi: '); readln(panjang); write('Input lebar persegi: '); readln(lebar); writeln('Luas persegi panjang = ', hitungLuasPersegiPanjang(panjang, lebar):4:2); readln; end. Di awal kode program, tepatnya pada baris 6-9, saya mendefinisikan fungsi hitungLuasPersegiPanjang(). Fungsi ini menerima 2 argument yang disimpan ke dalam parameter p dan l. Fungsi hitungLuasPersegiPanjang() hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan p * l di baris 8. Proses pemanggilan fungsi dilakukan dari dalam perintah writeln di baris 22-23. Nilai variabel panjang dan lebar yang diinput oleh user, dilewatkan sebagai parameter menjadi hitungLuasPersegiPanjang(panjang, lebar). Demikian kode program menghitung luas persegi panjang menggunakan bahasa pemrograman Pascal. Semoga tutorial ini bisa bermanfaat. Apabila anda serius ingin mempelajari Pascal dan butuh materi Pascal yang jauh lebih lengkap, Duniailkom telah menerbitkan eBook Pascal Uncover yang membahas bahasa pemrograman Pascal dari dasar hingga procedure, function dan contoh kasus. Penjelasan lebih lanjut bisa ke eBook Pascal Uncover Duniailkom. Tags: Algoritma, bahasa pascal, Belajar Pascal, Latihan Soal, Luas Persegi Panjang, Pascal, Soal Algoritma ADD COMMENT Comment Text* Name* Email* Website Notify me of follow-up comments by email. Notify me of new posts by email. eBook Programming Duniailkom eBook Duniailkom - C++ Uncover eBook Duniailkom - Pascal Uncover eBook Duniailkom - HTML Uncover eBook Duniailkom - CSS Uncover eBook Duniailkom - PHP Uncover eBook Duniailkom - MySQL Uncover eBook Duniailkom - JavaScript Uncover eBook Duniailkom - Bootstrap Uncover eBook Duniailkom - OOP PHP Uncover eBook Duniailkom - Laravel Uncover eBook Duniailkom - Laravel in Depth #1 eBook Duniailkom - React Uncover Cara pemesanan eBook & Buku Duniailkom List Tutorial Duniailkom Tutorial Terbaru Duniailkom Tutorial HTML Tutorial CSS Tutorial PHP Tutorial MySQL Tutorial JavaScript Tutorial Bahasa C Tutorial Bahasa C++ Tutorial Java Tutorial Python Tutorial Pascal Tutorial Laravel 10 Tutorial Bootstrap 5 Tutorial React JS Tutorial WordPress Tutorial jQuery Membuat Web Online Review Jurusan Kuliah Rekomendasi Hardware Blog Duniailkom Tutorial Pascal 1. Pengertian Pascal 2. Sejarah Pascal 3. Install Free Pascal 4. Install Turbo Pascal 7 5. Menjalankan Pascal 6. Penulisan Program 7. Struktur Program 8. Pengertian Variabel 9. Pengertian Konstanta 10. Write dan Writeln 11. Read dan Readln 12. Tipe Data Integer 13. Tipe Data Real 14. Tipe Data Char 15. Tipe Data String 16. Tipe Data Boolean 17. Tipe Enumerated 18. Tipe Data Subrange 19. Tipe Data Array 20. Array 2 Dimensi 21. Array Dinamis 22. Array Bentukan 23. Tipe Data Record 24. Perintah Record With 25. Array Record 26. Tipe Data Set 27. Tipe Data Pointer 28: Tipe Data Pascal 29. Jenis-Jenis Operator 30. Operator Assignment 31. Operator Aritmatika Pascal 32. Operator String Pascal 33. Operator Perbandingan 34. Operator Logika Pascal 35. Urutan Prioritas Operator 36. Percabangan IF THEN Pascal 37. Percabangan IF THEN ELSE Pascal 38. Percabangan IF Bersarang 39. Struktur Percabangan CASE 40. Struktur Percabangan CASE ELSE 41. Perulangan FOR DO 42. Perulangan FOR DOWNTO 43. Perulangan WHILE DO 44. Perulangan REPEAT UNTIL 45: Perulangan Bersarang (1) 46. Perulangan Bersarang (2) 47. Fungsi Perintah BREAK 48. Fungsi Perintah CONTINUE Soal Latihan Algoritma Pascal Berlangganan Artikel Duniailkom Dapatkan pemberitahuan untuk setiap artikel dan tutorial terbaru Duniailkom Email Address Email Address Subscribe Join 16.2K other subscribers Duniailkom #HTML#CSS#PHP#MYSQL#JAVASCRIPT#WORDPRESS#WEBONLINE#PASCALDuniailkom adalah situs belajar programming dan ilmu komputer. Diharapkan duniailkom.com dapat menjadi media belajar dan saling berbagi tentang programming, hardware, maupun teori seputar dunia komputer. Ikuti akun media social duniailkom untuk update terbaru: Facebook Duniailkom, Twitter Duniailkom Copyright © 2024 Duniailkom | Hosting rekomendasi Duniailkom TERMS OF USE|PRIVACY POLICY|DISCLAIMER|ABOUT US|CONTACT US