Contoh program menghitung luas dan volume bola dengan turbo pascal

screenshot program

untuk bisa jadi menjadi seorang programer profesional kita tidak bisa melakukannya secara instan. butuh banyak waktu dan proses yang harus di lalui. tapi jangan putus asa, karena sebenarnya belajar pemrograman itu itu tidak terlalu sulit, kita hanya butuh belajar secara bertahap dan kontinyu.
mari kita belajar membuat program mulai dari yang sederhana menghitung luas dan volume bola seperti contoh di bawah ini.
listing program "berwarna merah":

program menghitung_luas_dan_volume_bola;
uses wincrt;
const
     pi=3.14;

var 
    a,b,c: char;
    r: integer;
    v,l: real;

begin           
     clrscr;
     write('NAMA : ');
     readln(a);
     write('NIM : ');
     readln(b);
     write('KELAS : ');
     readln(c);
     write('masukkan Jari-jari : ');
     readln(r);
     l := pi * r * r;
     writeln('LUAS BOLA : ',l:0:2);
     v := 3/4 * pi * r * r * r;
     writeln('VOLUME BOLA : ',v:0:2);    

  
     
     readkey;
end.

hasil run/compile

hasil run/compile

untuk sementara sampai disini dulu, kita belajar bersama lagi di lain kesempatan :D