Program Bilangan Genap

Dec 26, 2009 2 Comments by

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, 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:

  1. Flowchart Membaca Bilangan Terkecil dari Tiga Bilangan
  2. STRUKTUR IF TERSARANG
  3. Program dengan Array of String
  4. Program Bilangan Prima dengan Menggunakan Bantuan Array
  5. Erika Array
  6. Program Input Nilai Mahasiswa
  7. Program Banyak Huruf dalam Kalimat
  8. Pandapotan Array
  9. ARRAY DAN RECORD
  10. Program Penilaian Mahasiswa
Pascal

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”

  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

Leave a Reply