Составить программу которая будет вычислять значение выражения у = cosx + cosx^2 + cosx^3 + … + cosx^n, используя процедуру вычисляющую x в n степени

Вопрос школьника по предмету Информатика

Составить программу которая будет вычислять значение выражения у = cosx + cosx^2 + cosx^3 + … + cosx^n, используя процедуру вычисляющую x в n степени

Ответ учителя по предмету Информатика

Процедурой:

// Возводит действилельное число x в целую степень n

Procedure Pow(Const X:real; Const n:integer; Var St:real);

Var i:integer;

Begin

St:=1;

For i:= 1 to n do

    St:=St*x;

End;

Var

   x,y,St:real;

   n:integer;

Begin

y:=0;

Write(‘x = ‘);ReadLn(x);

Write(‘n = ‘);ReadLn(n);

For n:= 1 to n do

    Begin

    Pow(x,n,St);

    y:=y+Cos(St);

    End;

WriteLn(‘y = ‘,y);

End.

Функцией:

// Возводит действилельное число x в целую степень n

Function Pow(Const X:real; Const n:integer):real;

Var i:integer;

Begin

result:=1;

For i:= 1 to n do

    result:=result*x;

End;

Var

   x,y:real;

   n:integer;

Begin

y:=0;

Write(‘x = ‘);ReadLn(x);

Write(‘n = ‘);ReadLn(n);

For n:= 1 to n do

    y:=y+Cos(Pow(x,n));

WriteLn(‘y = ‘,y);

End.

Циклом:

Var

   x,y,St:real;

   n:integer;

Begin

y:=0;

Write(‘x = ‘);ReadLn(x);

Write(‘n = ‘);ReadLn(n);

St:=1;

For n:= 1 to n do

    Begin

    St:=St*x;

    y:=y+Cos(St);

    End;

WriteLn(‘y = ‘,y);

End.