Cara Menghitung Luas dan Keliling Lingkaran Di Turbo Pascal

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 sesuatu.

kembali 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 saja.
ini adalah contoh bahasa programnya :

program latihan1;
    uses crt;
    var
        r:integer;
        keliling, luas:real;
    const
        phi=3.14;
    begin
    clrscr;
    writeln('---------------------------------------------------') ;
    writeln('tugas algoritma II (menghitung keliling lingkaran)') ;
    writeln('---------------------------------------------------') ;
    writeln;
    write('masukkan jari-jari  lingkaran =  ');readln(r);
    luas:= phi*r*r;
    writeln;
    writeln('luas lingkaran = ' ,luas:0:2);
    keliling:=2*phi*r;
    writeln('keliling lingkaran = ' ,keliling:0:2);
    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 program.

mungkin 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.