procedure jumlah dan rata - rata deret bilangan genap

arif zainurrohman

program arifprosedurderetjumlahdanratagenap;
uses wincrt;
var
y,angka,x,hasil,jum:integer;
procedure jumlah;
begin
     jum:=0;
     y:=2;
     for x := 1 to angka do
     begin
          write(y,' ');
          y:=y+2    ;
          jum:=jum+angka;
     end;
end;
procedure rata;
begin
     begin
     hasil:=0;
     for x := 1 to angka do
     begin
          hasil := hasil+x;
     end;
     end;
end;
begin
write ('Masukan banyaknya bilangan dalam deret yang akan dihitung    : '); readln (angka);
writeln ('deret genap :');
jumlah;
rata;
writeln;
writeln ('jumlah : ',jum+angka);
writeln ('rata   : ',(hasil/angka)*2:0:0);
end.


Kota Pempek , 30 Maret 2012

akhukum fillah arif zainurrohman