Решаем задачи Абрамян на Паскале. For33

For33. Дано целое число $$N$$ ($$> 1$$). Последовательность чисел Фибоначчи $$F_K$$ (целого типа) определяется следующим образом: $$F_1 = 1, F_2 = 1, F_K = F_{K-2} + F_{K-1}, K = 3, 4, …$$ . Вывести элементы $$F_1, F_2, …, F_N$$.

Решение:

program For33;
var
  Fk,Fk1,Fk2 :Real;
  K, i :Integer;
begin
  Write('Введите K: ');
  Readln(K);
  Writeln('Значения функции:');
  Writeln('F(1)=1');
  Writeln('F(2)=1');
  Fk1:=1;
  Fk2:=1;
  For i:=3  to K do
  begin
   Fk:=Fk2+Fk1;
   Writeln('F(',i,')=',Fk);
   Fk2:=Fk1;
   Fk1:=Fk;
  end;
end.

program For33;

var

Fk,Fk1,Fk2 :Real;

K, i :Integer;

begin

Write('Введите K: ');

Readln(K);

Writeln('Значения функции:');

Writeln('F(1)=1');

Writeln('F(2)=1');

Fk1:=1;

Fk2:=1;

For i:=3 to K do

begin

Fk:=Fk2+Fk1;

Writeln('F(',i,')=',Fk);

Fk2:=Fk1;

Fk1:=Fk;

end;

end.

Решение без использования дополнительной переменной:

program For33;
var
  F1,F2 :Real;
  K, i :Integer;
begin
  Write('Введите K: ');
  Readln(K);
  Writeln('Значения функции:');
  Writeln('F(1)=1');
  Writeln('F(2)=1');
  F1:=1;
  F2:=1;
  For i:=3  to K do
   begin
    F1:=F1+F2;
    F2:=F1-F2;
    Writeln('F(',i,')=',F1);
   end;
end.

program For33;

var

F1,F2 :Real;

K, i :Integer;

begin

Write('Введите K: ');

Readln(K);

Writeln('Значения функции:');

Writeln('F(1)=1');

Writeln('F(2)=1');

F1:=1;

F2:=1;

For i:=3 to K do

begin

F1:=F1+F2;

F2:=F1-F2;

Writeln('F(',i,')=',F1);

end;

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии 3

olegst1975

08.12.2015 в 19:22

Без использования третьей переменной:

[crayon-6741037563a24249215500 inline="true" ] for i:=3 to n do f1:=f1+f2; f2:=f1-f2; write(f1); end;

1
2
3
4
5
6

[crayon-6741037563a24249215500 inline="true" ]
for i:=3 to n do
    f1:=f1+f2;
    f2:=f1-f2;
    write(f1);
    end;

[/crayon]

Ответить
- Anton
  
  09.12.2015 в 08:35
  
  Добавил данное решение.
  
  Ответить
Bronislav

28.01.2019 в 01:39

program For33;//pabc.net //uses PT4; begin //Task('For33'); var N := ReadInteger(); SeqGen(N, 1, 1, (x, y)-> x + y).Println end.

1
2
3
4
5
6
7
8
9

program For33;//pabc.net

//uses PT4;

begin
  //Task('For33');
  var N := ReadInteger();
  SeqGen(N, 1, 1, (x, y)-> x + y).Println
end.

Ответить

Решаем задачи Абрамян на Паскале. For33

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ