Lista de Exercicios

9. O COSENO de um angulo pode ser calculado pela série:

Onde X é medido em radianos.Construir um programa para calcular o COSENO de um angulo.

program P9;
uses crt;
var
ang : real;
function radianos(angulo : real) : real;
begin
radianos := angulo * Pi / 180;
end;
function pot(base : real; expoente : integer) : real; {função potencial recursiva}
begin
if (expoente = 0) then
pot := 1.0
else if (expoente=1) then
pot := base
else
pot := pot(base, expoente-1) * base;
end;
function fat(x : integer) : real;
var
i : byte;
f : real;
begin
f := 1;
for i:=1 to x do
f := i * f;
fat := f;
end;
function coss(x : real) : real;{coss para diferenciar da function cos do Pascal}
var
a, b : real;
n : 1..22;
begin
a:=0;
b:=0;
n:=2;
x := radianos(x);
while (n <= 22) do
begin
a := a + ( pot(x, (n+2)) / fat(n+2) );
b := b + ( pot(x, n) / fat(n) );
n := n + 4;
end;
coss := 1 + a - b;
end;
procedure ler_angulo;
begin
clrscr;
gotoxy(20,2);
highvideo;
write ('PROGRAMA FEITO POR KARINE E MARIA DA GLORIA');
gotoxy(25,4);
write(' CALCULA O COSSENO DE UM ÂNGULO');
lowvideo;
gotoxy(10,6);
write('Entre com o ângulo desejado (em graus) => ');
readln(ang);
end;
{Programa Principal}
begin
ler_angulo;
gotoxy(10,8);
write('O cosseno do ângulo ‚ => ',coss(ang):1:10);
repeat until keypressed;
end.

Para retornar a tela principal clique aqui.