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.
