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