Jumat, 19 Oktober 2012

Algoritma dan Pascal Deret Bilangan Ganjil

Algoritma dan Program Pascal untuk menampilkan jumlah deret bilangan ganjil.

Bentuk Algoritma Deret Bilangan Ganjil
Algoritma deretbilanganganjil
{I.S : diinputkan satu bilangan oleh user}
{F.S : menampilkan jumlah deret bilangan ganjil}

Deklarasi:
 x   : integer
 akhir  : integer
 jumlah  : integer
 
Algoritma:
 input(akhir)
 
 jumlah <- 0
 for x <- 1 to akhir do
  if x mod 2 = 1 then
   jumlah <- jumlah+x
  endif
 endfor
 
 output('Jumlah Deret Bilangan Ganjil dari 1 sampai ',x,' = ',jumlah)

Bentuk Pascal Deret Bilangan Ganjil
program deretbilanganganjil;
uses crt;

var
   x      : integer;
   akhir  : integer;
   jumlah : integer;

begin
     write('Masukkan batas akhir angka : '); readln(akhir);
     writeln();

     jumlah := 0;
     for x:=1 to akhir do
     begin
          if x mod 2 = 1 then
             jumlah := jumlah + x;
     end;

     write('Jumlah Deret Bilangan Ganjil dari 1 sampai ',akhir,' = ',jumlah);
     readkey();
end.

Screenshot :
input
output

1 comments:

thanks yaa,, simple,, so easy for me to understand... :)

Posting Komentar