По разделам



Задача While 29


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

Код (C/C++)

#include <iostream>
#include <cmath>

using namespace std;

int main()
{
   float e;
   cout << "e:";
   cin >> e;
   float ak1=0,ak=2;
   int k=1;
   while (abs(ak-ak1)>=e) {
       ++k;
       ak1=ak;
       ak=2+1/ak1;
   }
   cout << "K= " << k << ", A(k-1)=" << ak1 << ", A(k)=" << ak;
   return 0;
}

Код (Python)

import random

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

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

Код (Pascal)

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




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

Комментарии

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