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 :
1 comments:
thanks yaa,, simple,, so easy for me to understand... :)
Posting Komentar