kondisi pada pascal menentukan bilangan ganjil/genap

kondisi pascal menentukan bilangan ganjil/genap pada pascal

 

uses crt;

var  j,k,l,m,n :integer;

procedure input

begin

write (‘inpu bilangan : ‘);

readln (n) ;

end;

function proses (nilai  :integer) :integer;

-begin

1I :=0

for i :=1to nilai do

begin

if nilai mod 1=0 then

begin

1 := 1+1 ;

end;

end;

proses :=1;

end;

begin

clrscr;

input;

output(n);

readln;end.

 

 

-buka pascal lalu tulis

-uses crt;

menunjukan bahwa program tersebut mengunakan unit yang ada di library seperti judul program yang diikuti file lain

-var  j,k,l,m,n :integer;

tipe data yang digunakan sebagi hasil ouput adalah sesuai yang kita input divar,karna VAR  J,K,L,M,N adalah huruf dan bukan penjumblahan maka kita menggunakan variabel INTEGER.

funsgsi dari ; menanndakan bahwa step program tersebut masih akan terus berlanjut

-procedure input

untuk memanipulasi /edit data yang dimaksukan

-begin

untuk memulai  statment selanjutnya

-write (‘inpu bilangan : ‘);

readln (n) ;

end;

menunjukan  bahwa saat diruning ia akan menampilakn data / nilai yang kita input writeln, dan readln berguna untuk membaca nilai/data yang kita input saat diruuning dan akan menyimpannya kevariabel yang kita gunakan tadi ,end; akan menyelsaikan sattment tadi namun bukan untuk keseluruhan statment

-function proses (nilai  :integer) :integer;

kegiatan untuk menghasilakn nilai khusus yang disimpan dikomputer yanng dapat kita pangil dalam suatu statmen (ada statment didalam statment)jadi varuabel yang kita gunakn diawal adalah integer maka didalamnya kita akan mengunakan integer juga

-begin

1I :=0

for i :=1to nilai do

begin

if nilai mod 1=0 then

begin

1 := 1+1 ;

end;

end;

proses :=1;

end;

 

menunjukan bahwa iaakan memulai statmen dari function bila i bernila 1 lalau lakukan dan mulai 1+1=0 maka hasil bagi nilai 1 = 0 akan 1 lalu proses 1 dan statment selesai

-procedure output (nilai  :integer) ;

begin

if proses (nilai) = 2 then

write (nilai, ‘adalah bilangan prima ‘)

else

write(nilai , ‘adalah bukan bilangan prima ‘);

end;

menunjukan bahwa procedure tersebut dapat memanipulasi/edit data yang dioutput yang bernilai integer

 

dan memulai proses bila nilai yang diinput saat runing adalah 2 maka akan menghasilakan bilangan prima namun bila tidak menghasilkan 2 akan menghasilan bukan prima dan sattment tersebuta selesai untuk function tersebut.

-begin

clrscr;

input;

output(n);

readln;end.

menunjukan untuk memulai program yang digunakan untuk menghapus input saat run dan mengoutput hasil yang  dimasukan dann menanpilaknnya dimonitor dan end. mengakiri segala statment.

 

 

 

                     

 

 

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s