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

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

My Alakadabra

12 November 2019 : Thanks, God.

Blogger Perempuan