Dok. Pribadi Sejak tahun 1960 dunia mulai menggunakan Sistem Satuan Internasional yang disingkat SI, yang dalam bahasa Inggris disebut International System of Unit atau dalam bahasa Perancis le System International d’unites. Sistem ini merupakan hasil kesepakatan dari CGPM (Conference General des Poids et Measures) di Paris, Perancis. Dan pada CGPM 13 Tahun 1967 memuat perjanjian yang salah satu dari kesepakatan tersebut yaitu penggunaan Kelvin sebagai satuan suhu internasional. Dalam penerapan kesepakatan penggunaan Kelvin tersebut berdasarkan beberapa alasan, berikut beberapa alasan mengapa Kelvin lebih dipilih dibandingkan dengan satuan lainnya: Titik Terendah dalam Kelvin adalah 0 K dan pada suhu tersebut energi atom berada pada level paling rendah (minimum). Tidak ada lagi kuantum energi yang lebih rendah yang bisa dimiliki oleh sebuah atom selain level energi tersebut. Oleh karena itu pada Kelvin tidak harus menggunakan tanda minus, dengan kata lain lebih efisien d...
Program dalam bahasa Pascal untuk menghitung jumlah dan rata-rata bilangan ganjil genap. Coding untuk meghitung jumlah dan rata-rata bilangan ganjil dan genap. Programnya dapat dilihat dibawah ini: program hitung_genap_ganjil; uses crt; var N,i,a, ganjil,genap : integer; jumlahganjil, jumlahgenap : integer; rataganjil, ratagenap : real; begin clrscr; jumlahganjil:= 0; jumlahgenap:= 0; genap:= 0; ganjil:= 0; write('masukan jumlah data: '); readln(N); for i:= 1 to N do begin write('masukan data ke-',i,': '); readln(a); if a mod 2 = 0 then begin genap:= genap + 1; jumlahgenap:= jumlahgenap + a; end else ...
Codepamulang. Program Pascal tentang penggunaan Prosedur/Procedure dengan parameter Luaran untuk menghitung rata-rata N buah bilangan. Programnya dapata dilihat dibawah ini: program menghitung_rerata; uses crt; var N : integer; rerata : real; procedure hitung(N: integer; var u: real); var a,b : integer; jumlah: real; begin for a:= 1 to N do begin write('Masukan nilai ke-',a,' = '); readln(b); jumlah:= jumlah+b; end; u:= jumlah/N; end; begin clrscr; writeln('-----Menghitung Rerata Nilai-----'); writeln(); write('Masukan jumlah data inputan = '); readln(N); hitung(N, rerata); writ...
Komentar
Posting Komentar