PRACTICA 6 PROBLEMA 1

CONSOLA

VISUAL

PSEUDOCODIGO

Inicio

opcion Int
do
{
Clear
double area=0, perimetro=0, lado=0, ancho=0, largo=0, radio=0
Print "Opciones a elegir"
Print "Calculo de area y perimetro de: "
Print "\t1)cuadrado\n\t2)Ractangulo\n\t3)Circulo\n\t4)Triangulo\n\t5)Rombo\n\t0) Salida"
Print "Elegir opcion (0-5) : "
Read opcion
switch (opcion)
{
case 0: Print "Fin de programa"
break
case 1: Clear
Print "\tCalculo area y perimetro de un cuadrado"
Print "introduce valor de lado= "
Read lado
area = lado * lado
perimetro = lado * 4
break
case 2: Clear
Print "\tCalculo de area y perimetro de un rectangulo"
Print "Introduce el valor de largo= "
Read largo
Print "Introduce el valor de ancho= "
Read ancho
area = largo * ancho;
perimetro = 2 * (largo * ancho);
break
case 3: Clear
Print "\tCalculo de area y perimetro de un circulo"
Print "Introduce el valor de radio= "
Read radio
area = PI * (radio ^ 2)
perimetro = 2 * radio * PI
break
case 4: Console.Clear();
double P = 0, Lado1 = 0, Lado2 = 0, Lado3 = 0
Print "\tCalculo de area y perimetro de un triangulo"
Print "Introduce valor de lado1= "
Read Lado1
Print "Introduce valor de lado2= "
Read Lado2
Print "Introduce valor de lado3= "
Read Lado3
P = (Lado1 + Lado2 + Lado3) / 2
area = (P * (P - Lado1) * (P - Lado2) * (P - Lado3))^(1/2)
perimetro = Lado1 + Lado2 + Lado3
break
case 5:Clear
double dm = 0, dM = 0
Print "\tCalculo de area y perimetro de un rombo"
Print "Introduce valor de diagonal menor= "
Read dm
Print "Introduce valor de diagonal mayor= "
Read dM
area = (dm * dM) / 2
perimetro = 2 * ((dm ^ 2) + (dM ^ 2))^(1/2)
break;
default:
Print "Opcion equivocada"
break
}
Print "Area= {0:f2} Perimetro= {1:f2}", area, perimetro
}
while (opcion!=0)
Fin