Program Bilangan Genap
Dec 26, 2009 2 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. |
Kata Kunci
bilangan genap, program pascal bilangan genap, program bilangan genap, bilangan genap pascal, deret bilangan prima pascal, rumus mencari bilangan genap dalam pascal, contoh flowchart program deret bilangan pascal, program bilangan deret genap dengan pascal, pascal matriks deret, pdf mencari bilangan genap dengan pascal.
Related posts:
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