como eu disse.. nao estou conseguindo fazer 2 das questoes que ele deu.. aki vai a segunda.. obrigado desde ja aos que me ajudarem..
-----------------------------------------------------------------------------------
O programa abaixo está calculando o valor de uma função através de uma série numérica. Escreva, utilizando a notação matemática, essa função e sua série .
program Questao1;
uses CRT;
var I : Integer;
Den,Num, Soma, X : Real;
begin
clrscr;
write('Entre com x ');
readln(X);
Num := X*X;
Soma := Num;
Den := 1;
I := 1;
while ((x*x*exp(X)-Soma) >= 0.001) do
begin
Num := Num*X;
Den := Den*(I);
Soma := Soma + Num/Den;
I := I+ 1;
end;
writeln('Resultado :', Soma:2:5);
writeln('Resultado1 :', X*X*exp(X):2:5);
writeln('Termos',I);
repeat until Keypressed;
end.
------------------------------------------------------------------------------------
lucasmatos
Membro Senior
Registrado
303 Mensagens
0 Curtidas