Cara membuat Functional keliling lingkaran dengan menggunakan turbo pascal terbaaru 2015
Hai semua, Selamat Datang di blog brema, hari ini saya akan membagikan satu buah script program membuat rumus keliling lingkaran sendiri menggunakan software turbo pascal.
Saya membuat program ini karena melihat menghitung rumus keliling lingkaran sekarang masih menggunakan cara yang manual, karena membuat program rumus keliling lingkaran ini tidak terlalu sulit dan sangat mudah di mengerti oleh orang lain, makanya saya membagikan rumus tersebut.
Nah langsung saja lihat script program rumus keliling lingkaran menggunakan software turbo pascal.
program menghitung; uses wincrt; function k_lingkaran (r:integer):real; const pi=3.14; begin k_lingkaran :=2*pi*r; end; var r:integer; begin writeln('masukan jari jari');readln(r); writeln('keliling lingkaran',k_lingkaran(r):0:2); end. |
Nah bisa juga menggunakan script kedua berikut yang ada di bawah ini loh.
program fungsi_k_lingkaran; uses wincrt; function k_lingkaran(r:integer; hasil:real):real; begin k_lingkaran := 2*3.14*r; end; var r: integer; hasil:real; begin write('Masukkan jari-jari : '); readln(r); writeln('Keliling = ',k_lingkaran(r,hasil):0:2); end. |
Sekian dari saya dan terimakasih kembali karena sudah mengunjungi blog saya dan jangan lupa untuk melihat artikel-artikel saya yang lainnya agar untuk menambah informasi dari pengunjung blog brema ini.