Membuat Program Pascal untuk Barisan Fibonacci 2

program fibonaci2;
uses wincrt;
var
x,y,z,i,n:longint;
begin
x:=0; {nilai awal fibonaci = 0}
y:=1; {nilai kedua fibonaci = 1}
write(' Masukkan banyaknya bilangan fibonaci = ');readln(n); {menginputkan banyaknya bilangan fibonaci}
writeln(x); {menampilkan nilai awal fibonaci};
writeln(y); {menampilkan nilai kedua fibonaci}
for i:=1 to n-2 do {mengulang sampai n-2 karena 2 bilangan awal fibonaci telah ditampilkan}
begin
z:=x+y;{z merupakan penjumlah 2 bilangan sebelumnya yaitu x dan y}
x:=y; {nilai x kemudian diubah menjadi y}
y:=z; {nilai y kemudian diubah menjadi z(hasil penjumlah sebelumnya)}
writeln(z); {menampilkan nilai z}
end;
readln;
end.

Lihat juga edisi pertama.

Membuat Program Pascal untuk Barisan Fibonacci 1(Menggunakan Array)

program fibonaci1;
uses wincrt;
var
x:array[0..100]of longint;
i,n:integer;
begin
x[1]:=1;
x[0]:=0;
write(' Masukkan banyaknya bilangan fibonaci = ');readln(n);{meginputkan banyaknya bilangan}
for i:=1 to n do {mengulang sampai n kali}
begin
x[i+1]:=x[i]+x[i-1]; {nilai x berikutnya adalah hasil penjumlahan 2 nilai sebelumnya}
writeln(x[i-1]); {menampilkan nilai-nilai x}
end;
readln;
end.

Lihat juga edisi kedua.

Membuat Program untuk Menampilkan Bilangan Prima

program bil_prima;
uses wincrt;
var
i,n,j: integer;
c: boolean;
begin
write( ' Masukkan batas akhir bilangan prima = ');readln(n);
for i := 2 to n do
begin
c:= true;
for j := 2 to i-1 do
begin
if (i mod j) = 0 then
begin
c:= false;
end;
end;
if c=true then
write((i):4);
end;
readln;
end.