Bab1 Pengenalan bahasa Pemrograman 27 Berikut ini penjelasan kode program satu demi satu. 1. Judul Program, nama programnya adalah Luas_segitiga 2. Bagian Deklarasi, diantaranya Uses crt; ini digunakan untuk menyiapkan layar di awal program. Var Luas,a,t: real, artinya menyiapkan variabel-variabel seperti Luas, a, t sekaligus tipe datanya yaitu bilangan real.
Origin is unreachable Error code 523 2023-06-16 100704 UTC What happened? The origin web server is not reachable. What can I do? If you're a visitor of this website Please try again in a few minutes. If you're the owner of this website Check your DNS Settings. A 523 error means that Cloudflare could not reach your host web server. The most common cause is that your DNS settings are incorrect. Please contact your hosting provider to confirm your origin IP and then make sure the correct IP is listed for your A record in your Cloudflare DNS Settings page. Additional troubleshooting information here. Cloudflare Ray ID 7d823e4ddec7b8ee ā¢ Your IP ā¢ Performance & security by Cloudflare
12 penulisan program pascal Progaram pascal tidak mengenal aturan penulisan dikolom tertentu, jadi boleh ditulis mulai kolom berapapun. Penulsan statement - statement pada contoh program yang menjorok masuk beberapa kolom tidak mempunyai pengaruh diproses, hanya dimaksudkan supaya mempermudah pembacaan perogram, sehingga akan lebih terlihat
Kali ini saya lanjutkan untuk contoh program pascal sederhana untuk menghitung luas lingkaran. sebagai info saja sebelumnya juga saya bagikan artikel menghitung luas persegi panjang di pascal. Pascal memang bahasa pemrograman yang cocok bagi kita pemula yang belajar pemrograman terutama untuk memahami algoritma untuk proses penyelesaian masalah. Untuk menghitung luas lingkaran menggunakan rumus Keterangan piā¦ Read More Ā» Pada pembahasan ini saya ingin membahas contoh program sederhana menggunakan bahasa pascal untuk menghitung luas dan keliling persegi panjang. Pascal merupakan bahasa pemrograman yang tidak begitu populer, jika dibandingkan dengan bahasa lain seperti Java,C++,PHP ataupun Pyhton., walaupun begitu bahasa ini cukup banyak di pakai di kalangan akademis untuk mempelajari algoritma dan pemrograman dasar saat diā¦ Read More Ā» Pages12
2 Buka data tabel yang akan dijadikan primary. Klik struktur>pilih relation view. Disana akan ada foreign key constraint. Pilih data tabel pertama sebagai primary key,lalu pilih database, pilih kolom tabel kedua sebagai foreign key lalu data tabel. Jangan lupa pilih on delete cascade on delete cascade Semoga berhasil.
Latihan Kode Program C++ Menghitung Luas Lingkaran 05 Oct 21 Tutorial C++ Latihan kode program C++ kali ini akan membahas cara menghitung luas lingkaran. Materi ini berhubungan dengan logika matematika dan penggunaan operator aritmatika. Soal Menghitung Luas Lingkaran Buatlah kode program C++ untuk menghitung luas lingkaran. Kode program butuh 1 inputan berupa nilai jari-jari lingkaran, dan menampilkan output luas lingkaran. Bonus soal buat juga dalam bentuk function. Berikut contoh tampilan akhir yang diinginkan 1 Input jari-jari lingkaran 7 Luas lingkaran = Berikut contoh tampilan akhir yang diinginkan 2 Input jari-jari lingkaran 10 Luas lingkaran = 314 Silahkan coba sebentar membuat kode program ini. Tips Membuat Kode Program Menghitung Luas Lingkaran Soal ini melatih pemahaman terkait logika matematika dan penggunaan operator aritmatika. Berikut tutorial pendahuluan yang bisa diikuti Pengertian Variabel dalam Bahasa C++ Jenis-jenis Operator Aritmatika Bahasa C++ Tipe Data Float dan Double Bahasa C++ Rumus untuk menghitung luas lingkaran adalah pi * jari-jari2. Untuk memudahkan pembuatan kode program, bisa ditulis sebagai * r * r. Kode Program C++ Menghitung Luas Lingkaran Berikut salah satu solusi dari soal menghitung luas lingkaran menggunakan bahasa pemrograman C++ include using namespace std; int main { cout > r; luas = * r * r; cout > r di baris 14. Nilai ini dipakai untuk menghitung luas dengan perintah luas = * r * r. Terakhir, luas lingkaran ditampilkan di baris 17. Proses perhitungan luas lingkaran sebenarnya juga bisa langsung dilakukan ke dalam perintah cout, tidak harus ditampung dulu ke variabel luas. Berikut contoh yang dimaksud include using namespace std; int main { cout > r; cout using namespace std; float hitungLuasLingkaranfloat r { return * r * r; } int main { cout > r; cout << "Luas lingkaran = "<< hitungLuasLingkaranr << endl; return 0; } Di awal kode program, tepatnya pada baris 5-7, saya mendefinisikan fungsi hitungLuasLingkaran. Fungsi ini menerima 1 argument yang disimpan ke dalam parameter r. Fungsi hitungLuasLingkaran hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan * r * r di baris 6. Proses pemanggilan fungsi dilakukan dari dalam perintah cout di baris 19. Nilai jari-jari r yang diinput oleh user, dilewatkan sebagai parameter menjadi hitungLuasLingkaranr. Demikian kode program menghitung luas lingkaran menggunakan bahasa pemrograman C++. Semoga tutorial ini bisa bermanfaat.
Maksudrumus diatas adalah Luas = Pi x jari-jari x jari-jari, bagi yang masih ingat pelajaran matematika di sekolah tentunya tahu bahwa nilai dari Pi adalah 3.14 dan pada program penghitung ini hanya diminta menginput ukuran dari jari-jari sebuah lingkaran.
Program Pascal Menghitung Luas dan Keliling Lingkaran Nama Muhammad Lathif Azmii NPM 06201740013 Program Studi Sistem Informasi Matakuliah Algoritma 1. {luas dan keliling Lingkaran} Program Lingkaran; Uses crt; Const pi = Var rinteger; L,kreal; begin clrscr; writelnHitung Luas dan Keliling Lingkaranā; writeln==================================ā; writelnjari - jari ā; readlnr; Lpi*r*r; K2* writelnluasā,l02; writelnkelilingā,K02; readln ; end. Attention! Selalu Perhatikan tanda baca atau huruf saat anda mengerjakannya dengan pascal, karena itu dapat berpengaruh saat anda mencobanya di pascal, jika tidak sesuai akan terjadi sintax error. ==semoga dapat membantu anda mengerjakan tugas== Postingan populer dari blog ini Program Pascal Luas Bangun Datar Nama Muhammad Lathif Azmii NPM 06201740013 Program Studi Sistem Informasi Matakuliah Algoritma 1. {luas jajarangenjang} Program Jajarangenjang; Uses crt; var luas,a,treal; begin clrscr; writeln==Program menghitung luas jajarangenjang==ā; readln; writeMasukkan Alasā; readlna; writeMasukkan Tinggiā; readlnt; luas=a*t; writelnluas jajarangenjang=ā,luas00; readln; end. Output ==Program menghitung luas jajarangenjang== Masukkan Alas 2 Masukkan Tinggi4 Luas jajarangenjang=8 2. {luas segitiga} Program persegipanjang; Uses crt; var luas,a,treal; begin clrscr; writeln==Program menghitung luas segitiga==ā; readln; writeMasukkan Alasā; readlna; writeMasukkan Tinggiā; readlnt; luas=a*t/2; writelnluas segitiga=ā,luas00; readln; end. Output ==Program menghitung luas segitiga== Masukkan Alas 3 Masukkan Tinggi4 Luas segitiga=6 3. Program Pascal Menara Hanoi Hai sist/gan kembali lagi di blog gue, Disini gue mau bantu buat yang kesulitan mencari codingan Menara Hanoi langsung aja cekibrooooottt.....!!!! PASCAL IDE. Program Menara_Hanoi; Uses Crt; Procedure MenaraHanoi Jumlah Integer; Sumber, Tujuan, Bantuan Char; Var Langkah, Jumlah_A, Jumlah_B, Jumlah_C, Waktu Integer; Var Baris_Sumber, Kolom_Sumber, Baris_Tujuan, Kolom_Tujuan Integer; Begin If Jumlah > 0 Then Begin MenaraHanoiJumlah-1,Sumber,Bantuan,Tujuan,Langkah,Jumlah_A,Jumlah_B,Jumlah_C,Waktu; Langkah = Langkah+1; If Sumber = 'A' Then Begin Kolom_Sumber = 30; Baris_Sumber = 24 - Jumlah_A; Jumlah_A = Jumlah_A - 1; End Else If Sumber = 'B' Then Begin Kolom_Sumber = 40; Baris_Sumber = 24 - Jumlah_B; Jumlah_B = Jumlah_B - 1; End Else Begin Kolom_
ProgramMenghitung Luas Lingkaran & Volume Kubus #pascal. Monday, December 26, 2011 INFORMATIKA. Soal nomer 2 kisi2 uas gan , jadi soalnya gni , buat program menghitung luas lingkaran & volume bola dengan prosedure parameter . yang nanti tampilan keluar program gni :----- nilai jari-jari : 4 ( user ngisi angkar terserah , misal 4 )
Posting Terpopuler Minggu Ini kali ini ane mau membahas apa itu MOD dan DIV . selain itu, ane juga mau memberikan perbedaan antara keduanya. pengetahuan tentang... Tahukah Anda ciri-ciri Manusia Pathetic ? Berikut ini adalah ciri-cirinya. Contoh Program Menghitung Luas Lingkaran di Pascal Sebuah lingkaran dalam Geometri Euklid adalah himpunan semua titik pada bidang dalam jarak tertentu, yang disebut jari-jari, dari suatu titik tertentu, yang disebut pusat. Lingkaran adalah contoh dari kurva tertutup sederhana, membagi bidang menjadi bagian dalam dan bagian luar. - Wikipedia untuk memudahkan dalam meng-copy source code script programnya, arahkan pointer ke sudut kanan atas. lihat gambar diatas untuk lebih jelasnya. lalu pilih icon ke-2 dari kiri, lalu klik. setelah itu, tinggal Paste Ctrl+V. program LuasLingkaran; // uses crt; var x, y, z real; BEGIN clrscr; writeln'Program Luas Lingkaran'; writeln''; write'Masukan Jari-Jarinya ' ; readx; y = PI * x * x; write'Hasilnya adalah ',y12; // readln; readln; END. sekian dari saya, mungkin jika ada yang mau ditanyakan, bisa dipostkan pada kolom komentar dibawah. terima kasih . . . SHARE THIS POST Artikel Terkait
DiAplikasi ini terdapat Constanta atau yang disebut juga sebagai Variable tetap yang nilainya selalu tetap dan tidak pernah berubah-ubah, karena ini merupakan aplikasi perhitungan matematika mengenai lingkaran yang dimana lingkaran ini mempunyai phi pada rumusnya yang nilainya tetap yaitu 3.14 atau 22/7.
Cara Menghitung Luas dan Keliling Lingkaran Di Turbo Pascal - posting ke 4 kali ini masih tentang turbo pascal, mempelajari tentang menghitung keliling lingkaran menggunakan perintah pada pascal, pada umumnya matematika sangatlah erat kaitannya dengan bahasa program untuk menentukan lagi mempelajari bahasa program, pada artikel ini sebenarnya adalah tugas kuliah saya di semester awal, saya akan membagikan kepada anda juga bagaimana cara membuat dan menginputnya. ok langsung adalah contoh bahasa programnya program latihan1; uses crt; var rinteger; keliling, luasreal; const phi= begin clrscr; writeln'-' ; writeln'tugas algoritma II menghitung keliling lingkaran' ; writeln'-' ; writeln; write'masukkan jari-jari lingkaran = ';readlnr; luas= phi*r*r; writeln; writeln'luas lingkaran = ' ,luas02; keliling=2*phi*r; writeln'keliling lingkaran = ' ,keliling02; readln; end. berikut ini adalah hasil code runningnya tentunya untuk mencari keliling lingkaran kita harus mendapatkan ukuran jari-jarinya ,sihlakan input angka yang didapat / masukkan angka jari-jari setengah lingkaran contoh disini saya menginput jari-jari dengan angka 4. maka hasilnya ketika anda tekan enter akan otomatis menerima hasilnya dari sekian artikel yang dapat saya bagikan tentang Turbo pascal menghitung keliling lingkaran semoga dapat membantu tugas - tugas kuliah anda ataupun untuk belajar bahasa program pascal, sekiranya dengan sedikit mengetahui fungsi - fungsi dari tiap perintah pascal, andapun dapat mahir menguasai bahasa program ini, thanks semoga bermanfaat ^_^ , happy codding.
Contohprogram yang satu ini bisa Mempermudah pekerjaan kita dalam menghitung Luas/Keliling persegi, Luas/Keliling Segitiga, Lingkaran, Membuat Aplikasi Penghitung Luas Persegi Panjang Pada MATLAB Tugas UAS Algoritma & Pemrograman Universitas Pamulang GUI Pada MATLAB Yunan Mubarak Ramadani 2014140544 / 01TPLPC Regards: www.u9store.com
- Kita dapat mengimplementasikan program pascal yang berhubungan erat dengan kehidupan sehari-hari. Materi yang pernah kita pelajari dalam implementasi bahasa pemrograman pascal seperti halnya program percabangan, array, perulangan, runtutan, serta fungsi dan prosedur contoh dibawah ini dapat kamu coba dengan menggunakan compiler online yaitu OnlineGDB. Baca Juga Cara menggunakan compiler program di onlinegdb tanpa harus menginstall compiler digadget atau laptopmu. Semoga ulasan ini dapat kamu jadikan referensi tambahan dalam mempelajari bahasa program pascal, serta dalam menyelesaikan tugas - tugas yang sedang kamu Program Pascal Menghitung Luas Persegi PanjangSkrip dibawah ini digunakan untuk menghitung luas sebuah luas persegi panjang. Setiap instruksi yang diproses akan diolah mulai dari baris awal hingga akhir secara s_Luas_Persegi_Panjang;var s_panjang integer; s_lebar integer; s_luas integer;begin write 'Input Panjang = ';reads_panjang; write 'Input Lebar = ';reads_lebar; s_luas=s_panjang*s_lebar; writeln'Luas Persegi panjang = ',s_luas; bagian var mendeklarasikan beberapa variabel, diantaranya ada lebar, panjang, dan luas dari persegi panjang. Pada bagian begin, difungsikan sebagai perintah untuk memasukkan nilai dari variabel yang telah dideklarasikan diawal. Program akan bekerja sesuai dengan rumus yang telah diberikan. Kemudian akan ditampilkan sebagai luas persegi Program Pascal Menghitung Luas Lingkaranprogram Luas_Lingkaran;const pi= r real; luas real;begin write 'Masukan Jari-jari = ';readr; luas=pi*r*r; writeln'Luas = ',luas42; rumus perhitungan matematika, tentunya perlu penyesuaian. Termasuk program pascal untuk menghitung luas lingkaran. Dimana, rumus menghitung luas lingkaran phi 3,14, variabel r serta luas dengan tipe data real dalam hal ini memuat bilangan pecahan yang akan dihasilkan dari perhitungan rumus lingkaran. Pengguna akan memasukan jari-jari r yang kemudian program pascal akan melakukan perhitungan berdasarkana rumus luas lingkaran = pi*r*r;Terdapat instruksi pada bagian akhir dari program yaitu menampilkan total luas lingkaran dengan format 42 yang dimaksudkan untuk program agar dapat mencetak 4 angka sebelum diakhiri dengan tanpa koma sebagai pemisah sebuah nilai total desimal. Nah pada pengaturan ini nilai desimal program diatas adalah 2 dibelakang koma. Contoh Program Pascal Struktur Case program struktur_Case;var grade char;begin grade= 'A'; case grade of 'A' writeln'Luar biasa!' ; 'B' writeln'Bagus' ; 'C' writeln'Cukup' ; 'D' writeln'Kurang' ; 'F' writeln'Coba Lagi' ; else writeln'Grade nilai salah'; end; implementasi algoritma program percabangan atau pemilihan, kita dapat membuat suatu struktur case. Nantinya struktur case ini akan memproses seleksi atau perbandingan suatu nilai satu dengan yang halnya dengan contoh program diatas, bahwa grade A akan dibandingkan dengan grade lainya. Seandainya pada struktur case terdapat ekpresi yang sama dengan nilai grade makan perintah program dalam ekpresi tersebut akan diproses. Kemudian hasil output dari program pascal struktur case terdiri dari beberapa bagian, diantaranya LUAR BIASA karena grade A, terdapat nilai identitas A yang akan mencetak kalimat LUAR Program Percabangan IF ELSEprogram Percabangan_1;var bil integer;begin write 'Masukan Bilangan ';readbil; if bil mod 2 = 0 then begin writeln 'Bilangan Genap'; end else begin writeln 'Bilangan Ganjil'; end; diatas merupakan penerapan sturktur algoritma percabangan dengan menggunakan metode program percabangan if else. Algoritma percabangan if else ini merupakan sebuah proses yang akan digunakan untuk mengerjakan sebuah perintah yang memiliki kondisi benar dan salah atau false dan true. Maka dalam perintah program terdapat blok else yang akan diproses berdasarkan pertimbangan atau seleksi diatas digunakan untuk menentukan sebuah nilai atau bilangan yang dimasukkan yang bernilai ganjil ataupun genap. Dengan ukuran serta kondisi yang telah ditetapkan, seandainya bilangan modulus 2 menghasilkan sebuah nilai akhir 0 maka dipastikan bahwa bilangan yang dihasilkan adalah bilangan gelap. Namun, jika yang terjadi adalah sebaliknya maka bilangan tersebut adalah bilangan yang kita masukkan adalah angka 3 maka kondisi akan diteruskan pada nilai false, sehingga perintah pada program akan masuk ke proses else yang akan Perulangan Repeat Untilprogram repeat_until;var i,n integer;begin i= 1; write'Mencetak angka 1 sampai ke-N ';readn; repeat begin writelni; i= i + 1; end; until i > n; perulangan ini minimal melakukan sebuah satu kali iterasi yang kemudian dilanjutkan dengan beberapa kondisi yang akan di cek pada bagian akhir dari kamu memiliki sebuah nilan N dan dimasukkan angka 5, maka akan dilakukan perulangan yang dilakukan oleh nilai dari i=1. Selanjutnya nilai dari i kemudian akan ditambahkan 1 selama proses perulangan iterasi berjalan selama nilai i= 1000000 then begin diskon= end else if total >= 500000 then begin diskon= end else if total >= 250000 then begin diskon= end; tot_bayar=total-total*diskon; writeln'Sub total ',total; writeln'Potongan ',total*diskon00; writeln'Total Bayar ',tot_bayar00; program pascal diatas merupakan gambaran dari perhitungan nilai dari penjualan barang yang terbilang cukup sederhana. Didalamnya terdapat proses program runtunan yang menggunakan struktur pemilihan atau sebuah percabangan program. Contoh Program Pascal Menghitung Gaji Karyawanprogram menghitung_gaji_karyawan;var jum, gol, jkerja, jlembur, gapok, glembur, tun_pengabdian longint; pajakgapok, pajaklembur, totpajak,gajibersih real;begin gapok=0; tun_pengabdian=0; write'Masukan golongan ';readgol; write'Masukan jam kerja ';readjkerja; case gol of 1 begin gapok=1486500; tun_pengabdian=250000; end; 2 begin gapok=1926000; tun_pengabdian=300000; end; 3 begin gapok=2456700; tun_pengabdian=350000; end; 4 begin gapok=2899500; tun_pengabdian=400000; end; end; if jkerja>173 then begin jlembur=jkerja-173; end else begin jlembur=0; end; glembur=jlembur*20000; pajakgapok= pajaklembur= totpajak=pajakgapok+pajaklembur; gajibersih=gapok+tun_pengabdian+glembur-totpajak; writeln'Gaji Pokok ',gapok; writeln'Gaji Lembur ',glembur; writeln'Pajak Gaji Pokok ',pajakgapok46; writeln'Pajak Lembur ',pajaklembur46; writeln'Total Pajak ',totpajak46; writeln'Tunjangan Pengabdian ',tun_pengabdian; writeln'Gaji Diterima ',gajibersih46; program diatas merupakan contoh sederhana program pascal perhitungan gaji karyawan. Program ini bagian dari penerapan algoritma sekuensial. Semoga ulasan contoh program pascal diatas beserta penjelasanya dapat menambah referensi dan wawasan.
SourceCode Program C++: Menghitung Luas Lingkaran - Jika pada postingan sebelumnya kita membahas algoritma serta flowchart pada bahasa pemrograman C/C++ maka pada postingan kali ini kita akan membuat sebuah program yang sederhana dengan menggunakan bahasa C. Program yang akan kita buat ialah program untuk menghitung luas lingkaran.. Algoritma Program
Menu HTML CSS PHP MySQL JavaScript C C++ Java Python Pascal Lainnyaā¦ Laravel 10 Bootstrap 5 React JS WordPress jQuery Web Online / Cpanel Blog Review Jurusan Kuliah eBook HomeTampilan Kode Program Pascal Menghitung Luas dan Keliling Lingkaran 18 Mar 15 Andre No Comments Tampilan Kode Program Pascal Menghitung Luas dan Keliling Lingkaran Add Comment Notify me of new posts by email.
ProgramLuas lingkaran merupakan salah satu program yang biasanya dijadikan studi kasus pada mata pelajaran pemrograman dasar atau pada mata kuliah algoritma pemrograman. meskipun tergolong sederhana jika tidak teliti di dalam menentukan tipe data dari variabel, maka program ini tidak akan berjalan dengan baik. baiklah kalau begitu kita ikuti langkah-langkah membuat program luas lingkara di
ļ»æKali ini saya lanjutkan untuk contoh program pascal sederhana untuk menghitung luas lingkaran. sebagai info saja sebelumnya juga saya bagikan artikel menghitung luas persegi panjang di pascal. Pascal memang bahasa pemrograman yang cocok bagi kita pemula yang belajar pemrograman terutama untuk memahami algoritma untuk proses penyelesaian masalah. Untuk menghitung luas lingkaran menggunakan rumus Luas lingkaran = Ļ Ć rĀ² Keterangan pi = = jari-jari pi merupakan nilai konstanta yang meruakan perbandingan keliling lingkaran dengan diameternya, sementara r adalah jari-jari lingkaran sebagai jarak antara titik pusat dengan tepi lingkaran. Algoritma Bahasa Natural MulaiInisialisasi nilai pi sebagai konstantaMasukan Jari-jariHitung luas Tampilkan luas lingkaranSelesai Bentuk Pseudocode PROGRAM Luas_Lingkaran DEKLARASI pi r real luas real ALGORITMA read r luas <- pi * r * r write luas program Luas_Lingkaran; const pi= var r real; luas real; begin write 'Masukan Jari-jari = ';readr; luas=pi*r*r; writeln'Luas = ',luas42; end. Program di atas kita menggunakan konstanta pi dengan nilai Variabel yang di deklarasikan adalah r sebagai jari-jari dan luas masing-masing dengan tipe real bilangan pecahan. pada bagian main utama program kita mencetak kalimat Masukan jari-jariā menggunakan perintah write dan pengguna di minta memasukan nilai pada layar console yang akan di tampung pada variabel r. Perintah masukan di pascal menggunakan fungsi read. Selanjutnya program akan menghitung luas lingkaran sesuai rumus yang kita definisikan. Program akan menampilkan hasil dengan menampilkan hasil perhitungan luas lingkaran. Perhatikan pada baris program ke-10 pada bagian sintak untuk mencetak luas42 maksud dari sintak ini adalah untuk mencetak 4 angka sebelum tanda titik tanda pemisah bilangan desimal, dan 2 digit setelah tanda koma. sebagai informasi bahwa Pascal menggunakan tanda titik sebagai penanda angka desimal. Hasil output di atas menunjukan hasil program-nya, di mana ketika saya memasukan jari-jari dengan nilai 5 maka luas lingkaran adalah 78,50. Sekian pembahasan singkat mengenai contoh program pascal untuk menghitung luas lingkaran, semoga bermanfaat dan membantu teman-teman dalam belajar algoritma dan pemrograman khusus dengan bahasa pascal.
. 16zduycs6d.pages.dev/15816zduycs6d.pages.dev/76816zduycs6d.pages.dev/14816zduycs6d.pages.dev/75816zduycs6d.pages.dev/77116zduycs6d.pages.dev/28216zduycs6d.pages.dev/97616zduycs6d.pages.dev/28816zduycs6d.pages.dev/65716zduycs6d.pages.dev/34116zduycs6d.pages.dev/99816zduycs6d.pages.dev/15716zduycs6d.pages.dev/92816zduycs6d.pages.dev/30716zduycs6d.pages.dev/16
program pascal menghitung luas lingkaran
