Programação c.

7)Leia x
Leia n i ← 1 x ← 1 fat ← 1 s ← 0
Enquanto i ≤ n faça e ← x ^i fat ← fat*i s ← s+(e / fat) i ← i+1; fim de enquanto
Escreva s
Fim.

Saída:

Entre com x: 2
Entre com n: 5

exponencial: 2 fatorial: 1 exponencial: 4 fatorial: 2 exponencial: 8 fatorial: 6 exponencial: 16 fatorial: 24 exponencial: 32 fatorial: 120

Expressão: 6.2667
-----------

8)
Leia n
Leia x i ← 1 k ← 1 soma ← 0
Enquanto i ≤ n faça e ← x ^i fat ← fat*i s ← s+(e / fat)
Se resto de divisão de k por 2 igua a 0 faça s ← s*(-1) fim de se i ← i+2 k ← k+1 soma ← soma + s
Fim de enquanto
Escreva soma

Saída:
Entre como valor de n: 7
Entre como valor de x: 1.5726

Somatório = 0.6909

--------

9)

Entrada | N | Fp | Cont | Saída | 168 | 168 | 2 | 0 | 2 - 1 | | 84 | 3 | 1 | 3 - 1 | | 28 | 4 | 0 | 4 - 1 | | 7 | 5 | 1 | 7 - 1 | | 1 | 6 | 0 | | | | 7 | 1 | | | | 8 | 0 | | | | | 1 | |

10)

program SetimaQuestao;

uses crt; var i,x,n,fat: integer; var p,s,e:real;

BEGIN

writeln; write('Entre com x: '); readln(x); write('Entre com n: '); readln(n); writeln; i:=1; fat:=1; s:=0; while i<=n do begin e := exp ( i * ln (x) ); write('exponencial: ',e:0:0); fat:=fat*i;writeln(' fatorial: ',fat); s:=s+(e / fat); i:=i+1; end; writeln; writeln('Expressão: ',s:4:4);

END.

Program Oitava;

uses crt; var n, i, k:integer; var x, fat,e,s,soma:real;

BEGIN write('Entre como valor de n: '); readln (n); write('Entre como valor de x: '); readln (x); i:=1; k:=1; fat:=1; soma:=0; while i<=n do begin e:= exp( i * ln(x)); fat := fat * i; s:= e/fat; if (k mod 2)=0 then s:= s*(-1); soma:= soma+s; k:=k+1; i:=i+2; end; writeln; writeln('sin(x) = ',soma:4:4);