Program Min, Max, Mean, Median dan Modus.
» Pertama ketikkan uses crt; , dimana sebelum menjalankan program berguna untuk memanggil librarynya terlebih dahulu.
» Var a,b,c:integer, untuk memberikan tipe data berupa variebel, yang berarti variabel a,b,c bertipe datakan integer;
» Sum,men,med:real, berarti sum,men dan med bertipe data real.
» n:array [0..100] of real, dimana n berbentuk kedalam array dimana[0..100] itu sendiri merupakan jumlah/banyaknya data dalam array tersebut of real maksudnya berbentuk real.
» Begin, berguna untuk mengawali program.
» Clrscr, untuk menghapus/membersihkan layar.
» {..}, tanda kurung untuk memebrikan komentar.
» Textcolor(); untuk memberikan warna teks.
» Writeln: Di data yang diinput, untuk mencetak jumlah data yang dimasukkan.
» Readln; membaca nilai a yang di input.
»
» Lalu for b:= 1 to a do, dimana merupakan proses looping untuk input data mean, b itu merupakan urutan datanya dan n[b], merupakan isi data.
» Dimana gunakan write untuk mencetak data ke berapanya dan nilai n[b] yg diinput. End; untuk mengakhiri program input data diatas. Lalu, setelah kita menginput kita akan mencari mean. » Diketikan sum:=1; untuk memberikan nilai sum = 1. » Di gunakan lagi kondisi for, untuk melakukan perulangan. » Lalu begin untuk memulai program mean. » Lalu dilakukan penjumlahan pada nilai sum. Sum:=sum+n[b], dimana nilai sum yang diinput + dengan nilai pada perulangan. » dan men:=sum/a. dimana untuk memdapatkan nilai mean dilakukan pembagian sum dibagi banyaknya data yang dinput yakni a. » Selanjutnya untuk mencari nilai median. » Digunakan perulangan for b:= 1 to a do dan for c:=b+1 to a, dimana aka melakukan perulangan sebanyak dua kali, pertama pada nilai b lalu setelah itu ke c , setalah semua pengulang di c selesai balik ke b lagi, sampai pengulangan selesai sesuai dengan banyak nilai yang diinput yakni a. » Lalu begin memulai program lagi. dan digunakan kondisi if n[b]>n[c], dimana jika nilai b lebih besar dari b akan dimulai perintah untuk mengurutkan data yakni: N[0]:=n[c] dan sterusnya. » And; untuk mengakhiri program ean dan pengurutan data. » Stelah data sudah di urutkan maka digunakan: » Case ( a mod 2) of, untuk memberikan kondisi pilihan nilai a(banyaknya data) dibagi 2, dimana moda adalah hasil bagi. » Jika sisa hasil pembagiannya 0 digunakan rumus med:=(n[a div 2]+n[{a div 2)+1])/2. » Jika sisa hasil pembagiannya 1 digunakan rumus med:=n[(a+1)div 2]; » End;, untuk mengakhiri program median. » Setalah selesai maka akan di tampilkan atau dicetak hail outputnya.
» Writeln(‘min data :’,n[1]:0:0);, untuk mencetak nilai min.
» Writeln(‘max data :’,n[a]:0:0);, untuk mencetak nilai max.
» Writeln(‘mean data :’,men:0:2);, untuk mencetak nilai mean dengan dua nilai di belakang koma.
» Writeln(‘median data :’,med:0:2); untuk cetak median dengan dua nilai di belakang koma.
» Gotoxy(), untuk menentukan dibaris mana dan dikolom mana akan dicetak.
» Readln, untuk membaca selurun program untuk dijalankan.
» End. Untuk mengakhiri seluruh program.
HASIL OUTPUTNYA :
Tidak ada komentar:
Posting Komentar