Program Bilangan Genap
Dec 26, 2009 3 Comments
Sesuai dengan pertanyaan mas/mbak takirey tentang bagaimana menyimpan bilangan genap ke dalam suatu array sebanyak input user.
Kira-kira begini penyelesaiannya :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | uses wincrt; var genap : array[1..100] of integer; a, b, jum : integer; begin a := 0; b := 2; write('Jumlah bilangan genap : ');readln(jum); while a <> jum do begin inc(a); genap[a] := b; b := b + 2; end; writeln; writeln('Hasil yang disimpan di array : '); for b := 1 to jum do writeln('Bilangan genap ke-',b,' : ',genap[b]); end. |
kalo deret diatas itu dibuat urutan terbalik gmn ya?makasi
Mas bagaimana kalau caranya membuat jumlah bilangan prima dan non prima.
Output nya :
masukan jumlah:4
———————–
prima non prima
1 4
2 6
———————–
jmlh prima:2
jml nonprima:2
nambah ilmu :D makasih..
mampir yah.. goo.gl/27Ehmi