Salam 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