Program Pembantu *Prosedur*

Program Bilangan_GenapGanjil;
uses wincrt;
var
i , jml, pil : integer;
jwb,ya,tidak : char;


Procedure Bilangan_genap;
var
i, n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> '); readln(n);
jml:=0;
  for i:= 1 to n do
  jml:=jml+(2*i);
  write('JADI JUMLAH BILANGAN GENAP TERSEBUT ADALAH -> ',jml);
  end;

Procedure Bilangan_ganjil;
var
i,n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> '); readln(n);
jml:=0;
  for i:= 1 to n do
  jml:=jml+(2*i)-1;
  write('JADI JUMLAH BILANGAN GANJIL TERSEBUT ADALAH -> ',jml);
  end;

Begin

repeat
writeln(' PILIHAN');
writeln(' 1. GENAP ');
writeln(' 2. GANJIL ');
writeln(' PILIH SALAH SATU MENU DIBAWAH INI');readln(pil);
if pil=1 then
bilangan_genap
else
if pil=2 then
bilangan_ganjil
else
exit;
readln;
writeln(' ingin berhenti? y/t'); readln(jwb);

until jwb='y';
end.

Categories: DDPK