EJERCICIOS DE DECISION SIMPLE
 
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 SIMPLE
DECISION SIMPLE (SI)



Algo DS1.1;
Inicio
Real num;
ESCRIBA ("Digite el numero:");
Lea (num);
Si (num>0)entonces
escriba("el numero es positivo",num);
fsi
Final

Algo DS1.2;
Inicio
Real num;
escriba ("Digite numero:");
Lea (num);
Si (num>10)entonces
escriba ("El numero es mayor que 10",num);
fsi
Final


Algo DS1.3;
Inicio
Real a,num;
escriba ("Digite el numero:");
Lea (a);
num=a*a;
si (nun>1000)entonces
Imprima ("el cuadrado es mayor que 1000",num);
fsi
Final


Algo DS1.4;
Inicio
Real=num,va;
escriba ("Digite numero:");
Lea (num);
Si (num>0)entonces
va=num
Sino
va=num +(-1);
Imprima ("El valor absoluto es ",va);
fsi
Final

Algo DS1.5;
Inicio
Entero n;
escriba ("Digite numero:");
Lea (n);
Si(n<0)entonces
escriba ("es un numero negativo");
fsi
Final


Algo DS1.6;
Inicio
Real=num,cua;
Escriba("digite numero");
Lea(num);
Cua=num*num
Si(cua>500)entonces
Escriba(cua,"es mayor que 500")
Sino
Escriba(cua,"es menor que 500");
Fsi
Final


Algo DS2.1.
inicio
Real x;
escriba ("Digite numero:");
Lea (x);
Si (x>o && x<10)entonces
escriba (x,"si esta entre 0 y 10");
sino
escriba (x,"no esta entre 0 y 10");
fsi
Final





Algo D2.2;
Inicio
Entero n;
escriba ("Digite numero:");
Lea (n);
Si(x>50)entonces
Escriba(x, "es mayor que 50");
Sino
Escriba(x, "es menor o igual a 50");
Fsi final




Algo DS2.3;
Inicio
Entero num;
Imprima ("Digite numero:");
Lea (num);
Si (num%2==0)entonces
escriba (num,"el numero es par");
sino
escriba(num,"no es un numero par");
fsi
Final





Algo DS2.4
Inicio
Entero num;
escriba("Digite numero:");
Lea (num);
si (num%2==1)entonces
escriba("es numero impar",num);
sino
escriba("no es numero impar",num);
fsi
Final


Algo DS2.5;
Inicio
Entero num;
escriba("Digite numero:");
Lea (num);
Si (x>0)entonces
escriba("si es positivo",num);
Sino
escriba("no es positivo",num);
Fsi
Final






Algo DS2.6;
Inicio
Real=x;
escriba ("Digite numero:");
Lea (x);
Si(x<0)entonces
Escriba(x,"es un numero negativo");
Sino
Escriba(x,"no es un numero negativo");
Fsi
final

Algo DS2.7.;
Inicio
Real=x;
escriba ("Digite numero:");
Lea (x);
Si(xmod2==0)entonces
Escriba(x,"es par");
Sino
Escriba(x,"es impar");
fsi
Final







Algo DS2.8;
Inicio
Real=x
escriba ("Digite numero:");
Lea (x);
Si(x>0)entonces
Escriba(x,"es positivo");
sino
escriba(x,"es negativo");
fsi
Final


Algo DS2.9;
Inicio
Real=num;
Imprima ("Digite numero:");
Lea (num);
Si (num%2==0)entonces
Si(x>0)entonces
escriba ("el numero es par positivo",num);
fsi
Final







Algo DS2.10;
Inicio
Real=x
Escriba("digite numero")
Lea(x);
Si(x%2==1&&x>0)entonces
Escriba(x,"es numero impar positivo");
Fsi
Final

Ds2.11
Inicio
Real=x;
Escriba("digite numero")
Lea(x);
Si (x%2==0)entonces
Si(x<0)entonces
Escriba(x,"es par negativo");
Fsi
Fsi
Final



Algo 2.12.
Inicio
Real=x;
Escriba("digite numero");
Lea(x);
Si(x%2==1)entonces
Si(x<0)entonces
Escriba(x, "es impar negativo");
Fsi
Fsi
Final



Ds2.13.
Inicio
Entero x;
Imprima ("Digite numero:");
Lea (x);
Si(x>0.0)entonces
Si (x%2==0)entonces
Imprima ("el numero %d es par",x);
sino
Imprima ("el numero %d es impar",x);
fsi
Si (x>0)entonces
Imprima ("el numero %d es positivo",x);
sino
Imprima ("el numero %d es negativo",x);
Fsi
Final





Algo DS2.14;
Inicio
Entero n;
escriba("Digite numero:");
Lea (n);
Si (n>50 && n<100)entonces
Si(n%2==0.0)entonces
escriba ("el numero %d esta en el intervalo y
es par",n);
fsi
Final

Algo DS3.1;
Inicio
Entero x,y,ma,me;
escriba ("Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
Si (x>y)entonces
inicio
ma=x;
me=y;
Final
Sino
inicio
ma=y;
me=x;
Final
Fsi
escriba("el mayor es %d",ma);
escriba ("el menor es %d",me);
Final

Algo DS3.2;
Inicio
Entero x,y,Sum;
escriba ("Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
si (x>y)entonces
Sum=(x*x)+(y*y);
sino
Sum=(x*y)+(x*x);
Fsi
escriba ("Digite el resulado es %d",Sum);
Final

Algo DS3.3;
Inicio
Entero a,b;
escriba ("Digite primer numero:");
Lea (a);
escriba ("Digite segundo numero:");
Lea (b);
si (a>o && b>0)entonces
escriba (Los numeros %d y %d son
positivos",a,b);
fsi
Final


Algo DS21;
Inicio
Entero x,y;
escriba ("Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
si (a<0 && b<0)entonces
escriba ("los numeros %d y %d son negativos",x,y);
fsi
Final
Algo DS3.5;
Inicio
Entero x,y;
escriba ("Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
Si((x>0 & y%2==0)&&y%2>=0))entonces
escriba ("los numeros %d y %d son positivos pares",x,y);
fsi
Final



Algo DS3.6.;
Inicio
Entero x,y;
escriba ("Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
Si ((x<0.0& & y<0.0)entonces
Si(si x%2<=0.0&& y<0.0)entonces
escriba ("los numeros %d y %d son negativos
Impares";a,b);
fsi
Final

Algo DS3.7;
Inicio
Entero x,y;
escriba ("Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
Si ((x>0.0 &&y>0.0)entonces
Si (x%2<=0.0&&y<0.0)entonces
escriba ("los numeros %d y %d son positivos
impares",x,y);
fsi
Final



Algo DS3.8;
Inicio
Entero a,b;
escriba ("Digite primer numero:"); Lea (a);
escriba ("Digite segundo numero:"); Lea (b);
Si(a<0.0&&b<0.0)entonces
Si ((a <0.0 && b%2==0.0)entonces
escriba ("los numeros %d y %d son negativos pares",a,b);
fsi
Final


Algo DS3.9;
Inicio
Entero x,y;
escriba "Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
Si((x>0 & x%2==0)&&(y>0 & y%2==0))entonces
escriba ("los numeros %d y %d son positivos
pares",x,y);
Si ((x<0 & x%2==1)&&(y<0 & y%2==1))entonces
escriba ("los numeros %d y %d son negativos
impares"x,y);
Si ((x>0 & x%2==1)&&(y>0 & y%2==1))entonces
escriba ("los numeros %d y %d son positivos
impares",x,y);
Si ((x<0 & x%2==1)&&(y<0 & y%2==1))entonces
escriba ("los numeros %d y %d son
negativos pares",x,y);
Fsi
Fsi
Fsi
fsi
Final

Algo DS3.10;
Inicio
Entero x,y;
escriba ("Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
Si((x>=100&&x<=200)&&(x>=100 &&
y>=200))entonces
escriba ("Los numeros %d y %d estan en el
intervalo ",x,y);
fsi
Final

Algo DS3.11;
Inicio
Entero x,y;
escriba ("Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
Si (x<=0 && x>=200)&&( y>=100 && y>=200)entonces
escriba ("los numeros %d y %d estan en el
intervalo y son pares",x,y);
Sino
escriba ("los numeros %d y %d estan en el
intervalo y son impares",x,y);
Fsi
Fsi
Final

Algo DS4.2;
Inicio
Entero x,y,z,men;
escriba ("Digite primer numero:");
Lea (x);
escriba ("Digite segundo numero:");
Lea (y);
escriba ("Digite terce numero:");
Lea (z);
menor=x;
si (y men=y;
Fsi
Si (z men=z;
Fsi
escriba ("el menor es %d",men);
Final



Algo DS4.1;
Inicio
Entero a,b,c,mayor;
escriba ("Digite primer numero:");
Lea (a);
escriba ("Digite segundo numero:");
Lea (b);
escriba ("Digite terce numero:");
Lea (c);
a=mayor;
si (y mayor=b;
Fsi
Si (a mayor=c;
Fsi
escriba ("el mayor es %d",mayor);
Final


algo DS4.3;
Inicio
Entero a,b,c,med;
escriba ("Digite primer numero:");
Lea (a);
escriba ("Digite segundo numero:");
Lea (b);
escriba ("Digite tercer numero:");
Lea (c);
medio=a;
si(b medio=b;
Fsi
Si (c medio=c;
Fsi
escriba ("el medio es %d",medio);
Final

Algo DS4.4;
Inicio
Entero x,y,z,ma,me,men,a;
escriba ("Digite primer numero:"); Lea (x);
escriba ("Digite segundo numero:"); Lea (y);
escriba ("Digite tercer numero:"); Lea (z);
Si (x>y)entonces
Si (y>z)entonces
inicio
ma=x; me=y; men=z;
final
Sino
Si (x>z)entonces
Inicio
ma=x; me=z; men=y;
final
Sino
inicio
ma=z;
me=x;
men=y;
final
fsi
fsi
Sino
si (y>z)entonces
inicio
ma=y;
me=z;
men=x;
final
Sino
inicio
ma=z;
me=y;
men=x;
final
fsi
fsi
a= (2*ma) + (men*men);
escriba ("el mayor es %d y el menor es %d, el doble del
mayor más el cuadrado
del menor es %d", may,men,a);
Final

Algo DS4.5;
Inicio
Entero a,b,c,may,med,men;
escriba ("Digite primer numero:"); Lea (a);
escriba ("Digite segundo numero:"); Lea (b);
escriba ("Digite terce numero:"); Lea (c);
Si (a>b)entonces
Si (b>c)entonces
inicio
ma=a; med=c; men=b;
final
Sino
Si (b>c)entonces
Inicio
ma=b; med=c; men=a;
final
Sino
inicio
ma=b; me=c; men=a;
final
fsi
fsi
Sino
si (ya>c)entonces
inicio
ma=a; me=b; menc;
final
Sino
inicio
ma=a; me=b; men=c;
final
fsi
fsi
fsi
Final
escriba ("el mayor es %d y el medio es %d, el menor es %d", ma,me,men);
Final








Imagen