Pascal

FUNCIONES.
1. Funciones.
Las funciones al igual que los procedimientos también son subprogramas su diferencia con estos consiste en que estos devuelven un valor único al lugar de donde fueroninvocados.
Formato:
Function nombrefuncion(lista de parámetros):tipo;
Var
Variables locales
Begin
Sentencia 1;
Sentencia 2;
nombrefuncion:=resultado_de_funcion;
End;2. Tipee los siguientes ejercicios.
Ejercicio 1. Programa que calcula una potencia.
program potencia;
uses crt;
function respuesta(var bs:integer,ex:integer):longint;
Var
Total:longint;Begin
Total:=1;
For i:=1 to ex do
Total:=Total*bs;
respuesta:=total;
end;

var
base,expo:integer;

BEGIN
write(' Dame la base:');
readln(base);
write(' Dame elexponente:');
readln(expo);
write('El resultado es:',respuesta(base,expo));
Readkey;
END.

Ejercicio 2. Programa que imprime la suma de los factoriales encontrados entre los números 5 y 10.
programfactorial;
uses crt;
var
j:byte;
suma:longint;

function calculo(var num:integer):longint;
Var
I:integer;
Total:longint;
begin
Total:=1;
For i:=num downto 1 do
Total:=Total*i;calculo:=total;
end;

BEGIN
Suma:=0;
clrscr;
For j:=15 to 30 do
Suma:=suma+calculo(j);
writeln(' El resultado es: ',suma);
Readkey;
END.

3. Realice los siguientesproblemas.
1. Hacer un programa que calcule la sumatoria de la serie 1/1!+ ½!+1/3!+…+1/N!. Debe hacer una función para el cálculo del factorial.
2. Debe encontrar los primeros 30 números primos. Eldeterminar si un número es primo debe hacerlo con una función.
3. El valor de ex se aproxima a la formula 1+x+x2/2!+x3/3!+…+ xn/n! . Debe hacerse una función para el cálculo de la potencia y otrapara el cálculo del factorial.

4. Escribir un programa que lea dos números x y n y calcule la suma de la progresión geométrica. Utilizando una función para la potencia.

1+x+x2+x3+…+xn...