Membuat Daftar Nilai dengan Array
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::
Finished!!! Okay, semoga bisa membantu, ya...
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::
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]
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...
5 Comments
Hehehe...susah mbak
BalasHapusaku bingung..
kereen... ^______^ walalupun rada engga ngerti..^_________^ semangat vibi..
BalasHapusDoh.. kayagnya ribet ya??
BalasHapusdi do'ain dapet nilainya yang gede..
amiiinnn..
Nggak ngerti soalnya..
Hhheee...
pusing saya...hehe...
BalasHapus@Itik::
BalasHapusBener, 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...
Terimakasih atas kunjungan dan segala apresiasinya. Silakan tinggalkan pesan di kolom komentar jika memang ada yang perlu didiskusikan ^ ^
Jika memerlukan informasi urgent, boleh sapa saya di email karena saya cukup aktif pula di sana :).