Practicas 11


Programa 1.


Programa para calcular el área de un circulo, área y perimetro de un cuadrado y un rectángulo.
El usuario elige la acción a realizar. Uso de funciones sin parametros y sin devolver ningún valor.
Pseudo-codigo:
Inicio Funcionesvoid ImprimirMenu(){
print "Opciones del menu:   "
print "1)Area de circulo"
print "2)Area y perimetro cuadrado"
print "3)Area y perimetro Rectangulo"
print "Selecciona opcion:   "}
void CalcularAreaCirculo(){
radio,area  realprint "Calculo Area de Circulo"print "Radio Circulo:   "read radioarea=3.1416*radio*radioprint "Area Circulo = ",area}
void AreaCuadrado(){
lado,área  real
print "Calculo Area Cuadrado"
print "Lado cuadrado:   "
read lado
area=lado*lado
print "Area cuadrado:   ",area}
void PerimetroCuadrado (){
lado,perímetro  real
print "Calculo Perimetro Cuadrado"
print "Lado:   "
read lado
perimetro=4*lado
print "Perimetro = ",perimetro}
void AreaRectangulo(){
base,altura,área  real
print "Calcular Area Rectangulo"print "Base:   "read baseprint "Altura:   "
read altura
area=base*altura
print "Area rectangulo = ",area}
void PerimetroRectangulo(){
base,altura,perímetro  real
print "Calcular Perimetro Rectangulo"
print "Base:   "
read baseprint "Altura:   "read alturaperimetro=2*(base+altura)
print "Perimetro Rectangulo = ",perimetro}
Inicio Programa {
Opción  int
Sigue  char
do{
ImprimirMenu()
read opcion
switch(opcion){
case 1:   CalcularAreaCirculo()
break
case 2:   AreaCuadrado()
PerimetroCuadrado()
break
case 3:   AreaRectangulo()
PerimetroRectangulo()
break
default:   print "Error en opcion"}
print "Desea hacer otro calculo (s/n)? "
read sigue}
while(sigue=='s' or sigue=='S')}
Fin.

Problema 2.

Programa para calcular el área de un circulo, área y perimetro de un cuadrado y un rectángulo.
El usuario elige la acción a realizar. Uso de funciones con parametros y sin devolver ningún valor.
Pseudo-codigo:

Inicio Funciones
void ImprimirMenu(){
print "Opciones del menu:   "
print "1)Area de circulo"
print "2)Area y perimetro cuadrado"
print "3)Area y perimetro Rectangulo"
print "Selecciona opcion:   "}
void CalcularAreaCirculo(real radio){
area  realarea=3.1416*radio*radioprint "Area Circulo = ",area}void AreaCuadrado(real lado){
area  real
area=lado*lado
print "Area cuadrado:   ",area}
void PerimetroCuadrado (real lado){
perímetro  real
perimetro=4*lado
print "Perimetro = ",perimetro}
void AreaRectangulo(real base,real altura){
area  realarea=base*alturaprint "Area rectangulo = ",area}void PerimetroRectangulo(real base,real altura){
perímetro  real
perimetro=2*(base+altura)
print "Perimetro Rectangulo = ",perimetro}
Inicio Programa {
opción  int
sigue  char
radio,lado1,lado2  real
do{
ImprimirMenu()read opcionswitch(opcion){
case 1:   print "Calculo Area de Circulo"
print "Radio Circulo:   "
read radio
CalcularAreaCirculo(radio)
break
case 2:   print "Calculo Area y Perimetro Cuadrado"
print "Lado cuadrado:   "
read lado1
AreaCuadrado(lado1)
PerimetroCuadrado(lado1)
break
case 3:   print "Calcular Area y Perimetro Rectangulo"
print "Base:   "
read lado1
print "Altura:   "
read lado2
AreaRectangulo(lado1,lado2)
PerimetroRectangulo(lado1,lado2)
break
default:   print "Error en opcion"}
print "Desea hacer otro calculo (s/n)? "
read sigue}
while(sigue=='s' or sigue=='S')}
Fin.

Problema 3.

Programa para calcular el área de un circulo, área y perimetro de un cuadrado y un rectángulo.
El usuario elige la acción a realizar. Uso de funciones con parametros y que entregan un valor.
Pseudo-codigo:
Inicio Funciones
real ImprimirMenu(){
opción int
print "Opciones del menu:  "
print "1)Area de circulo"
print "2)Area y perimetro cuadrado"
print "3)Area y perimetro Rectangulo"
print "Selecciona opcion:  " read opcion
return opcion}
real CalcularAreaCirculo(real radio){
area  realarea=3.1416*radio*radioreturn area}
real AreaCuadrado(real lado){
area  real
area=lado*lado
return area}
real PerimetroCuadrado (real lado){
perímetro  real
perimetro=4*lado
return perimetro}
real AreaRectangulo(real base,real altura){
area  realarea=base*alturareturn area}
real PerimetroRectangulo(real base,real altura){
perímetro  real
perimetro=2*(base+altura)
return perimetro}
Inicio Programa {
opción  int
sigue char
radio,lado1,lado2,area,perímetro  real
do{
opcion=ImprimirMenu()
switch(opcion){
case 1:  print "Calculo Area de Circulo"
print "Radio Circulo:  "read radioarea=CalcularAreaCirculo(radio)print "Area Circulo = ",areabreak
case 2:  print "Calculo Area y Perimetro Cuadrado"
print "Lado cuadrado:  "
read lado1
area=AreaCuadrado(lado1)
print "Area cuadrado:  ",area
perimetro=PerimetroCuadrado(lado1)
print "Perimetro = ",perimetro
break
 case 3:  print "Calcular Area y Perimetro Rectangulo"
print "Base:  "read lado1
print "Altura:  "read lado2
area=AreaRectangulo(lado1,lado2)
print "Area rectangulo = ",area
perimetro=PerimetroRectangulo(lado1,lado2)
print "Perimetro Rectangulo = ",perimetro
break
default:  print "Error en opcion"}
print "Desea hacer otro calculo (s/n)? "
read sigue}
while(sigue=='s' or sigue=='S')}
Fin.

Programa 4.

Programa que utiliza una función que tiene un argumento de tipo entero quedevuelve la letra P si el número es positivo, y N si el número es negativo.Una función lógica de 2 argumentos enteros que devuelve true si uno divide alotro y false en caso contrario. Y una función lógica vocal que determina si uncaracter es una vocal.
Pseudo-codigo:
Inicio funciones

bool digito(char dig){if(dig>='0' and dig<='9') {return true}
else {return false  }}
bool Vocal (char Ch){if(Ch=='a' or Ch=='A' or Ch=='e' or Ch=='E' or Ch=='i' or Ch=='I' or Ch=='o' or Ch=='O' or Ch=='u' or Ch==U') {return true}
else {return false}}
char NumPosNeg(int Num){if(Num>0) {return 'P'}
else {return 'N'}}
float Conver_Temp (float c){
return 1.8*c+32}
Inicio Programa {dig,Ch  charNum  intprint "Esta funcion devuelve un true si el caracter introducido es un digito",print "del 1 al 9, y un false en caso contrario",print "Caracter:    "read digprint digito(dig)print "Esta funcion devuelve P si el numero introducido es positivo"print "y un false en caso contrario"print "Numero:    "read Numprint NumPosNeg(Num)
print "Esta funcion devuelve un true si el caracter introducido es una vocal”print "y un false en caso contrario"print "Caracter:   "read Chprint Vocal(Ch)   print "Esta funcion convierte una temperatura en grados celsius a fahrenheit"print "Grados celsius: "read cprint "Grados fahrenheit: ",Conver_Temp (c)  }Fin.