EJERCICIOS DE DECISION MULTIPLE
 
Mis aficiones nuevo
EL HOMBRE QUE CALCULABA ( resumen)
EJERCICIOS DE DECISION SIMPLE
BIENVENIDOS A CANDY_LUNA INFORMATIC
TEORIA DE INFORMATICA
TAREA SEIS
DEFINICION DE ALGORITMO
RESOLUCION DE PROBLEMAS
BIOGRAFIAS DE MATEMATICOS
EJERCICIOS SECUENCIALES
MANUAL DEL DFD
EJERCICIOS DE DECISION MULTIPLE
EJERCICIOS DE CICLOS
EJERCICIOS DE FUNCIONES
EJERCICIOS DE ARREGLOS
TAREA SIETE
TAREA UNO
TAREA TRES
Mis aficiones nuevo
PROGRAMACION ORIENTADA A OBJETOS
EJERCICIOS DE DECISION MULTIPLE
DECISION MULTIPLE

DM1) Leer un número de un dígito y escribir su correspondiente en letras.

Algo dm1;
Inicio
Entero num ;
escriba("digite número:");
Lea (num);
Evaluar (num)
Inicio
Caso 0 :imprima ("cero");
rompa;

Caso 1 imprima ("uno");
. rompa;
.
.
Caso 9 :imprima ("nueve");
rompa;


Defecto; imprima ("el numero %d no es
de un dígito", num);
Final

Final






DM1.2) Leer un número cualquiera y decir si es un dígito , en caso contrario no es de un dígito.


Algo dm2;
Inicio
Entero num;
escriba ("digite número:");
Lea (num);
Evaluar (num)
Inicio
Caso 0 : escriba ("es de un dígito");
rompa;

Caso 1 : escriba("es de un dígito");
. rompa;
.
.
Caso 9 : escriba ("es de un dígito");
rompa;

Defecto; escriba ("no es de un dígito",
num);
Final

Final


DM1.3) Leer un carácter cualquiera y decir si es una vocal, en caso contrario no es una vocal.


Algo dm3;
Inicio
Chart letra;
escriba("digite carácter:");
Lea (letra);
Letra = mayús.(letra);
Evaluar (letra)
Inicio
Caso `A` : escriba ("vocal");
rompa;

Caso `E` : escriba ("vocal");
rompa;

Caso `I` : escriba ("vocal");
rompa;

Caso `O` : escriba ("vocal");
rompa;

Caso `U ` : escriba ("vocal");
rompa;

Defecto : escriba ("el carácter %C no
es vocal", letra);
Final

Final



DM1.4) Leer una letra que corresponda a un número romano y encontrar su valor en números decimales, en caso contrario decir no es un número romano valido.

Algo dm1.4;
Inicio
Carácter letra;
escriba("digite carácter:");
Lea (letra);
Letra = mayús.(letra);
Evaluar (letra)
Inicio
Caso `I` : escriba ("uno");
rompa;

Caso `V` : escriba ("cinco");
rompa;

Caso `X` : escriba ("diez");
rompa;

Caso `L` : escriba ("cincuenta");
rompa;

Caso `C` : escriba ("cien");
rompa;

Defecto : escriba ("el carácter %C no
corresponde número romano",
letra);
Final

Final



DM1.5) Encontrar el área del trapecio o del triángulo o del cuadrado o del rectángulo o de la circunferencia, en caso contrario no es una figura geométrica valida.


Algo dm1.5;
Inicio
ConsPI= 3.1416
Real b1,b2,h,a;
Carácter fg;
escriba("riángulo, uadrado, tra

ecio,
ectángulo, crcunferencia :");
Lea (fg);
fg = mayus(fg);
Evaluar (fg)
Inicio

Caso `T` : escriba ("digite base:");
Lea (b1);
escriba ("digite altura:");
Lea (h);
a = (b1*h)/2.0;
escriba("el área es %f", a);
rompa;


Caso `C` : escriba ("digite lado:");
Lea (b1);
a = b1*b1;
escriba ("el área el cuadrado
es %f", a);
rompa;



Caso `P` : escriba ("digite base
mayor:");
Lea (b1);
escriba("digite base
menor:");
Lea (b2);
escriba("digite altura:");
Lea (h);
a = (b1+b2)*h/2.0;
escriba ("el área del trapecio
es %f", a);
rompa;




Caso `R` : escriba ("digite lado
mayor:");
Lea (b1);
escriba ("digite lado
menor:");
Lea (b2);
a = b1*b2;
escriba ("el área del
rectángulo es %f", a);
rompa;

Caso `I` : escriba ("digite radio:");
Lea (h);
a = (h*h)*PI;
escriba ("el área de la
circunferencia es %f", a);
rompa;


Defecto : escriba ("%F no es una figura
geométrica valida", fg);
Final
Final




DM1.6) Encontrar el volumen del cubo o del cilindro o de la esfera o del cono.


Algo dm1.6;
Inicio
consPI 3.1416
cons OP 1.33
Real r,h,v;
Chart fg;
escriba ("ubo, clindro, sfera,
cno");
Lea (fg);
fg = mayus(fg);
Evaluar (fg)
Inicio
Caso `C` : escriba ("digite lado:");
Lea (r);
v = (r*r*r);
escriba ("el volumen del
cubo es %f", v);
rompa;

Caso `I` : escriba ("digite radio:");
Lea (r);
escriba("digite altura:");
Lea (h);
v = (PI)* (v*r)*h;
escriba ("el volumen del
cilindro %f", v);
rompa;

Caso `E` : escriba ("digite radio:");
Lea (r);
v = OP*(PI)*r*r*r;
escriba ("el volumen de la
esfera es %f", v);
rompa;

Caso `O` : escriba ("digite radio:");
Lea (r);
escriba("digite altura:");
Lea (h);
v = PI* (r*r)*h/3;
escriba ("el volumen del
cono %f", v);
rompa;

Defecto : escriba ("%F no es una figura
geométrica valida", fg);
Final

Final



DM1.7) Leer cierta cantidad de dinero en pesos y encontrar el cambio bien sea en francos(franceses) o dólares o en bolívares o en sucres.

Algo dm1.7;
Inicio
Real f,b,p,s,d;
Chart con;
escriba("digite cantidad de pesos a convertir:");
Lea (p);
escriba("desea convertir a rancos, ólares,
olivares, ucres");
Lea (con);
con = mayus(con);
Evaluar (con)
Inicio
Caso `F` :F = p/587;
escriba ("%f pesos equivale a
%f francos"p,f);
rompa;

Caso `D` :D = p/1987.63;
escriba ("%f pesos equivale a
%f Dólares"p,d);
rompa;

Caso `B` :B = p/3.25;
escriba ("%f pesos equivale
a %f bolívares"p,b)
rompa;


Caso `S` :S = 0.22;
escriba ("%f pesos equivale a
%f sucres"p,s);
rompa;

Defecto : escriba ("la opción de
cambio no es valida");
Final

Final
DM1.8) Leer cierta cantidad de dinero en bolívares y encontrar el cambio bien sea en pesos o en francos(franceses) o dólares o en sucres.

Algo dm1.9;
Inicio
Real f,b,p,s,d;
Chart con;
escriba ("digite cantidad de bolívares a convertir:");
Lea (b);
escriba ("desea convertir a

esos, rancos, ólares, ucres");
Lea (con);
con = mayus(con);
Evaluar (con)
Inicio
Caso `P` :P = b*4;
escriba ("%f bolívares equivale
a %f pesos"b,p);
rompa;

Caso `F` :F = b*5000;
escriba ("%f bolívares equivale a
%f francos"b,f);
rompa;


Caso `D` :D = b*8000;
escriba ("%f bolívares equivale
a %f dólares"b,d);
rompa;


Caso `S` :S = b*10;
escriba ("%f bolívares equivale
a %f sucres"b,s);
rompa;

Defecto : escriba ("la opción de
cambio no es valida");
Final

Final
DM1.9) Leer cierta cantidad de dinero en dólares y encontrar el cambio bien sea en pesos o en francos(franceses) o en bolívares o en sucres.

Algo dm1.9;
Inicio
Real f,b,p,s,d;
Chart con;
escriba ("digite cantidad de dólares a convertir:");
Lea (d);
escriba ("desea convertir a

esos, rancos, olivares, ucres");
Lea (con);
con = mayus(con);
Evaluar (con)
Inicio
Caso `P` :P = d*2000;
escriba ("%f dólares equivale
a %f pesos"d,p);
rompa;

Caso `F` :F = d*1.5;
escriba ("%f dólares equivale a
%f francos"d,f);
rompa;


Caso `B` :B = d*5000;
escriba ("%f dólares equivale a
%f bolívares"d,b);
rompa;


Caso `S` :S = d*8000;
escriba ("%f dólares equivale a
%f sucres"d,s);
rompa;

Defecto : escriba ("la opción de
cambio no es valida");
Final

Final

DM.1.12) Leer cierta cantidad de dinero en Francos (franceses) y encontrar el cambio bien sea en pesos o dólares o en bolívares o en sucres.

Algo dm8;
Inicio
Real f,b,p,s,d;
Chart con;
escriba ("digite cantidad de francos a convertir:");
Lea (f);
escriba ("desea convertir a

esos, ólares,
olivares, ucres");
Lea (con);
con = mayus(con);
Evaluar (con)
Inicio
Caso `P` :P = f/100;
escriba ("%f francos equivale
a %f pesos"f,p);
rompa;

Caso `D` :D = f*0.8;
escriba ("%f francos equivale a
%f Dólares"f,d);
rompa;


Caso `B` :B = f*5000;
escriba ("%f francos equivale a
%f bolívares"f,b);
rompa;


Caso `S` :S = f*6400;
escriba ("%f francos equivale a
%f sucres"f,s);
rompa;

Defecto : escriba ("la opción de
cambio no es valida");
Final

Final











DM11.10) Leer cierta cantidad de dinero en soles y encontrar el cambio bien sea en pesos o en francos(franceses) o dólares o en bolívares.

Algo dm11;
Inicio
Real f,b,p,s,d;
Chart con;
escriba ("digite cantidad de soles a convertir:");
Lea (s);
escriba ("desea convertir a

esos, rancos, olivares, ólares");
Lea (con);
con = mayus(con);
Evaluar (con)
Inicio
Caso `P` :P = s*15;
escriba ("%f soles equivale
a %f pesos"s,p);
rompa;

Caso `F` :F = s*4000;
escriba ("%f soles equivale a
%f francos"s,f);
rompa;


Caso `B` :B = s*10;
escriba ("%f soles equivale a
%f bolívares"s,b)
rompa;


Caso `D` :D = s*5000;
escriba ("%f soles equivale a
%f dólares"s,d);
rompa;

Defecto : escriba ("la opción de
cambio no es valida");
Final

Final


DM1.13) Leer la temperatura de grados Celcius y convertirla a Kelvin o Farenheit.


Algo dm113;
Inicio
Chart con;
Real c,k,f;
escriba ("digite cantidad de grados celcius:");
Lea (c);
escriba ("desea convertir de grados celcius a elvin, arenheit");
Lea (con);
con = mayus(con);
Evaluar (con)
Inicio
Caso `K` : K = C+273;
escriba ("%f grados celcius equivalen
a %F grados kelvin",c,k);
rompa;

Caso `F` : F = 1.8*C+32;
escriba ("%f grados celcius equivalen a
%F grados farenheit",c,f);
rompa;


Defecto : escriba ("la opción de conversión
no es valida");

Final

Final


DM1.14) Leer la temperatura de grados Kelvin y convertirla a Celcius o Farenheit.


Algo dm1.14;
Inicio
Chart con;
Real c,k,f;
escriba ("digite cantidad de grados kelvin:");
Lea (k);
escriba ("desea convertir de grados kelvin a elcius, arenheit");
Lea (con);
con = mayus(con);
Evaluar (con)
Inicio
Caso `C` : C = K+273;
escriba ("%f grados kelvin equivalen a
%F grados celcius",k,c);
rompa;

Caso `F` : F = 1.8*K-32+273;
escriba ("%f grados kelvin equivalen a
%F grados farenheit",k,f);
rompa;


Defecto : escriba ("la opción de conversión
no es valida");

Final

Final


DM1.15) Leer la temperatura de grados Farenheit y convertirla a Celcuis, kelvin.


Algo dm1.15;
Inicio
Chart con;
Real c,k,f;
escriba ("digite cantidad de grados Farenheit:");
Lea (f);
escriba ("desea convertir de grados farenheit a elcius, elvin");
Lea (con);
con = mayus(con);
Evaluar (con)
Inicio
Caso `C` : C = F-32/1.8;
escriba ("%f grados farenheit equivalen a
%F grados celcius",f,c);
rompa;

Caso `K` : K = F-273+32/1.8;
escriba ("%f grados farenheit equivalen a %F grados kelvin"f,k);
rompa;


Defecto : escriba ("la opción de conversión
no es valida");

Final

Final

Imagen