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, sebuah prosedur untuk menghitung jumlah elemen list yang genap?, program pascal menghitung berapa yang ganjil genap, pascal algo bilangan genap, for end bilangan genap, buatlah algoritma flowchart dan translet saurce code pascal untuk menampilkan sederatan bilangan genap dari 10 sampai 30, angka ganjil while do pascal, angka bilangan prima 1-100, algoritma untuk menghitung bilangan genap pascal.

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

You must be logged in to post a comment.