program deret fibonacci;
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
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
program c++ membalikan angka
Program c++ nya adalah :
0 komentar:
Posting Komentar