Program Bilangan Genap

Dec 26, 2009 3 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, menghitung rata-rata bilangan genap 1-100 dalam pascal, deret bilangan genap pascal, membuat flowchart perulangan mencari bilangan genap, program pascal menghitung rata rata bilangan genap 1-100, Algoritma menghitung deret bilangan genap, pascal menghitung rata-rata bilangan genap dengan pengulangan, urutan bilangan ganjil array di pascal, pascal menghitung rata-rata bilangan genap 1-100.

Pascal
Nu

Tentang Penulis

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!... Butuh diskusi cepat? colek di twitter @nusinau

3 Responses to “Program Bilangan Genap”

  1. eko says:

    kalo deret diatas itu dibuat urutan terbalik gmn ya?makasi

  2. Tanya says:

    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

  3. tia sopyan hidayat says:

    nambah ilmu :D makasih..

    mampir yah.. goo.gl/27Ehmi

Leave a Reply