Array 1 Dimensi
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...
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.
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....
1 Comments
wah vb pinter nie soal array ^_^
BalasHapusTerimakasih 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 :).