Ebooks Chapter 2 HOW TO SOLVE IT BY COMPUTER 2.7

Algoritma dan Pemrograman Membalikan Angka

program deretfibonacci;
uses wincrt;

var
i,penambah,suku : integer;
deret : array[1..100] as integer;

begin
read(suku);
for i = 1 to suku do
if i = 1 then
begin
deret[i] = 1;
penambah = 0

end

else
begin
deret [i] = deret[i-1] + penambah;
penambah = deret [i-1]
end;

'cetak deret

for i = 1 to suku do
write(deret[i])
end

c++ :

output :