Prosedur mencari rata-rata,nilai terkecil dan bunga bank dengan pascal

Assalamualaikum wr...wb
kembali lagi dengan blog krismon bekerenah kali ini admin akan mengshare subuah prosedure yang mencari rata rata,nilai terkecil dan bunga bank dengan program pascal, untuk program pascalnya teman-teman bisa gunakan Charm pascal,Free Pascal,Turbo Pascal dan lain sebagainya. Langsung saja kita ke program yang pertama yaitu   mencari rata rata nilai!
Untuk contoh kasus mencari nilai rata rata sebagai berikut:

•  Tulislah prosedur yang menghasilkan rata-rata sekumpulan datanbilanganbulat yang dibaca secara berulang ulang dari papan ketik (akhir pembacaan adalah 9999). Prosedur memiliki parameter keluaran, yaitu nilai rata-rata yang dihasilkan.

jawab: 

procedure rr(var rerata: real); var b,c,a: integer; begin b := 0; c := 0; repeat write('data : '); read(a); c := c+1; b := a + b; rerata := b/c; until a=9999; writeln('rata-rata :',rerata:0:2); write('dibuat oleh : krismon'); end; var rerata : real; begin rr(rerata); readln; readln; end.

hasil dari codingan diatas lihat di gambar!

•  Dari kasus diatas dapat di cari nilia terkecil yang kita masukan dengan akhir masukan adalah 9999

procedure minimal(var mini: integer); var x,min: integer; begin write('data : '); readln(x); if x<>9999 then begin min := x; write('data : '); read(x); while x<>9999 do begin if X < min then begin min := x; end; write('data : '); read(x); end; writeln('nilai yang terkecil adalah = ',min); write('by Krismon'); readln; end; end; var min: integer; begin minimal(min); readln; end.

hasil codingan diatas lihat pada gambar!

• Misalkan Anda menyimpan uang di bank konvensional sejumlah uang A rupiah pada awal tahun. jika Anda mendapat bunga tahunan sebesar i pesren, maka jumlah uang Anda setelah n tahun adalah? Buatlah prosedur yang menerima masukan A,i,n  dan memberikan keluaran F.

langsung saja kita ke codingannya:

var a: longint; i,n,b: integer; f: real; procedure bungabank(a:longint; i,n: integer; var f: real); begin write('jumlah uang pertama menabung: '); readln(a); write('besar bunga bank dalam satu tahun (dalam persen): '); readln(i); write('lama menabung : '); readln(n); for b:=1 to n do begin f := a + (a*i/100)*n; end; end; begin bungabank(a,i,n,f); writeln('total uang setelah n tahun: ' ,f:0:2); write('by Krismon'); readln; end.

hasil codingan diatas lihat pada gambar!

sekian dari admin

jika mau bertanya silahkan tanya di komentar

Share this post