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 :

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, free pascal untuk membuat nomor ganjil dan genap, flowchart dan program pascal untuk mencetak deret bilangan prima menggunakan function, flowchard repeat until untuk menampilkan bulangan genap, contoh program repeat nilai genap, contoh paacal while do dari 100 1 denga bilangan genap, cara menampilkan angka dari 2 - 10 hanya bilangan genap dengan menggunakan while do pada program pascal, repeat until bilangan genap 1 sampai 10, buatlah sebuah program untuk menampilkan bilangan ganjil antara 1:100 dengan menggunakan struktur while.

Pascal
Nu

Tentang Penulis

Ayah tujuh anak, Mualaf, Golput

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