PRACTICA 11.
Pseudocódigo Practica 11 Problema 1.

1.-Inicio.
Inicio programa
{
opción          int
sigue              char
do
{
clrscr()
imprimirmenu()
Read opción
switch(opcion)
{
case 1 : areacirculo()
case 2 : areacuadrado ()
                perimetrocuadrado ()
case 3 : arearectangulo()
                perimetrorectangulo()
default : Print "Error opcion:  \n"
}
Print "Desea hacer otro calculo (S/N)"
Read  sigue
}
while ((sigue=='s')||(sigue=='S'))
}
Funciones
void imprimirmenu()
{
Print "Opciones del menú:\n”
Print “Area del circulo.\n"
Print “Area y perimetro del cuadrado.\n"
Print "Area y perimetro del rectangulo.\n"
Print "Elija una opcion: "
}void areacirculo()
{
area, radio   real
Print "Calcular area del circulo\n"
Print "Radio del circulo: "
Read radio
area=3.1416*radio*radio
Print "Area: ",area
}

void areacuadrado()
{
area, lado    real
Print "Calcular area del cuadrado\n"
Print "Lado: "
Read lado
area=lado*lado
Print "Area: ",area
}void perimetrocuadrado()
{
perimetro, lado      real
Print  "Calcular perimetro cuadrado\n"
Print  "Lado: "
Read lado
perimetro=4*lado
Print "Perimetro: ",perímetro
}void arearectangulo()
{
area, base, altura              real
Print  "Calcular area del rectangulo\n"
Print “Base: "
Read base
Print "Altura: "
Read altura
area=base*altura
Print  "Area: ",area
}void perimetrorectangulo()
{
perimetro, base, altura                real
Print  "Calcular perimetro rectangulo\n"
Print "Base: "
Read base
Print  "Altura: "
Read altura
perimetro=(2*base)+(2*altura)
Print "Perimetro: ",perímetro
}
Fin.

Pseudocódigo Practica 11 Problema 2.

1.- Inicio.
Inicio programa
{
opción          char,
sigue              int
do
{
clrscr()
imprimirmenu()
Read opción
switch(opcion)
{
case 1 : radio          real
                Print "Radio del circulo: "
                Read radio
                areacirculo(radio)
case 2 : lado           real
                Print "Lado: "
                Read lado
                areacuadrado (lado)
                perimetrocuadrado (lado)
case 3 : base, altura          real
                Print “Base: "
                Read base
                Print "Altura: "
                Read altura
                arearectangulo(base, altura)
                perimetrorectangulo(base, altura)
default : Print "Error opcion:  \n"
}
Print “Desea hacer otro calculo (S/N)"
Read sigue
}
while ((sigue=='s')||(sigue=='S'))
}

Funciones.
void imprimirmenu()
{
Print “Opciones del menú\n"
Print "Area del circulo\n"
Print "Area y perimetro del cuadrado\n"
Print “Area y perimetro del rectángulo\n"
Print "Elija una opcion: "
}
void areacirculo(real radio)
{
area   real
Print "Calcular area del circulo\n"
area=3.1416*radio*radio
Print "Area: ",area
}
void areacuadrado(real lado)
{
area   real
Print "Calcular area del cuadrado\n"
area=lado*lado
Print "Area: ",area
}
void perimetrocuadrado(real lado)
{
perímetro     real
Print "Calcular perimetro cuadrado\n"
perimetro=4*lado
Print "Perimetro: ",perímetro
}
void arearectangulo(real base, real altura)
{
area   real
Print "Calcular area del rectangulo\n"
area=base*altura
Print "Area: ",area
}
void perimetrorectangulo(real  base, real altura)
{
perímetro     real
Print "Calcular perimetro rectangulo\n"
perimetro=(2*base)+(2*altura)
Print "Perimetro: ",perímetro
}
Fin.

Pseudocódigo Practica 11 Problema 3.
1.- Inicio.
Inicio programa
{
opción          int
sigue              char
do
{
clrscr()
imprimirmenu()
Read opción
switch(opcion)
{
case 1 : radio          real
                Print "Radio del circulo: "
                Read radio
                areacirculo(radio)
                Print "Calcular area del circulo\n"
                Print "Area: ",areacirculo(radio)
case 2 : lado           real
                Print "Lado: "
                Read lado
                areacuadrado (lado)
                perimetrocuadrado (lado)
                Print "Calcular area y perimetro del cuadrado\n"
                Print  "Area: ",areacuadrado(lado)
                Print "Perimetro: ",perimetrocuadrado(lado)
case 3 : base, altura          real
                Print "Base: "
                Read base
                Print "Altura: "
                Read altura
                arearectangulo(base, altura)
                perimetrorectangulo(base, altura)
                Print "Calcular area y perimetro del rectangulo\n"
                Print "Area: ",arearectangulo(base, altura)
                Print "Perimetro: ",perimetrorectangulo(base, altura)
default : Print "Error opcion:  \n"
}
Print "Desea hacer otro calculo (S/N)"
Read sigue
}
while ((sigue=='s')||(sigue=='S'))
}
Funciones.
void imprimirmenu()
{
Print "Opciones del menu"
Print "Area del circulo"
Print "Area y perimetro del cuadrado"
Print "Area y perimetro del rectangulo"
Print "Elija una opcion: "
}
real areacirculo(real radio)
{
area   real
area=3.1416*radio*radio
return area
}
real areacuadrado(real lado)
{
area   real
area=lado*lado
return area
}
real perimetrocuadrado(real lado)
{
perímetro     real
perimetro=4*lado
return perímetro
}
real arearectangulo(real base, real altura)
{
area real
area=base*altura
return area
}
real perimetrorectangulo(real base, real altura)
{
perimetro     real
perimetro=(2*base)+(2*altura)
return perímetro
}
Fin.

Pseudocódigo Practica 11 Problema 4.

1.- Inicio.
Inicio programa
{
numero,n1,n2         int
dig,ch                        char
Print "P=Positivo N=Negativo 1=Verdadero/SI DIVIDE, 0=Falso/NO DIVIDE.”
Print “Numero a evaluar: "
Read numero
numposneg(numero)
Print numposneg(numero)
Print "\nNumero 1: "
Read n1
Print "\nNumero 2: "
Read n2
dividendo(n1, n2)
Print "\nSolucion: ,dividendo(n1, n2)
Print "Temperatura en grados celsius: "
Read Celsius
temperatura(celsius)
Print "\nLa temperatura en grados fahrenheit es: ",temperatura(Celsius)
Print "\n\nCaracter: "
Read dig
digito(dig)
Print "\nSolucion: ",digito(dig)
Print "\n\nCaracter: "
Read ch
vocal(ch)
Print "\nSolucion: ",vocal(ch)
}
Funciones.
char numposneg (int numero)
{
if (numero>0)
{return 'P'}
else
{return 'N'}
}
boolean dividendo(int n1, int n2)
{
if (n1/n2>0)
{return true}
else
{return false}
}
int  temperatura(int celsius)
{
fahrenheit                real
fahrenheit=(9.0/5.0)*celsius +32
return fahrenheit
}
boolean digito(char dig)
{
if ((dig>='0')& (dig<='9'))
{return true}
else
{return false;}
}
boolean vocal(char ch)
{
if((ch=='a')||(ch=='A')||(ch=='e')||(ch=='E')||(ch=='i')||(ch=='I')||(ch=='o')||(ch=='O')||(ch=='u')||(ch=='U'))
{return true}
else
{return false}
}
Fin.