- ALGORITMO POSITIVO-NEGATIVO
- VAR
- A:ENTERO;
- INICIO
- ESCRIBA("POR FAVOR INGRESE UN NUMERO");
- LEA (A);
- SI (A > 0)
- ESCRIBA ("EL NUMERO ES POSITIVO");
- SI_NO
- ESCRIBA ("EL NUMERO ES NEGATIVO");
- FIN_SI
- FIN
DESARROLLAR UN ALGORITMO Q PERMITA MOSTRAR EL CUADRADO DE UN NUMERO.
- ALGORITMO CUADRADO
- VAR
- NUM,CUADRADO:ENTERO;
- INICIO
- ESCRIBA("POR FAVOR INGRESE UN NUM");
- LEA (NUM);
- CUADRADO DE NUM= NUM*NUM;
- ESCRIBA("EL RESULTADO ES:",CUADRADO):
- FIN
REALICE UN ALGORITMO QUE MUESTRE LA COMISION DE UN EMPLEADO QUE HACE UNA VENTA, CON LAS SGTES CONDICIONES: SI LA VENTA ES MENOR A UN MILLON LA COMISION ES DEL 3 % DE LA VENTA; SI LA VENTA ES IGUAL O MAYOR A UN MILLON LA COMISION SERA DE UN 5 %.
- ALGORITMO COMISION
- VAR
- VENTA,COMISION:ENTERO;
- INICIO
- ESCRIBA("INGRESE EL VALOR DE LA VENTA");
- LEA (VENTA)
- SI ( VENTA < $1000000)
- COMISION=VENTA*3/100;
- ESCRIBA("LA COMISION ES:",COMISION);
- SI_NO
- COMISION=VENTA*5/100;
- ESCRIBA("LA COMISION ES:",COMISION):
- FIN_SI
- FIN
HACER UN ALGORITMO QUE PERMITA INGRESAR UNA CANTIDAD EN METROS Y LAS CONVIERTA EN CM,KM PIES Y PULGADAS.
- ALGORITMO CONVERTIR
- VAR
- M,CM,KM,PIES,PULG:ENTERO;
- INICIO
- ESCRIBA("INGRESE UNA CANTIDAD EN METROS");
- LEA (M);
- CM=M*100;
- ESCRIBA("LA CONVERSION A CM ES:",CM);
- KM=M/100;
- ESCRIBA("LA CONVERSION A KM ES:",KM);
- PIES=M*3.28;
- ESCRIBA("LA CONVERSION A PIES ES:",PIES);
- PULG=M*39.37,
- ESCRIBA("LA CONVERSION A PULG ES:",PULG);
- FIN
No hay comentarios:
Publicar un comentario