Practica 6

SEUDOCODIGO
Inicio
int opcion

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= "
Rad 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= "
Rad 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= "
Rad 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



Practica_6_problema_1_consola


VISUAL


public partial class Circulo : Form
{
double radio, perimetro, area;
public Circulo()
{
InitializeComponent();
radio = perimetro = area = 0;
}

private void button1_Click(object sender, EventArgs e)
{
radio = double.Parse(textBox1.Text);
perimetro = 2 * radio * Math.PI;
area = Math.PI * Math.Pow(radio, 2);
label3.Text = "Area = " + area;
label4.Text = "Perimetro = " + perimetro;
}

private void button2_Click(object sender, EventArgs e)
{
textBox1.Clear();
textBox1.Focus();
label3.Text = " ";
label4.Text = " ";
}

private void button3_Click(object sender, EventArgs e)
{
Close();
}
}
}

public partial class Cuadrado : Form
{
double lado, area, perimetro;
public Cuadrado()
{
InitializeComponent();
lado = area = perimetro = 0;
}

private void button1_Click(object sender, EventArgs e)
{
lado = double.Parse(textBox1.Text);
area = lado * lado;
perimetro = lado * 4;
lbarea.Text = "Area = " + area;
lbperimetro.Text = "Perimetro = " + perimetro;
}

private void button2_Click(object sender, EventArgs e)
{
lbperimetro.Text = " ";
lbarea.Text = " ";

}
}

public partial class Rectangulo : Form
{
double largo, ancho, area, perimetro;
public Rectangulo()
{
InitializeComponent();
largo = ancho = area = perimetro = 0;
}

private void button1_Click(object sender, EventArgs e)
{
largo = double.Parse(textBox1.Text);
ancho = double.Parse(textBox2.Text);
perimetro = 2 * largo + 2 * ancho;
area = (ancho * largo) / 2;
label4.Text = "Area = " + area;
label5.Text = "Perimetro = " + perimetro;

}

private void button2_Click(object sender, EventArgs e)
{
textBox1.Clear();
textBox2.Clear();
textBox1.Focus();
label4.Text = " ";
label5.Text = " ";
}

private void button3_Click(object sender, EventArgs e)
{
Close();
}
} private void button3_Click(object sender, EventArgs e)
{
Close();
}
}
}

public partial class rombo : Form
{
double dm = 0, dM = 0, area = 0, perimetro = 0;
public rombo()
{

InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
dm = double.Parse(textBox1.Text);
dM = double.Parse(textBox2.Text);
area = (dm * dM) / 2;
perimetro = 2 * Math.Sqrt(Math.Pow(dm, 2) + Math.Pow(dM, 2));
label4.Text = "Area" + area;
label5.Text = "Perometro" + perimetro;



}

private void button2_Click(object sender, EventArgs e)
{
textBox1.Focus();
textBox1.Clear();
textBox2.Clear();
label4.Text = " ";
label5.Text = " ";
}

private void button3_Click(object sender, EventArgs e)
{
Close();
}
}
}


double lado1, lado2, lado3, perimetro, area, P;
public triangulo()
{
InitializeComponent();
lado1 = lado2 = lado3 = perimetro = area = P = 0;
}

private void button1_Click(object sender, EventArgs e)
{
lado1 = double.Parse(textBox1.Text);
lado2 = double.Parse(textBox2.Text);
lado3 = double.Parse(textBox3.Text);
P = (lado1 + lado2 + lado3) / 2;
perimetro = lado1 + lado2 + lado3;
area = Math.Sqrt(P * (P - lado1) * (P - lado2) * (P - lado3));
label5.Text = "Area = " + area;
label6.Text = "Perimetro = " + perimetro;

}

private void button2_Click(object sender, EventArgs e)
{
textBox1.Clear();
textBox2.Clear();
textBox3.Clear();
textBox1.Focus();
label5.Text = " ";
label6.Text = " ";
}

private void button3_Click(object sender, EventArgs e)
{
Close();
}
}
}








Inicio

double monto = 0.0, doc = 0.0, dol = 0.0, lib = 0.0, fran = 0.0
string opcion
do
{
Clear
{
Print "Lista de las tasas de cambio de monedas extranjeras durante 1977"
Print "Opciones de comvercion"
Print "\nA)Florines Holandeses a dolares canadienses"
Print "\nB)Dracmas griegos a dolares norteamericanos"
Print ("\nC)Dolares canadienses a libra britanica"
Print "\nD)Dolares norteamericanos a francos franceses"
Print "\nEscoga una opcion: "
Read opcion
switch (opcion)
{
case "a":
case "A":
Print "Covercion de Florines Holandeses a Dolares Canadienses"
Print "Introdusca cantidad de Florines Holandeses: "
Read monto
doc = monto * 43.20 / 100
Print "Cantidad de Florines Holandeses = {0:f2} que equivale en Dolares Canadienses = {1:f2}", monto, doc
break

case "b":
case "B":
Print "Convercion de Dracmas Griegas a Dolares Norteamericanos"
Print "Introdusca cantidad de Dracmas Griegos: "
monto = double.Parse(Console.ReadLine());
doc = monto * 2.95 / 100
dol = doc / 1.06
Print "\nCantidad de Dracmas griegas = {0:f2} que equivale en Dolares Norte americanos = {1:f2}", monto, dol
break

case "c":
case "C":
Print "Convercion de Dolares Canadienses a Libras Britanicas"
Print "Introdusca cantidad de Dolares Canadienses: "
Read monto
lib = monto / 1.84
Print "\nCantidad de Dolares canadienses = {0:f2} que equivale en Libras Britanicas = {1:f2}", monto, lib
break

case "d":
case "D":
Print "Conversion de Dolares Norteamericanos a Francos Franceses"
Print "Introdusca cantidad de Dolares Norteamericanos: "
Print monto
doc = monto * 1.06
fran = doc * 100 / 21.55
Print "\nCantidad de Dolares Norteamericanos = {0:f2} que equivale en Francos Franceses = {1:f2}", monto, fran
break

case "e":
case "E":
Print "Fin del programa"
break

default:
Print "Opcion equivocada"
break
}



}
} while (opcion != "e" && opcion != "E")
Fin

Practica_6_problema_2_consola


VISUAL
public partial class dal : Form
{
double monto, lib;
public dal()
{
InitializeComponent();
monto = lib = 0;
}

private void label3_Click(object sender, EventArgs e)
{

}

private void button1_Click(object sender, EventArgs e)
{
monto = double.Parse(textBox1.Text);
lib = monto / 1.84;
label3.Text = "Cantidad de Dolares canadienses =" + monto + " que equivale en Libras Britanicas = " + lib;
}

private void button2_Click(object sender, EventArgs e)
{
label3.Text = " ";
textBox1.Clear();
textBox1.Focus();
}

private void button3_Click(object sender, EventArgs e)
{
Close();
}
}
}

public partial class daf : Form
{
double doc, monto, fran;
public daf()
{
InitializeComponent();
doc = monto = fran = 0;
}

private void button1_Click(object sender, EventArgs e)
{
monto = double.Parse(textBox1.Text);
doc = monto * 1.06;
fran = doc * 100 / 21.55;
label3.Text = "Cantidad de Dolares Norteamericanos =" + monto + " que equivale en Francos Franceses =" + fran;
}

private void button2_Click(object sender, EventArgs e)
{
label3.Text = " ";
textBox1.Clear();
textBox1.Focus();
}

private void button3_Click(object sender, EventArgs e)
{
Close();
}
}
}
public partial class dgadlls : Form
{
double doc, monto, dol;
public dgadlls()
{
InitializeComponent();
doc = monto = dol = 0;
}

private void button1_Click(object sender, EventArgs e)
{
monto = double.Parse(textBox1.Text);
doc = monto * 2.95 / 100;
dol = doc / 1.06;
label3.Text = "Cantidad de Dracmas griegas =" + monto + " que equivale en Dolares Norte americanos = " + dol;
}

private void button2_Click(object sender, EventArgs e)
{
textBox1.Clear();
label3.Text = " ";
textBox1.Focus();
}

private void button3_Click(object sender, EventArgs e)
{
Close();
}
}
}

public partial class fad : Form
{
double monto, doc;
public fad()
{
InitializeComponent();
monto = doc = 0;
}

private void button1_Click(object sender, EventArgs e)
{
monto = double.Parse(textBox1.Text);
doc = monto * 43.20 / 100;
label3.Text = "Cantidad de Florentines Holandeses=" + monto + " y que equivale en Dolares Canadienses =" + doc;
}

private void button2_Click(object sender, EventArgs e)
{
textBox1.Clear();
label3.Text = " ";
textBox1.Focus();
}

private void button3_Click(object sender, EventArgs e)
{
Close();
}
}
}










Inicio
string opcion
double grados = 0, celsius = 0, fahrenheit =0, kelvin =0, rankine =0
do

Clear
Print "\n\tOpciones de conversión de temperatura"
Print "\n\ta) Convertir grados Fahrenheit"
Print "\n\tb) Convertir grados Celsius"
Print "\n\tc) Convertir grados Kelvin"
Print "\n\td) Convertir grados Rankine"
Print "\n\tf) Salida"
Print "\n\tElija la opción: "
Read opcion
switch (opcion)
{
case "A":
case "a":
Clear
Print "\n\tConversión de temperatura en grados Fahrenheit"
Print "\n\tIntroduzca cantidad de grados Fahrenheit: "
Read grados
celsius =(5.0/9.0)*(grados-32.00)
kelvin=celsius+273
rankine=grados+460
Print "\n\tGrados Celsius= {0:f2}",celsius
Print "\n\tGrados Kelvin= {0:f2}",kelvin
Print "\n\tGrados Rankine= {0:f2}",rankine
break
case "B":
case "b":
Clear(
Print "\n\tConversión de temperatura en grados Celsius"
Print "\n\tIntroduzca cantidad de grados Celsius: "
Read grados
fahrenheit = (9.0 / 5.0) * (grados + 32.00)
kelvin = grados + 273
rankine = fahrenheit + 460
Print "\n\tGrados Fahrenheit= {0:f2}", fahrenheit
Print "\n\tGrados Kelvin= {0:f2}", kelvin
Print "\n\tGrados Rankine= {0:f2}", rankine
break
case "C":
case "c":
Clear
Print "\n\tConversión de temperatura en grados Kelvin"
Console.Write("\n\tIntroduzca cantidad de grados Kelvin: "
Read grados
celsius = grados-273
fahrenheit= (9.0/5.0)*(celsius+32.00)
rankine = fahrenheit + 460
Print "\n\tGrados Celsius= {0:f2}", celsius
Print "\n\tGrados Fahrenheit= {0:f2}", fahrenheit
Print "\n\tGrados Rankine= {0:f2}", rankine
break
case "D":
case "d":
Clear
Print "\n\tConversión de temperatura en grados Rankine"
Print "\n\tIntroduzca cantidad de grados Rankine: "
Read grados
fahrenheit = grados - 460
celsius = (5.0 / 9.0) * (fahrenheit - 32.0)
kelvin = celsius + 273
Print "\n\tGrados Celsius= {0:f2}", celsius
Print "\n\tGrados Kelvin= {0:f2}", kelvin
Console.WriteLine("\n\tGrados Farenheit= {0:f2}", fahrenheit
break
case "F":
case "f":
Print "\n\tFin de programa"
break
default:
Print "\n\tPresionó opción equivocada"
break
}
}
while (opcion != "f" && opcion != "F")
Fin

practica_6_problema_3_consola

practica_6_problema_3_visual