[Turbo Pascal] Menghitung Luas Lingkaran Menggunakan Fungsi

Program swift;
uses wincrt;
function luas_lingkaran(r:integer; hasil:real):real;
begin
    luas_lingkaran:=(22/7)*sqr(r);
    end;

    var
    r:integer;
    hasil:real;
    begin
      write('Masukkan Panjang Jari-jari : '); readln(r);
      writeln('Luasnya = ',luas_lingkaran(r,hasil):0:2);
end.

Related Articel:

Turbo Pascal

• [Turbo Pascal] Pengurutan Bilangan
• [Turbo Pascal] Menghitung Bilangan Ganjil dan Genap
• [Turbo Pascal] Perulangan Dengan Repeat Until
• [Turbo Pascal] Perbedaan Char dan String
• [Turbo Pascal] Program Pencarian Indeks Bilangan
• [Turbo Pascal] Program dengan menggunakan menu pilihan
• [Turbo Pascal] Program Menghitung Tahun Kabisat dan Non-Kabisat
• [Turbo Pascal] Menghitung Nilai Rata-rata dengan While..Do
• [Turbo Pascal] Program Sederhana Menghitung Gaji Pegawai
• [Turbo Pascal] Contoh sederhana penggunaan FOR TO DO
• [Turbo Pascal] Contoh Sederhana Penggunaan Case Of
• [Turbo Pascal] Program Data Mahasiswa dengan Type Data Terstruktur
• [Turbo Pascal] Program Kasir
• [Turbo Pascal] Menghitung banyaknya huruf Vokal
• [Turbo Pascal] Program Segitiga Pascal
• [Turbo Pascal] Input data yang tidak sama
• [Turbo Pascal] Program KRS Mahasiswa
• [Turbo Pascal] Menghitung huruf
• [Turbo Pascal] Program membaca nilai berpasangan
• [Turbo Pascal] Contoh Prosedur dengan Parameter Variabel
• [Turbo Pascal] Mencari Pangkat Dan Faktorial
• [Turbo Pascal] Mencari Nilai Minimal Dengan Array
• [Turbo Pascal] Mencari Nilai Maksimal Dengan Array
• [Turbo Pascal] Mencari Modus Dari Bilangan
• [Turbo Pascal] Menentukan Ganjil & Genap

Posted in: Turbo Pascal