Menu Click to open Menus
Home » Pascal » Pascal: Cara Membuat Deret Bilangan Ganjil dan Genap

Pascal: Cara Membuat Deret Bilangan Ganjil dan Genap

(7370 Views) June 20, 2014 1:15 pm | Published by | No comment

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

This post was written by wisnurat
About

COE of Okeguru.Com. Teacher, Speaker, Writer, Blogger, Education Content Creator and Enterpreneur.

Categorised in:

No comment for Pascal: Cara Membuat Deret Bilangan Ganjil dan Genap

Leave a Reply

Your email address will not be published. Required fields are marked *