По разделам



Задача Proc 45


Описать функцию Power4(x, a, ε) вещественного типа (параметры x,
a, ε — вещественные, |x| < 1; a, ε > 0), находящую приближенное значение
функции (1 + x)
a
:
(1 + x)
a = 1 + a·x + a·(a−1)·x
2
/(2!) + . . . + a·(a−1)·. . .·(a−n+1)·x
n
/(n!) + . . . .
В сумме учитывать все слагаемые, модуль которых больше ε. С помощью
Power4 найти приближенное значение (1 + x)
a для данных x и a при шести
данных ε.

Код (C/C++)

#include <stdio.h>
#include <math.h>

float power4(float x, float a ,float e){
    float power4_n=1,rez=0;
    int i=0;
 
    while (fabs(power4_n)>e){
        rez+=power4_n;
        ++i;
        power4_n*=x*(a-i+1)/i;
    }
    return rez;
}
 
int main(void)
{
    float x,a,e;
    printf("X:");
    scanf("%f", &x);
    printf("A:");
    scanf("%f", &a);
    int i;
    for(i=1;i<=6;++i){
        printf("E: ");
        scanf("%f", &e);
        printf("(1+x)^a: %f\n",power4(x,a,e));
    }
    return 0;
}

Код (Python)

import random
import math

def Power4(x,a,eps):
    if eps <= 0:
        print("Epsilon should be greater than 0")
    y = a*x
    f = 1 + y
    i = 2
    while abs(y) > eps:
        y *= (a-i+1) * x / i
        i += 1
        f += y
        #print(i,":",y,":",f)
    return f

eps = 0.01
a = 10
x = 0.1
for i in range(0, 6):
    #x = -0.5
    #x = 2
    print("( 1 +",x,") ^",a,"=",Power4(x,a,eps),";",(1+x)**a)
    eps /= 10
									

Код (Pascal)

program Proc45;
 
Function Power4(x,a,e:Real):Real;
var
Znak,i:integer;
xi,ni:Real;
TempRez,TempRez2,Rez:Real;
 
begin
xi:=1;
i:=0;
ni:=1;
Znak:=-1;
Rez:=0;
TempRez:=1;
TempRez2:=1;
While (abs(TempRez) > e) do
 begin
 
  Rez:=Rez+TempRez;
  Writeln(i,' ',xi,' ',ni,' ',TempRez,' ',TempRez2,' ',Rez);
  Readln;
 
  inc(i);
  xi:=xi*x;
  ni:=ni*i;
  TempRez2:=TempRez2*(a-i+1);
  TempRez:=TempRez2*xi/ni;
 
 end;
Power4:=Rez;
 
end;
 
var
  X,A,E:real;
  i: integer;
 
begin
   Write('X :');
   Readln(X);
   Write('A :');
   Readln(A);
   for i:=1 to 6 do
    begin
     Write('E :');
     Readln(E);
     Writeln(Power4(X,A,E));
    end;
end.
									




Proc. Абрамян
Proc 1 Просмотров: 14
Proc 2 Просмотров: 14
Proc 3 Просмотров: 12
Proc 4 Просмотров: 12
Proc 5 Просмотров: 15
Proc 6 Просмотров: 10
Proc 7 Просмотров: 14
Proc 8 Просмотров: 13
Proc 9 Просмотров: 13
Proc 10 Просмотров: 12
Proc 11 Просмотров: 14
Proc 12 Просмотров: 11
Proc 13 Просмотров: 12
Proc 14 Просмотров: 15
Proc 15 Просмотров: 13
Proc 16 Просмотров: 11
Proc 17 Просмотров: 23
Proc 18 Просмотров: 13
Proc 19 Просмотров: 14
Proc 20 Просмотров: 11
Proc 21 Просмотров: 13
Proc 22 Просмотров: 12
Proc 23 Просмотров: 11
Proc 24 Просмотров: 13
Proc 25 Просмотров: 10
Proc 26 Просмотров: 12
Proc 27 Просмотров: 16
Proc 28 Просмотров: 18
Proc 29 Просмотров: 24
Proc 30 Просмотров: 25
Proc 31 Просмотров: 13
Proc 32 Просмотров: 13
Proc 33 Просмотров: 12
Proc 34 Просмотров: 19
Proc 35 Просмотров: 10
Proc 36 Просмотров: 12
Proc 37 Просмотров: 12
Proc 38 Просмотров: 11
Proc 39 Просмотров: 13
Proc 40 Просмотров: 10
Proc 41 Просмотров: 14
Proc 42 Просмотров: 12
Proc 43 Просмотров: 12
Proc 44 Просмотров: 13
Proc 45 Просмотров: 14
Proc 46 Просмотров: 10
Proc 47 Просмотров: 12
Proc 48 Просмотров: 14
Proc 49 Просмотров: 11
Proc 50 Просмотров: 13
Proc 51 Просмотров: 20
Proc 52 Просмотров: 11
Proc 53 Просмотров: 13
Proc 54 Просмотров: 11
Proc 55 Просмотров: 14
Proc 56 Просмотров: 10
Proc 57 Просмотров: 11
Proc 58 Просмотров: 11
Proc 59 Просмотров: 9
Proc 60 Просмотров: 12

Комментарии

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