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

236

437

Посмотреть ответы 2

Ответы на вопрос:

ak9512

Информатика

4,6(87 оценок)

Процедурой: // возводит действилельное число 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.