Membuat Program Untuk Mencetak Deret Geometri | Program Pascal
APA ITU PASCAL?
Mungkin ada dari teman-teman yang belum mengetahui Pascal itu apa, jadi pada dasarnya Pascal adalah salah satu bahasa pemrogramman komputer yang sering dipakai untuk belajar algoritma dan pemrogramman bagi pemula terutama di bidang akademis.
Selain itu, mayoritas urusan komputer di Indonesia juga menggunakan bahasa Pascal di tahun pertama bangku kuliah. Nama Pascal diambil dari ahli matematika Prancis abad pertengahan, Blaise Pascal. Bahasa pemrogramman Pascal dikembangkan oleh Niklaus Wirth pada tahun 1970 dan mencapai puncak kepopulerannya di era 1970 hingga awal 1990an(terutama dengan compiler Turbo Pascal
Untuk membuat program mencetak deret geometri dengan bilangan.
Contoh Soal:
4 12 36 ... ... ... ... ... ... ...
Sampai suku dan jumlah deret tersebut.
Code
program DeretGeometri;
uses crt;
var a,b,c,d,e,n : integer;
begin
clrscr;
a := 4;
b := 3;
for c := 1 to 10 do
begin
d := c * a;
write(d,' ');
e := e + d;
end;
writeln;
writeln('jumlah deret = ',e);
readln;
end.
4 12 36 108 324 972 2916 8748 26244 78732
jumlah deret = 118096
Post a Comment