Pemrograman Pascal : Mengenal Nilai Genap dengan Array

Nilai Genap --- Membuat program untuk mengenali nilai genap dengan hanya memasukkan jumlah nilai genap yang ingin ditampilkan, misalkan ingin menampilkan 3 nilai genap, hasil runningnya 0 2 4. Seperti itu program yang akan kita buat dengan Pascal. Langsung saja ke tampilan hasil running.

Hasil Running

Script code nya sebagai berikut.

Program total_genap;

Uses wincrt;

Var

A,b,jumlah:integer;

Procedure proses(n,a,b:integer);

Var  

Genap:array[1..100] of integer;

Tot: integer;

Begin

While a<>n do

Begin

Inc(a);

Genap[a]:=b;

B:=b+2;

End;

Writeln;

For b:=1 to n do

Write(genap[b],' ');

Writeln;

Tot:=0;

For a:=1 to n do

Tot:=tot+genap[a];

Writeln('Total Jumlah = ',tot);

End;

Begin

writeln('           Menghitung Bilangan Genap');

writeln('================================================');

Write('Jumlah bilangan genap : ');readln(jumlah);

Proses(jumlah,a,b);

End.

Program ini akan membantu kita dalam mencari nilai genap dengan menghitung jumlah nilai genap yang akan dibuat pada suatu program. 

Sekian. Wassalam

Bagikan ke:

Facebook Google+ Twitter

• Pascal : Membuat Program Menghitung detik menggunakan DIV MOD
• Pascal : Program Konversi Suhu menggunakan Case
• Mempelajari Algoritma Pemrograman Berorientasi Objek dikenal OOP
• Web : Cara mengatur Paragraf html code menjadi lebih teratur
• HTML : Belajar HTML Memasukkan link Bahasa Pemrograman WEB
• Belajar HTML Pemrograman Web
• Program Pascal : Belajar Coding Dasar Membuat Program Pascal Hello
• Pemrograman Pascal : Contoh Coding Pemrograman Dasar Pascal Perulangan While Do
• Pascal : Cara membuat Program Generator Tulisan Terbalik
• Aplikasi Free Pascal Download Gratis disertai Cara Download dan Cara Instal Lengkap
• Program Pascal : Cara Membuat Program Mencari Nilai Luas Trapesium
• Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan
• Program Pascal : Contoh program pascal menggunakan Array
• Mempelajari Array Penyimpanan data dalam Pemrograman dunia IT
• Program Pascal : Membuat program untuk menghitung Nilai berpangkat dengan Procedure
• Pascal : Contoh Program menggunakan Perulangan For To Do, DIV dan MOD
• Program Pascal : Kalkulator Mencari Nilai rata-rata contoh kode Procedure dan Array
• Pascal : Menentukan Tahun Kabisat yang mengirimkan sebuah Boolean dengan Function
• Pemrograman Pascal : Mengenal Nilai Genap dengan Array
• Pascal : Membuat Perhitungan Gaji dengan Turbo Pascal