miércoles, 30 de octubre de 2013

PRACTICA 5

PROBLEMA 1

PSEUDOCODIGO
Inicio factorial=1,I , num doble Write”introduce el valor de N:” Read num for (i=2; i<=num; i++) { factorial= factorial + i } Wrte”El factorial de N es: "
fin

PROBLEMA 2 

PSEUDOCODIGO
Inicio
void main()
{
s,i int
s=0
i=2

write "------------------------------------------------"
write " Tabla de la Suma a Realizar"
write "------------------------------------------------"
write "   Enteros    |     Resultado de la Sumatoria   "
write "------------------------------------------------"

while(i<100)
{
s=s+i;
write i, s
i=i+3;
}
write "La suma de cada tercer entero comenzando por 2, para todos los valores menores a 100 es: ", s
}
FIN

PROBLEMA 3


PSEUDOCODIGO
INICIO indi, int sigue, char
do { write"Seleccione una opcion del 1 al 4:" read indi
switch(indi) { case 1 : write"Calor" write"Desea volver al menu?" write "Si=s,No=n:" read sigue
break;
case 2 : write"Templado" write"Desea volver al menu?" write"Si=s,No=n:" read sigue
break;
case 3 : write"Frio" write"Desea volver al menu?" write"Si=s,No=n:" read sigue
break;
case 4 : write"Fuera de rango" write"Desea volver al menu?" write"Si=s,No=n:" read sigue
break;
default: write"Error en opcion" write"Volver a menu? s/n:" read sigue } } while(sigue=='s'||sigue=='S') Fin
PROBLEMA 4


Algoritmo
1-. Inicio
2-. Declaracion de variables
color, continuar    caracter
3-. Do
write "Selecciona un color"
write "r o R para rojo, v o V para verde, a o A para azul"
write "cualquier otra tecla para negro?"
read color
switch(color)
{
case 'r':
write "Rojo"
write"Desea volver al menu?" write"Si=s,No=n:" read sigue
case 'R':
write "Rojo"

write"Desea volver al menu?" write"Si=s,No=n:" read sigue
break;
case 'v':

write "Verde"
write"Desea volver al menu?" write"Si=s,No=n:" read sigue
case 'V':
write "Verde"

write"Desea volver al menu?" write"Si=s,No=n:" read sigue
break;
case 'a':

write "Azul"
write"Desea volver al menu?" write"Si=s,No=n:" read sigue
case 'A':
write "Azul"

write"Desea volver al menu?" write"Si=s,No=n:" read sigue
break;
default:
write "Negro"

write"Desea volver al menu?" write"Si=s,No=n:" read sigue
}
write "Deseas repetir? (s/n)"
read continuar

while(sigue=='s'||sigue=='S')
Fin
PROBLEMA 5


PSEUDOCODIGO

INICIO
i, n, suma real
write ”introduzca valor de N: “
read n
suma =0
++) suma= suma+(2*
for (i=1;i<=n;
ii-1)
" La suma de los primeros términos impares es: “ read
write
suma
Fin


PROBLEMA 6



INICIO

num_conv int
val_inicial, t_paso, max_fahr, fahr real
celsius double

write "----------------------------------------------------"
write " Tabla de conversion de grados Fahrenheit a Celsius"
write "----------------------------------------------------"
write "- Introduzca el valor inicial de la Temperatura Fahreinheit: "
read val_inicial
write "- Introduzca el numero de incremento en la Temperatura Fahreinheit: "
write "Por ejemplo: Si desea que incremente de 1 en 1 (1,2,3,4,etc) o de 3 en 3 (3,6,9,12,etc)."
write "Incremento: "
read t_paso
write "- Introduzca el numero de conversiones a grados Celsius que desea realizar: "
read >num_conv


write "----------------------------------------------------"
write " Tabla de conversion de grados Fahrenheit a Celsius"
write "----------------------------------------------------"
write "     Grados Fahrenheit    |      Grados Celsius           "
write "----------------------------------------------------"

fahr= val_inicial;
max_fahr=(num_conv*t_paso)+fahr



while (fahr<max_fahr)
      {
      celsius= (5.0/9.0)*(fahr-32.0)
write fahr, celsius
fahr= fahr + t_paso;
      }
FIN

INICIO

const int MAX_FAHR = 35
const int VAL_INICIAL = 10
const int T_PASO = 1
int fahr
double celsius

write "----------------------------------------------------"
write " Tabla de conversion de grados Fahrenheit a Celsius"
write "----------------------------------------------------"
write "     Grados Fahrenheit    |      Grados Celsius           "
write "----------------------------------------------------"

fahr= VAL_INICIAL;

while (fahr<MAX_FAHR)
      {
      celsius= (5.0/9.0)*(fahr-32.0)
    
write fahr, celsius
fahr= fahr + T_PASO;
      }
FIN
PROBLEMA 7
PSEUDOCODIGO
Inicio fibonacci entero (n entero) { If (n<2) Return n Else Return fibonacci (n-1) + fibonacci (n-2) } num=0,res=0 entero Write "Numeros de fibonacci" Write "Introduce el numero de numeros " Read (“%i”,&num) For (int i=0; i<=numero -1; i++) { res=fibonacci (i) Print(“%i”,res) Fin

PROBLEMA 8

PSEUDOCODIGO

INICIO
x, t real
y double

write "--------------------------------------------"
write "Tabla de valores en Y"
write "--------------------------------------------"
write "       x o t          |          Y          "
write "--------------------------------------------"

write "Y = 4x^5-2x^3+x";

for (x=1 to x<=5 step x= x+0.10)
{
y=4*pow(x,5)- 2*pow(x,3)+x
write x, y
}

write "Y = x+x^2/3+x^3/4+x^4/5+x^5/6"

for (x=2 to x<=5 step x= x+0.50)
{
y= x+(pow(x,2)/3)+(pow(x,3)/4)+(pow(x,4)/5)+(pow(x,5)/6)
write x, y
}

write "Y = 4exp(0.02t)"

for (t=10; t<=15; t=t+0.20)
{
y=4*exp(0.02*t)
write t, y
}
FIN

jueves, 17 de octubre de 2013

PRACTICA 4

PROBLEMA 1





ALGORITMO

1. Inicio
2. Definir variables
   ang real
3. Introducir valor de las variables
   write "Introduce el valor de un angulo"
   read ang
4. Realizar condicion e imprimir resultados
if ( ang < 90.0 )
{
write" El valor del angulo es agudo "
}
else
{
if ( ang == 90.0)
write "El valor del angulo es recto"
else
"El valor del angulo es obtuso"
}
5. Fin

PSEUDOCODIGO
Inicio
ang real
write "Introduce el valor de un angulo"
read ang
if ( ang < 90.0 )
{
write" El valor del angulo es agudo "
}
else
{
if ( ang == 90.0)
write "El valor del angulo es recto"
else
"El valor del angulo es obtuso"
}
Fin

PROBLEMA 2






ALGORITMO

1. Inicio
2. Declarar variables
   cred int
3. Lectura de datos
    write "Introduce numero de creditos completados"
    read cred
4. Realizar condicion e imprimir resultados
 if ( cred < 32)
{
write"Grado : Primer anio "
}
if ( cred >= 32 && cred <= 63 )
{
write"Grado : Segundo anio "
}
if ( cred >= 64 && cred <= 95 )
{
write"Grado : Tercer anio "<
}
if ( cred > 95 )
{
write"Grado: Ultimo anio "
}
5. Fin

PSEUDOCODIGO
Inicio
cred int
write "Introduce numero de creditos completados"
read cred
 if ( cred < 32)
{
write"Grado : Primer anio "
}
if ( cred >= 32 && cred <= 63 )
{
write"Grado : Segundo anio "
}
if ( cred >= 64 && cred <= 95 )
{
write"Grado : Tercer anio "
}
if ( cred > 95 )
{
write"Grado: Ultimo anio "
}
                                                                               Fin

PROBLEMA 3




PSEUDOCODIGO
Inicio
mes, entero
write "Introduce un numero del 1 al 12 "
read mes
if (mes == 1)
{
write"Enero"
}
else
{
if(mes < 1)
write"\n\a\a\aError\n\n"
}
if (mes == 2)
{
write"Febrero"
}
if (mes == 3)
{
write"Marzo"
}
if (mes == 4)
{
write"Abril"
}
if (mes == 5)
{
write"Mayo"
}
if (mes == 6)
{
write"Junio"
}
if (mes == 7)
{
write"Julio"
}
if (mes == 8)
{
write"Agosto"
}
if (mes == 9)
{
write"Septiembre"
}
if (mes == 10)
{
write"Octubre"
}
if (mes == 11)
{
write"Noviembre"
}
if (mes == 12)
{
write"Diciembre"
}
else
{
if(mes > 12)
write"\n\a\a\aError\n\n"
}
Fin

PROBLEMA 4



PRACTICA 5



PSEUDOCODIGO


Inicio 
letra, char
write"Introduzca una letra"
read letra
if ( letra == 'a' || letra == 'A')
{
write"La letra es vocal"
}
if ( letra == 'b' || letra == 'B')
{
write"La letra es consonante"
}
if ( letra == 'c' || letra == 'C')
{
write"La letra es consonante"
}
if ( letra == 'd' || letra == 'D')
{
write"La letra es consonante"
}
if ( letra == 'e' || letra == 'E')
{
write"La letra es vocal"
}
if ( letra == 'f' || letra == 'F')
{
write"La letra es consonante"
}
if ( letra == 'g' || letra == 'G')
{
write"La letra es consonante"
}
if ( letra == 'h' || letra == 'H')
{
write"La letra es consonante"
}
if ( letra == 'i' || letra == 'I')
{
write"La letra es vocal"
}
if ( letra == 'j' || letra == 'J')
{
write"La letra es consonante"
}
if ( letra == 'k' || letra == 'K')
{
write"La letra es consonante"
}
if ( letra == 'l' || letra == 'L')
{
write"La letra es consonante"
}
if ( letra == 'm' || letra == 'M')
{
write"La letra es consonante"
}
if ( letra == 'n' || letra == 'N')
{
write"La letra es consonante"
}
if ( letra == 'ñ' || letra == 'Ñ')
{
write"La letra es consonante"
}
if ( letra == 'o' || letra == 'O')
{
write"La letra es vocal"
}
if ( letra == 'p' || letra == 'P')
{
write"La letra es consonante"
}
if ( letra == 'q' || letra == 'Q')
{
write"La letra es consonante"
}
if ( letra == 'r' || letra == 'R')
{
write"La letra es consonante"
}
if ( letra == 's' || letra == 'S')
{
write"La letra es consonante"
}
if ( letra == 't' || letra == 'T')
{
write"La letra es consonante"
}
if ( letra == 'u' || letra == 'U')
{
write"La letra es vocal"
}
if ( letra == 'v' || letra == 'V')
{
write"La letra es consonante"
}
if ( letra == 'w' || letra == 'W')
{
write"La letra es consonante"
}
if ( letra == 'x' || letra == 'X')
{
write"La letra es consonante"
}
if ( letra == 'y' || letra == 'Y')
{
write"La letra es consonante"
}
if ( letra == 'z' || letra == 'Z')
{
write"La letra es consonante"
}

Fin

PROBLEMA 6



PSEUDOCODIGO

Inicio 
pre1, precio, largo, ancho, area real
write "Introduzca el largo en metros cuadrados del terreno"
read largo
write "Introduzca el ancho en metros cuadrados del terreno"
read ancho
area = largo * ancho
write "El area del terreno es ", area
if ( area  >= 300 && area < 400 )
{
pre1 = area * .05;
precio = area - pre1;
write "El precio del terreno es: ",precio
}
if ( area >= 400 && area < 500 )
 {
pre1 = area * 0.08;
precio = area - pre1;
write"El precio del terreno es: ",precio
}
if( area >= 500 )
{
pre1 = area * 0.10;
precio = area - pre1;
write"El precio del terreno es: ",precio
}
Fin

PROBLEMA 7




PROBLEMA 8





PROBLEMA 9


PSEUDOCODIGO

INICIO
ang, rad real tipo_angulo char
write "Introduzca el angulo: " read ang
write "Introduzca una Rad si el angulo esta en radianes o una G si el angulo esta en grados : "
read tipo_angulo if (tipo_angulo== 'G' || tipo_angulo=='g') 
then{write "El seno del angulo es:", sin(ang) 
write "El coseno del angulo es:, cos(ang) 
write "La tangente del angulo es: tan(ang)
write "La cotangente del angulo es: 1/tan(ang) 
write "La secante del angulo es: 1/cos(ang)} 
if (tipo_angulo=='R' || tipo_angulo=='r') 
then{rad= ang*3.1416 /180 
write "El seno del angulo es:", sin(rad) 
write "El coseno del angulo es:, cos(rad)
write "La tangente del angulo es: tan(rad)
write "La cotangente del angulo es: 1/tan(radi) 
write "La secante del angulo es: 1/cos(rad)}
else {write"Error en el tipo de angulo"} 


PROBLEMA 10