Tarea programacion
Enviado por El MimaRD • 16 de Noviembre de 2018 • Apuntes • 12.124 Palabras (49 Páginas) • 135 Visitas
Ejercicios capitulo 7
20. leer tres números enteros y mostrarlos ascendentemente
NT NUM1,NUM2,NUM3;
INICIO
ESCRIBA "Introduzca un numero: ";LEA NUM1;
ESCRIBA "Introduzca otro numero: ";
LEA NUM2;
ESCRIBA "Introduzca otro numero: ";
LEA NUM3;
SI(NUM3>=NUM1<=NUM2)
SI(NUM2
ESCRIBA "NUM1, NUM2, NUM3";
SINO
ESCRIBA "NUM1, NUM3, NUM2";
FIN_SI
SI(NUM1>=NUM2<=NUM3)
SI(NUM1
ESCRIBA "NUM2, NUM1, NUM3";
SINO
ESCRIBA "NUM2, NUM3, NUM1";
FIN_SI
SI(NUM1>=NUM3<=NUM2)
SI(NUM2
ESCRIBA "NUM3, NUM2, NUM1";
SINO
ESCRIBA "NUM3, NUM1, NUM2";
FIN_SI
FIN_SI
FIN
21. leer tres números enteros de dos dígitos cada uno y determinar en cual de ellos se encuentra el mayor digito
INT NUM1,NUM2,NUM3,DIG11,DIG12,DIG21,DIG22,DIG31,DIG32;
INICIO
ESCRIBA "Introduzca un numero: ";
LEA NUM1;
ESCRIBA "Introduzca otro numero: ";
LEA NUM2;
ESCRIBA "Introduzca otro numero: ";
LEA NUM3;
SI((9
DIG11=(NUM1/10)
DIG12=(NUM1%10)
DIG21=(NUM2/10)
DIG22=(NUM2%10)
DIG31=(NUM3/10)
DIG32=(NUM3%10)
FIN_SI
SI((DIG21 < DIG11 > DIG22 Y DIG32 < DIG11 > DIG31) O (DIG21 < DIG12 > DIG22 Y DIG31 < DIG12 > DIG32))
ESCRIBA "El digito mayor se encuentra en el primer numero";
FIN_SI
SI((DIG11
ESCRIBA "El digito mayor se encuentra en el segundo numero";
FIN_SI
SI((DIG11
ESCRIBA "El digito mayor se encuentra en el tercer numero";
FIN_SI
SINO
ESCRIBA "Numero invalido"
FIN_SI
FIN
22. leer un numero entero de tres dígitos y determinar si el primer digito es igual al ultimo
INT NUM,DIG1,DIG3;
INICIO
ESCRIBA "Introduzca un numero de tres digitos: ";
LEA NUM;
SI(99
DIG1=NUM/10/10
DIG3=NUM%10
SI(DIG1==DIG3)
ESCRIBA "El primer digito es igual al ultimo";
SINO
ESCRIBA "El primer digito no es igual al ultimo";
FIN_SI
SINO
ESCRIBA "Numero invalido";
FIN_SI
FIN
23. leer un numero entero de tres dígitos y determinar cuantos dígitos primos tiene
INT NUM,CANT=0,DIG1,DIG2,DIG3;
INICIO
ESCRIBA "Introduzca un numero de tres digitos: ";
LEA NUM;
SI(99
DIG1=NUM/10/10
DIG2=NUM/10%10
DIG3=NUM%10
SI((DIG1%2>0 && DIG1%3>0) || DIG1==2)
CANT=CANT+1
SI((DIG2%2>0 && DIG2%3>0) || DIG2==2)
CANT=CANT+1
SI((DIG3%2>0 && DIG3%3>0) || DIG3==2)
CANT=CANT+1
ESCRIBA "El numero tiene CANT digitos primos";
FIN_SI
SINO
ESCRIBA "Numero invalido";
FIN_SI
FIN
24. . leer un numero entero de tres dígitos y determinar cuantos dígitos pares tiene
INT NUM,CANT=0,DIG1,DIG2,DIG3;
INICIO
ESCRIBA "Introduzca un numero de tres digitos: ";
LEA NUM;
SI(99
DIG1=NUM/10/10
DIG2=NUM/10%10
DIG3=NUM%10
SI(DIG1%2==0)
CANT=CANT+1
SI(DIG2%2==0)
CANT=CANT+1
SI(DIG3%2==0)
CANT=CANT+1
ESCRIBA "El numero tiene CANT digitos pares";
FIN_SI
...