3адана программа вычисления n-го элемента из ряда чисел Фибоначчи (n>2) согласно определению ряда: F1=1, F2=2, Fi=Fi-1+Fi-2, i = 3, 4,… Выполните тестирование программы при различных значениях N.
Program Numbers_Fib;
Var K, N, A, B, C: integer;
Begin
Writeln (‘введите номер N искомого числа Фибоначчи’);
Readln (N);
A:=1; {первый элемент}
B:=2; {второй элемент}
For k:=3 to N do { цикл выполняется для получения элементов с 3-го по N-ый}
begin
C:=B+A; {новый элемент, с номером k}
A:=B; {элемент с номером k-1 становится k-2-м элементом }
B:=C; {элемент с номером k становится k-1-м элементом }
End;
Writeln (N,‘- ый элемент последовательности равен’, C);
End.
Где ошибка?
Ответы
Ответ дал:
0
Program Numbers_Fib;
Var K, N, A, B, C: integer;
Begin
Writeln {введите номер N искомого числа Фибоначчи};
Readln (N);
A:=1; {первый элемент}
B:=2; {второй элемент}
For k:=3 to N do { цикл выполняется для получения элементов с 3-го по N-ый}
begin
C:=B+A; {новый элемент, с номером k}
A:=B; {элемент с номером k-1 становится k-2-м элементом }
B:=C; {элемент с номером k становится k-1-м элементом }
End;
Writeln {N,‘- ый элемент последовательности равен’, C};
End.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад