Decision Simple

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
FinalAlgo 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 ("Digitenumero:");
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 ("Digitenumero:");
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("Digitenumero:");
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)entoncesescriba ("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);...