-
Lenguaje
Pascal
-
Descripción
Muestra N términos de la sucesión Fibonacci
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program fibonacci;
uses crt;
var i, n : integer;
var f1, f2, f3 : longint;
var tecla : char;
begin
f1 := 0;
f2 := 1;
write ('Ingrese la cantidad de t'#130'rminos de la serie Fibonacci: ');
readln (n);
writeln (#10#13'f0 = 0');
for i := 0 to n - 1 do
begin
writeln ('f', i+1, ' = ', f2);
f3 := f1 + f2;
f1 := f2;
f2 := f3;
end;
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.
uses crt;
var i, n : integer;
var f1, f2, f3 : longint;
var tecla : char;
begin
f1 := 0;
f2 := 1;
write ('Ingrese la cantidad de t'#130'rminos de la serie Fibonacci: ');
readln (n);
writeln (#10#13'f0 = 0');
for i := 0 to n - 1 do
begin
writeln ('f', i+1, ' = ', f2);
f3 := f1 + f2;
f1 := f2;
f2 := f3;
end;
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.