Examen Integrador 2

Trabajo Práctico Nº 3 Procedimientos y Funciones
Resuelva los siguientes ejercicios usando Turbo Pascal

1.- Escribir una función en Pascal que permita calcular A elevado a la B, siendo A un número real cualquiera y B un valor entero positivo o cero.

1. program Ejercicio_Nº1;

2. {$APPTYPE CONSOLE}

3. USES
4. SysUtils;
5. VAR
6. a:real;
7. b:byte;

8. FUNCTIONPOTENCIA(c:real;d:byte):real;
9. begin
10. If c0 then
11. potencia:=Exp(Ln(c)*d)
12. else
13. potencia:=0;
14. end;

15. BEGIN
16. write('Ingrese Numero A: ');
17. readln(a);
18. write('Ingrese el exponente B: ');
19. readln(b);
20. write('Resultado de la Potencia A^B: ',potencia(a,b):0:2);21. readln;
22. END.
2.- Escribir una función en Pascal que dado un carácter en minúscula nos devuelva su
mayúscula correspondiente.
1. program Ejercicio_Nº2_TP3;

2. {$APPTYPE CONSOLE}

3. uses
4. SysUtils;

5. VAR
6. a:char;

7. FUNCTION MAYUSCULA(b:char):char;
8. begin
9. mayuscula:=upcase(b);
10. end;

11. BEGIN
12. write('Ingrese el caracter: ');
13. readln(a);
14.write('Minuscula ',a,' Mayuscula ',mayuscula(a));
15. readln;
16. END.

3.- Diseñar una función que nos permita calcular el RESTO de dividir dos números enteros,
suponiendo que no disponemos de los operadores DIV, MOD y / (división real).
1. program Ejercicio_Nº3_TP3;
2.
3. {$APPTYPE CONSOLE}

4. uses
5. SysUtils;

6. VAR
7. a,b:integer;

8. FUNCTIONresto(dividendo,divisor:integer):integer;
9. var
10. d1,d2:integer;
11. begin
12. d1:=Abs(dividendo);
13. d2:=abs(divisor);
14. while d1 >= d2 do
15. begin
16. d1:=d1-d2;
17. end;
18.
19. if dividendo1) do
19. begin
20. if n mod aux=0 then
21. b:=1
22. else
23.aux:=aux-1;
24. end;
25. if (b=0)and(n0)then
26. primo:='EL NUMERO ES PRIMO'
27. else
28. primo:='EL NUMERO NO ES PRIMO';
29.
30. end;


31. BEGIN
32. write('Ingrese un numero: ');
33. readln(Num);
34. write(PRIMO(Num));
35. readln;
36. END.
6.- Escribir un procedimiento que determine su un numero es primo o no.
1. programEjercicio_Nº6_TP3;

2. {$APPTYPE CONSOLE}

3. uses
4. SysUtils;

5. VAR
6. Num:integer;
7.
8. PROCEDURE primo(n:integer);
9. var
10. b:byte;
11. aux:integer;
12. begin
13. n:=abs(n);
14. aux:= n-1;
15. b:=0;
16. while (b=0)and(aux>1) do
17. begin
18. if n mod aux=0 then
19. b:=1
20. else
21.aux:=aux-1;
22. end;
23. if (b=0)and(n0)then
24. write('EL NUMERO ES PRIMO')
25. else
26. write('EL NUMERO NO ES PRIMO');
27.
28. end;


29. BEGIN
30. write('Ingrese un numero: ');
31. readln(Num);
32. PRIMO(Num);
33. readln;
34. END.
7.- Escriba un programa que determine los primeros 20 números primos usando la funcióndesarrollada anteriormente.
1. program Ejercicio_Nº5_TP3;

2. {$APPTYPE CONSOLE}

3. uses
4. SysUtils;

5. VAR
6. frase:string;
7. Num:integer;
8. i,cont:byte;


9. FUNCTION primo(n:integer):string;
10. var
11. b:byte;
12. aux:integer;
13. begin
14. n:=abs(n);
15. aux:= n-1;
16. b:=0;
17. while (b=0)and(aux>1) do
18. begin
19. if n mod aux=0 then20. b:=1
21. else
22. aux:=aux-1;
23. end;
24. if (b=0)and(n0)then
25. primo:='PRIMO'
26. else
27. primo:='NO PRIMO';
28. end;


29. BEGIN
30. writeln('Los primeros 20 numeros primos son:');
31. cont:=0;
32. Num:=0;
33. while cont1) do
17. begin
18....