Array 1 Dimensi

By Monday, May 03, 2010

     Assalamu'alaikum...
     Duuh, kangen ni sama BLOG "biasa" ene.. Hehe...
     Oke, deuh, di tulisan ane kali ini, lagi-lagi ane mo sharing PASCAL. Lebih tepatnya tentang program array (sekelompok data sejenis yang disimpan ke dalam variabel dengan nama yang sama, dengan memberi indeks pada variabel untuk membedakan antara yang satu dengan yang lain).
     Jadi output yang diminta sama Mr. Kuntadi tuh kayak gene,Sobt!!!
....




Dan ini dia "rumus"-nya...



program array;
uses crt;
var
siswa:array[1..50] of integer;
i,n,j,jml,lb,eb,tb,db,dll:integer;
T:boolean;
jwb:char;
begin
T:=false;
repeat
clrscr;
lb:=0;
eb:=0;
tb:=0;
db:=0;
dll:=0;
gotoxy(8,7);textcolor(yellow);write(' www.celotehvb.co.cc');
textcolor(white);
gotoxy(8,8);write('===============================================');
gotoxy(8,9); write(' DATA UMUR SISWA');
gotoxy(8,10);write('===============================================');
gotoxy(8,11);write('Jumlah Siswa:');readln(jml);
gotoxy(8,12);write('Data Umur Siswa:');
for i:=1 to jml do
begin
gotoxy(25+i*5,12);readln(siswa[i]);
case siswa[i] of
15:lb:=lb+1;
16:eb:=eb+1;
17:tb:=tb+1;
18:db:=db+1;
else
dll:=dll+1;
end
end;
gotoxy(8,13);writeln('Umur 15 tahun:',lb,' Umur 17 tahun:',tb);
gotoxy(8,14);writeln('Umur 16 tahun:',eb,' Umur 18 tahun:',db);
gotoxy(8,15);writeln('Umur Lainnya :',dll);
gotoxy(8,16);write('===========');textcolor(yellow);write(' www.celotehvb.co.cc ');textcolor(white);write('===========');
gotoxy(8,17);textcolor(white);write('Ulangi Lagi [Y/T]?');readln(jwb);
until upcase(jwb)='T';
end.


Oke, deuh... Sekian tulisan kali ini, yua... Moga bermanfaat... >_< 
Ups, jangan lupa tulis komen.nya,,
Wassalam....

You Might Also Like

1 Comments

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 :)