Clase práctica sobre Funciones y Procedimientos

Clase práctica sobre Funciones y Procedimientos.
Introducción a la Programación.
1. Construir un programa que reciba 3 valores y devuelva el mínimo valor. El programa pregunta al usuario si quiere entrar más datos y se repita mientras el usuario quiera.
a. Utilizar una función.
b. Utilizar un procedimiento.
Proceso sin_titulo
definir num1,num2,num3 como real;
Definir rest como entero;Repetir
escribir"Ingrese num1";
leer num1;
escribir "Ingrese num2";
leer num2;
escribir "Ingrese num3";
leer num3;
menor(num1,num2,num3);
rest<-men(num1,num2,num3);
Hasta Que num1+num2+num3=0
FinProceso

SubProceso menor(n1,n2,n3)
si n1 escribir "El numero menor es: ",n1;
Sino
si n2 escribir "El numero menor es: ",n2;
Sino
si n3 escribir "El numero menor es: ",n3;
FinSi
FinSi
FinSi
FinSubProceso

Funcion rest<-men(num1,num2,num3)
si num1 escribir "El numero menor es: ",num1;
Sino
si num2 escribir "El numero menor es: ",num2;
Sino
si num3 escribir "El numero menor es: ",num3;
FinSi
FinSi
FinSiFinFuncion
2. Escribir una función que tenga un argumento de tipo entero y devuelva a la función principal la letra P si el número es positivo o la letra N si el número es negativo.
Proceso sin_titulo
Definir valor1 Como Real;
definir retorno Como Caracter;
Escribir "Ingrese valor1";
leer valor1;
argumento(valor1);
retorno<-argument(valor1);
escribir "Este es de la funcion ",retorno;FinProceso

//Con Funcion
Funcion retorno<-argument(valor1)
definir retorno Como Caracter;
Si valor1>0 entonces retorno<- "P";
sino
retorno<- "N";
FinSi
FinFuncion

//Con procedimiento
Funcion argumento(valor1)
Si valor1>0 entonces escribir "Este lo presenta el procedimiento P";
sino
escribir "Este lo presenta el procedimiento N";
FinSi
FinFuncion
3. Escribir una función que determine siun carácter es uno de los dígitos del 1 al 9.
Algoritmo sin_titulo
Definir num como entero;
Escribir "ingrese un digito";
leer num;
amor(num);
FinAlgoritmo

funcion amor(num)
si num>9 Entonces
escribir " fuera de rango";
sino
Escribir "esta en el rango";
FinSi
FinFuncion
4. Calcular mediante una función el volumen de un cono (v=1/3 * pi * (r^2) * h).
Proceso Principal
Definirvolu,radio,altura como real;
Escribir"Cual es el radio del cono?";
Leer radio;
Escribir "Cual es la altura del cono?";
Leer altura;
volu<-Volumen(radio,altura);
Escribir volu;
FinProceso

SubProceso Vol<-Volumen(r,h)
Definir Vol como real;
Vol<-3.141592654*(r^2)*h;
FinSubProceso

5. Leer un numero por teclado que represente el precio de un artículo. A continuación, lea una palabra quedefina si es un artículo de “primera necesidad”, un artículo “normal” o un artículo de “lujo”, finalmente deberá calcular el IVA correspondiente según el tipo de articulo (7%, 16%, 34% respectivamente) y lo escriba en la pantalla. Utilizar función.
Proceso sin_titulo
definir n,res como real;
definir p como entero;
Escribir "Ingrese el valor del Articulo";
leer n;
Escribir "Si es un articulo deprimera necesidad (1), normal (2), lujo (3)";
leer p;
res<-v(n,p);
Escribir "El valor del Articulo es: ",n," mas iva:$ ",res;
FinProceso

Funcion res<-v(n,p)
Definir res como entero;
si p=1 Entonces
res<-n+(n*0.07);
Sino
si p=2 Entonces
res<-n+(n*0.16);
sino
si p=3 Entonces
res<-n+(n*0.34);
FinSi
FinSi
FinSi
FinFuncion
6. Dado ciertos centímetros como entrada de tiporeal, escribir su equivalente a pies (enteros) y pulgadas (real). Considera 2.54 cm por pulgada y 12 pulgadas por pies. La salida podrá ser: 127.5 cm son 50.19 pulgadas y 4.18 pies. Escribir una función por cada conversión.
Proceso sin_titulo
Definir centi,pulg,cent,plg como real;
Escribir"Ingrese la cantidad de centimetros?";
Leer centi;
Escribir "Ingrese la cantidad de pulgadas?";
Leer...

Leer documento completo

Regístrate para leer el documento completo.