Coding sederhana ,1

Halo bloger :D, lama juga ya saya absen berbagi postingan. Hari ini ane mau berbagi coding Algoritma  sederhana yang  saya kerjakan sendiri ,tentunya dibantu modul. Lebih tepatnya ini hasil dari Tugas kampus yang diberikan dari Dosen :D. Daripada mubazir di file Lappy ya mending postingin disini biar bisa berbagi :D. oke jadi untuk yang pertama , yang masih dasar . yaitu coding pascal untuk  ‘’MENGHITUNG RATA_RATA BILANGAN’’. Dsini soal yang diberikan adalah menghitung rata-rata 5 bilangan.

uses crt ;

var

a,b,c,d,e,jumlah : integer;

rata_rata : real;

begin

clrscr;

textcolor(2);

writeln(‘MENGHITUNG RATA-RATA 5 BILANGAN’);

writeln(‘*****************************************’);

textcolor(8);

write(‘bilangan a : ‘);readln(a);

write(‘bilangan b : ‘);readln(b);

write(‘bilangan c : ‘);readln(c);

write(‘bilangan d : ‘);readln(d);

write(‘bilangan e : ‘);readln(e);

jumlah:=a+b+c+d+e;

writeln(‘jumlah:’,jumlah);

readln;

rata_rata:=jumlah/5;

writeln(‘rata-rata:’,rata_rata :4:0);

readln;

end.

dari coding di atas, maka akan menghasilkan output seperti ini: 
 


Cao ^^/