divide into the primera and zero-thing

Jrengg Jreenggg.....

kali ini ruly mau ngeshare tugas protek pertama ruly di semester 2 ini (dari pada ini blog ndak ada isinya T_T).

tugas yang diberikan oleh pak anifudin yang rajin adalah : memisahkan  angka yang di
inputkan user menjadi genap dan ganjil menggunakan array...

contoh :

user menginputkan : 1,2,3,4,5,6

maka tugas kita adalah memisahkan angka yang di inputkan user tersebut menjadi genap dan ganjil, sehingga menjadi 

genap : 2,4,6

ganjil : 1,3,5

nah, selanjutnya ruly langsung aja ngeshare codingnya :P

program tugaslarik;
uses crt;
type larik = array [1..100] of integer;
var
asal,genap,ganjil: larik;
n:integer;
i:integer;

procedure pecah(asal:larik);
var j,k:integer;
begin
j:=1;
k:=1;
for i:= 1 to n do
begin
if asal[i] mod 2=0 then
begin
genap[j]:=asal[i];
j:=j+1
end
ELSE
begin
ganjil[k]:=asal[i];
k:=k+1;
end;
end;
i:=1;
j:=j-1;
k:=k-1;
write('Genap = ');
for i:=1 to j do
begin
write('[',genap[i],'] ');
end;
writeln('');
write('Ganjil = ');
for i:= 1 to k do
write('[',ganjil[i],'] ');
end;


//program utama//
begin
clrscr;
write('masukkan jumlah bilangan =');readln(n);
for i:= 1 to n do
begin
write('masukkan data ke ',i,' =');readln(asal[i]);
end;
write('nilai yang diinputkan adalah=');
for i:= 1 to n do
begin
write(' [',asal[i],']');
end;
writeln('');
pecah(asal);


readln;
end.
//MADE BY : RUST a.k.a ruly

Hasil Run Program

===============================================================
kode ini bebas untuk di copy, tapi dengan syarat :
1. NDAK BOLEH MERUBAH APAPUN. <--- yang ini serius
2. sehat lahir batin
3. WNI dan WNL
4. berperilakuan baik dibuktikan dengan surat dari kepolisian.
5. dengan senang hati mau meneraktir saya semangkok bakso...
6. menaati smua peraturan di atas. :P

gimana gampang kan syaratnya.


satu hal lagi,

ditunggu keritikna dari temen" . Tq whhwhwhwh

kredit :

ya saya sendiri :D