По разделам



Задача While 28


Дано вещественное число ε (> 0). Последовательность вещественных
чисел AK определяется следующим образом:
A1 = 2, AK = 2 + 1/AK−1, K = 2, 3, . . . .
Найти первый из номеров K, для которых выполняется условие
|AK − AK−1| < ε, и вывести этот номер, а также числа AK−1 и AK.

Код (C/C++)

#include <stdio.h>
int main(void)
{
   int n;
   printf("N:");
   scanf("%i",&n);
   int f1=1,f2=1,f=0,k=2;
 
   while (f<n){
       ++k;
       f=f2+f1;
       f2=f1;
       f1=f;
   }
   printf("K:%i\n",k);
   return 0;
}

Код (Python)

import random

N = random.randrange(1,15)
eps = 1/10**N
print("N = ",N)
print("eps = ",eps)

A1 = 2
print(1,":",A1)
A2 = 2 + 1/A1
k = 2
print(2,":",A2)
while abs(A2 - A1) >= eps:
    A1 = A2
    A2 = 2 + 1/A2
    k += 1
    print(k,":",A2)
print(k,":",A1,":",A2)
									

Код (Pascal)

program While28;
var
  k:Integer;
  Ak1,Ak,e:Real;
begin
  Write('Введите e: ');
  Readln(e);
  Ak1:=0;
  Ak:=2;
  K:=1;
  while Abs(Ak-Ak1) >= e do
   begin
    Inc(k,1);
    Ak1:=Ak;
    Ak:=2+1/Ak1;
   end;
  Writeln('k=', k, ', A(k-1)=',Ak,', A(k)=',Ak1);
end.
									




While. Абрамян
While 1 Просмотров: 20
While 2 Просмотров: 15
While 3 Просмотров: 12
While 4 Просмотров: 20
While 5 Просмотров: 14
While 6 Просмотров: 14
While 7 Просмотров: 10
While 8 Просмотров: 9
While 9 Просмотров: 12
While 10 Просмотров: 13
While 11 Просмотров: 16
While 12 Просмотров: 43
While 13 Просмотров: 9
While 14 Просмотров: 14
While 15 Просмотров: 15
While 16 Просмотров: 16
While 17 Просмотров: 12
While 18 Просмотров: 15
While 19 Просмотров: 12
While 20 Просмотров: 22
While 21 Просмотров: 17
While 22 Просмотров: 15
While 23 Просмотров: 17
While 24 Просмотров: 12
While 25 Просмотров: 12
While 26 Просмотров: 9
While 27 Просмотров: 10
While 28 Просмотров: 11
While 29 Просмотров: 11
While 30 Просмотров: 10

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться