Tuesday, October 9, 2012

Practica No. 6

Problema No.1
INICIO
valor INT
continuar= ‘s’ char
while(opcion=='s'||opcion=='S')
{
Print "Introduca valor a evaluar"
Read valor
If (valor==0) 
{
Print "El valor es nulo”
}
else
{
If (valor>0)
{
Print “El valor es positivo"
}
else
{
Print "El valor es negativo"
}
}
Print "desea continuar? (S/N)"
Read opcion
 }
FIN


 Problema No.2
INICIO
 a, b, c, INT
min, max INT
decision='s’ char
while(decision=='s'||decision=='S')
{
Print "Introduce 3 valores enteros: “
Read a,b,c
If (a>b&&a>c)
{
max=a;
}
else
{
if (b>a&&b>c)
{
max=b;
}
else
{
max=c;
}
}
Print " es el valor maximo", max
If(a<b&&a<c)
{
min=a;
}
else
{
If (b<a&&b<c)
{
min=b;
}
else
{
min=c;
}
}
Print " es el valor minimo", minimo
Print "desea continuar? (s/n)”
Read decision
}
FIN

Problema No.3
INICIO
base, altura,area FLOAT
 decision='s' char
while(decision=='s'||decision=='S')
{
Print "introduce valor de base de un triangulo="
Read base
while (base<=0)
{
Print "debe ser un numero positivo"
Print "introduce nuevamente el valor de base"
Read base
}
Print "introduce valor altura de un triangulo="
Read altura
while (altura<=0)
{
Print “debe ser un valor positivo"
Print "introduce nuevamente valor de altura"
Read altura
}
area=(base*altura)/2.0;
Print "el area del triangulo es=", area
Print "desea continuar? (s/n)”
Read decision
}
FIN
Problema No.4
INICIO
a,b,c,x1,x2,r,r1,rt  FLOAT
decision='s' char
while(decision=='s'||decision=='S')
{
Print "Dar valores para a”
Read a
Print "Dar valores para b"
Read b
Print “Dar valores para c"
Read c
If(a==0)
{
Print "a es igual a 0, valor indeterminado"
}
else
{
 rt=((pow(b,2))-(4*a*c));
 r1=sqrt(rt);
If(r1<0)
  {
  Print "raiz imaginaria"
  }
 else
  {
  r=2*a;
  x1=(-b+r1)/r;
  x2=(-b-r1)/r;
 Print "Valor de x1=",x1,"Valor de x2=",x2
  }
}
Print "desea continuar? (s/n)"
Read decision
}
FIN
Problema No.5
INICIO
A,B,C,a2,b2,c2, float
decision='s' char
while(decision=='s'||decision=='S')
{
Print  "Dame valor para A,B y C"
Read A,B,C
a2=pow(A,2)
b2=pow(B,2)
c2=pow(C,2)
if(A>=B+C)
 {
Print "no se trata de un triangulo”
 }
else
 {
 if(a2=b2+c2)
  {
Print"se forma un triangulo rectangulo"
  }
 else
  {
  if(a2>b2+c2)
   {
   Print "se forma un triangulo obtusangulo"
   }
  else
   {
   if(a2<b2+c2)
    {
    Print "se forma un triangulo acutangulo"
    }
   }
  }
 }
 Print "desea continuar? (s/n)"
Read decision
 }
FIN
Problema No.7
Inicio
edad,tipo,dias,i=1 int
nom int;
while(i==1)
{
Print "Introduzca nombre del paciente: ";
Read nom;
Print "Introduzca la edad del paciente: ";
Read edad;
Print "Tipo de enfermedad del paciente (1,2,3,4): ";
Read tipo;
Print "Numero de dias internado: ";
Read dias;
if(tipo==1)
 {
  Print nom
  Print “tipo de enfermedad:"<<tipo<<endl;
  Print "Numero de dias internado:"<<dias<<endl;
  Print  "Monto a pagar: "<<(dias*25)<<endl;
 }
  else{
if(tipo==2)
 {
  Print nom<<endl;
  Print "tipo de enfermedad:"<<tipo<<endl;
  Print "Numero de dias internado:"<<dias<<endl;
  Print "Monto a pagar: "<<(dias*20)<<endl;
 }
  else{
if(tipo==3)
 {
  Print nom<<endl;
  Print "tipo de enfermedad:"<<tipo<<endl;
  Print "Numero de dias internado:"<<dias<<endl;
  Print "Monto a pagar: "<<(dias*29)<<endl;
 }
  else{
if(tipo==4)
 {
  Print nom<<endl;
  Print "tipo de enfermedad:"<<tipo<<endl;
  Print "Numero de dias internado:"<<dias<<endl;
  Print "Monto a pagar: "<<(dias*32)<<endl;
 }
  else{
       Print "Tipo de enfermedad incorrecta"<<endl;
      }
      }
      }
      }
Print "Desea repetir el proceso si(1) no(0)";
Read i;
}
Fin

Problema No.8
INICIO
monto,p1,p2,p3,p4 INT
decision='s' char
while(decision=='s'||decision=='S')
{
Print "Introduzca valor del producto 1: "
Read p1
Print  "Introduzca valor del producto 2: "
Read p2
Print "Introduzca valor del producto 3: "
Read p3
Print "Introduzca valor del producto 4: "
Read p4
monto=(p1+p2+p3+p4);
if(monto<=1000)
{
Print "monto a pagar: ",monto
}
if(monto>=1001 && monto<=5000)
{
Print "Monto original: ", monto
Print "Descuento: ", (monto*.05)
Print "Monto a pagar: ", (monto-(monto*.05))
}
if(monto>=5001 && monto<=10000)
{
Print "Monto original: ", monto
Print "Descuento: ", (monto*.10)
Print "Monto a pagar: ", (monto-(monto*.10))
}
if(monto>=10001)
{
Print "Monto original: ", monto
Print "Descuento: ", (monto*.20)
Print “Monto a pagar: ", (monto-(monto*.20))
}
Print "desea continuar?(s/n)"
Read decision
}
FIN


Problema No.9
Inicio
fac=1,n,i=1 int
while(i==1){
print "Digite un numero";
cin>>n;
for (i=n;i;i--)
{
fac!=i;
}
Print “El factorial de "<<n<<" es="<<fac;
Print "desea repetir el proceso? si(1) no(0)";
Read i;
}
Fin

Problema No.10
Inicio
n,i=1 int
while(i==1){
print “Digite un numero";
read n;
for (i=n;i;i--)
{
Print n, “ * ”,i, “ = ”,(n*i)
}
print "desea repetir el proceso? si(1) no(0)";
read i;
}
Fin

Problema No.11
Inicio
fac=1,n,i=1,fa int
while(i==1){
print "Digite un numero";
cin>>n;
for (i=n;i;i--)
{
fac=1/i;
fa=fa+fac;
}
Print "El resultado de 1/",n," es="<<fa;
Print "desea repetir el proceso? si(1) no(0)";
Read i;
}
Fin

Problema No.12
Inicio
i=1,n1,n2 real
a=1 int
while(a==1){
print "Ingresar los dos numeros a evaluar";
read n1,n2;
print "Como evaluar los numeros?”
print "(1)Suma los dos numeros"
print "(2)Multiplicacion de los numeros"
print "(3)Division de los numeros”
print "\n\nOpcion:";
read a;
switch(a)
{
case 1:
print "El total de la suma es:",(n1+n2);
break;
case 2:
print "El total de la multiplicacion es:",(n1*n2);
break;
case 3:
if(n2==0)
{
print "El segundo numero es 0,\n valor indeterminado en la division"
}
else
{
print "El total de la division es:",(n1/n2)
}
break;
}
print "\nDesea volver al menu? si(1) no(0)"
read a;
}
Fin


Problema No.13
Inicio
n,i=1,m real
while(i==1){
print "Contenido de galones\n";
print I," galon = ",(i*3.785)," litros"
for (i=2;i<=20;i++)
{
print ,I," galones = ",(i*3.785)," litros"
}
print "Desea repetir el proceso si(1) no(0)"
read i
}
Fin




Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)