Membuat Daftar Nilai dengan Array

By Friday, April 23, 2010

     Assalamu'alaikum...
     Beberapa waktu yang lalu, di sekolah, aku dapet tugas PASCAL. Ribetttt!!!! HEm, tapi, untunglah setelah kuutak atik, nemu juga jawabannya.
     Begini output yang diinginkan oleh Mr. Kuntadi::



     Nah, ini dia formulanya.. (*hehe*).


program datanilai_array;
uses crt;
const
max_elemen=50;
var
T:boolean;
b,i,jmlnilai,rata2:integer;
jwb:char;
min,max:real;
dafnilai:array[1..max_elemen] of integer;
begin
T:=false;
repeat
clrscr;
gotoxy(8,8);textcolor(green);writeln('====================================================');
gotoxy(8,9);textcolor(yellow);writeln(' MENGOLAH DATA NILAI dengan ARRAY');
gotoxy(8,10);textcolor(green);writeln('====================================================');
gotoxy(8,11);textcolor(white);write('JUMLAH SISWA:');readln(b);
i:=1;jmlnilai:=0;
for i:=1 to b do
begin
gotoxy(8,11+i);write('Data ke-',i,' :');readln(dafnilai[i]);
jmlnilai:=jmlnilai+dafnilai[i];
end;
gotoxy(8,12+b);write('JUMLAH NILAI:',jmlnilai);
gotoxy(39,11);write('RERATA NILAI :',jmlnilai/b:0:2);


begin
max:=dafnilai[1];
min:=dafnilai[1];
for i:=2 to b do
if dafnilai[i]>max then max:=dafnilai[i]
else if dafnilai[i]


     Finished!!! Okay, semoga bisa membantu, ya...




You Might Also Like

5 Comments

  1. Hehehe...susah mbak
    aku bingung..

    ReplyDelete
  2. kereen... ^______^ walalupun rada engga ngerti..^_________^ semangat vibi..

    ReplyDelete
  3. Doh.. kayagnya ribet ya??
    di do'ain dapet nilainya yang gede..
    amiiinnn..

    Nggak ngerti soalnya..
    Hhheee...

    ReplyDelete
  4. @Itik::
    Bener, susah banged, Tik!!! Di kelasQ jarang yang berhasil (*termasuk saia*), tapi gurune minimal kasih 7 nilainya, jadi masih ada harapan dapet bagus. Hehe.... ^_^

    @Elok::
    Keren?!? Maksudnya saia yang keren ato programnya,Kak???Kwkwk... >_<

    @Cix::
    Amin ^_^... Dapet 85 aja, Q langsung sujud syukur, Cix. Doh,kapan ya dapet segitu??? Kwkwk,,,

    @Siroel::
    Pusink??? Minum aja Neuralgin, Roel.. Hoho...

    ReplyDelete

Pembaca yang budiman, kindly gimme apapun pendapat atau komentar kamu tentang artikel saya. Tulisan ini tanpa komentar kamu, kayak mahasiswa akhir tanpa skripsi. Ada yang kurang gitu, yak.

Terimakasih atas kunjungan dan segala apresiasinya. Selamat berkarya :)