ContohProgram menggunakan procedure dan case of DI Pascal. Writeln (' 1. Diketahui sebuah Persegi Mempunyai Panjang sisi 5'); Writeln (' Berapakah Luas Dan Kelilingnya..?'); else write ('Maaf, anda salah, lebih teliti lagi di soal berikutnya ! '); Writeln (' 2. Diketahui sebuah Lingkaran Mempunyai Jari-jari 7');
UntukMencari luas lingkaran kita akan menggunakan rumus matematika pada umumnya yaitu : Misal kita masukan nilai jari-jari = 7 kemudian program akan menghitung 3.14(phi) x 7 x 7. Dan menampilkan hasil 3.00. Pernyataan For pada pascal memiliki struktur sebagai berikut : for [nilai awal] to [nilai akhir]
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. ProgramPascal Menghitung Luas Lingkaran, Sisi miring segitiga siku-siku dan volume kerucut Nama : Heni Purwati. NIM : AFD 109 0 51. Program Menghitung_Luas_Lingkaran. Uses crt; Var. C , a, b :real; Ch:char; Begin. Program menghitung sisi miring segitiga siku-siku PROGRAMLUAS LINGKARAN PADA PASCAL Program LuasLingkaran;. Uses crt; . 390 412 96 384 404 64 206 174

program pascal menghitung luas lingkaran