uses crt;
var i,j,k:integer;
begin
clrscr;
for i:=1 to 5 do{mengulang sampai 5 kali}
begin
j:=2*i-1; {nilai j adalah dua kali i dikurangi 1}
write(j); {mencetak nilai j}
k:=k+j; {nilai k adalah k awal ditambah j}
if j<9 then {jika nilai j kurang dari 9 maka mencetak tanda +}
write(‘+’)
else {jika tidak mencetak tanda = diikuti nilai k}
write(‘=’,k);
end;
readln;
end.
B. Tampilan Program
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 5 do {mengulang sampai nilai ke 5}
begin
for j:=1 to i do {mengulang sampai nilai ke i}
write(j,' '); {mencetak nilai j dan spasi kosong}
writeln; {untuk membuat pindah baris/baris kosong}
end;
readln;
end.
C. Tampilan Program
program fibonancy;{judul program}
uses crt;
var a,b,c,d,e:integer;
begin
clrscr;
write('Masukan deret angka: ');readln(a);{menginput banyaknya deret angka}
c:=0;
d:=1;
for b:=0 to a do {mengulang sampai a kali}
begin
if (b=0)or(b=2) then {jika b=0 atau b=2 maka mencetak nilai c dan tanda ,}
write(c,',')
else {jika tidak, menghitung nilai e,c,d, dan mencetak nilai e diikuti tanda ,}
begin
e:=c+d;
c:=d;
d:=e;
write(e,',');
end;
end;
readln;
end.
Selengkapnya....
