Program Bilangan Genap

Dec 26, 2009 2 Comments by Nu

Sesuai dengan pertanyaan mas/mbak takirey tentang bagaimana menyimpan bilangan genap ke dalam suatu array sebanyak input user.

Kira-kira begini penyelesaiannya :

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, input, bilangan genap pascal, program bilangan genap, program bilangan pascal, program pascal mencari bilangan genap, pascal bilangan genap, contoh pascal bilangan genap, DERET BILANGAN GENAP pascal.

Related posts:

Pascal

Nu

About the author

Mantan Tentor SD dan SMP, mantan Guru SMA, mantan Dosen PT, mantan IT Helper, mantan Programmer, mantan IT Analyst.... Sekarang... Berusaha jadi pengangguran, masih muda, masih belajar.... Jangan panggil saya pak!

2 Responses to “Program Bilangan Genap”

Reply

eko says:
22 April 2010 at 13:41

kalo deret diatas itu dibuat urutan terbalik gmn ya?makasi
Reply

Tanya says:
10 December 2010 at 05:37

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

Leave a Reply