Pascal: Cara Membuat Deret Bilangan Ganjil dan Genap
(7370 Views) June 20, 2014 1:15 pm | Published by wisnurat | No commentSalam semangat sahabat CMW. Kali ini saya coba sharing cara membuat aplikasi program pascal untuk menentukan deret bilangan ganjil dan genap yang ke-x. Artinya “x” adalah urutan bilangan yang ke sekian.
Kalau diamati pada persamaan deret aritmatika:
Un = a + (n-1)b
Untuk menentukan deret ganjil dan genap ditentukan oleh nilai “a”, yaitu nilai awal bilangan pertama.
Bilangan ganjil : 1, 3, 5, 7, dst… jadi nilai a = 1
Biangan ganjil : 2, 4, 6, 8, dst… jadi nilai a = 2
Berikut adalah listing program pascal selengkapnya…
program cari_deret;
uses crt;
var Un, a, b, n : integer;
begin
clrscr;
writeln(‘Ketik 1 untuk deret ganjil’);
writeln(‘Ketik 2 untuk deret bilangan genap’);
write(‘: ‘); readln(a);
writeln(”);
write(‘Urutan bilangan yang dicari : ‘);readln(n);
b:=2;
Un:=a+(n-1)*b;
writeln(‘Bilangan ke-’,n,’ adalah ‘,Un);
readln;
end.
Silahkan dicoba
Baca juga
About wisnurat
COE of Okeguru.Com. Teacher, Speaker, Writer, Blogger, Education Content Creator and Enterpreneur.
No comment for Pascal: Cara Membuat Deret Bilangan Ganjil dan Genap