ALGORITMOS Y DFD

...

FinSi

Si numero1 99 entonces

Escribir "Su numero es de tres digito";

FinSi

FinProceso

[pic 6]

7. Realice un algoritmo que lea el valor de una compra. Si la compra está entre 300.000 y 500.000 se hace descuento de 10%. Si la compra es superior a 500.000 se hace descuento de 15%. Se debe informar el valor neto de la compra.

Proceso compras

Definir precio Como Entero;

Definir descuento Como Real;

Escribir "ESCIBA EL VALOR DE COMPRA";

Leer precio;

Si precio >= 300000 y precio

Escribir "SU COMPRA ES MAYOR A 300.000 SE APLICA DESCUENTO DEL 10.% TOTAL DESCUENTO";

Escribir precio*10/100;

Escribir "NETO A PAGAR";

Escribir precio-precio*10/100;

FinSi

Si precio >= 500001 entonces

Escribir "SU COMPRA ES MAYOR A 500.000 SE APLICA DESCUENTO DEL 15% TOTAL DESCUENTO%";

Escribir precio*15/100;

Escribir "NETO A PAGAR";

Escribir precio-precio*15/100;

FinSi

FinProceso

[pic 7]

8. Realice un algoritmo que lea dos números, se debe informar si la suma de los números tiene más de dos dígitos o no.

Proceso digitosDeDos

Definir numero1 como entero;

Definir numero2 como entero;

Definir resultado como entero;

Escribir "Digite su primer numero";

Leer numero1;

Escribir "Digite su segundo numero";

Leer numero2;

Resultado

Escribir "SU RESULTADO ES";

Escribir "",resultado;

Si resultado

Escribir "No tiene dos digitos";

FinSi

Si resultado >=10 y resultado

Escribir "No tiene más de dos Digitos";

FinSi

Si resultado >99 entonces

Escribir ">Tiene más de dos Digitos";

FinSi

FinProceso

[pic 8]

9. Realice un algoritmo que lea un número. Se debe informar si el número es múltiplo de 3 y 5.

Proceso multiplos

Definir numero como entero;

Escribir "Ingrese el valor de numero:";

Leer numero;

Si (numero MOD 3) = 0 Entonces

Escribir "es multiplo de 3";

FinSi

Si (numero MOD 5) = 0 Entonces

Escribir "es multiplo de 5";

FinSi

FinProceso

[pic 9]

10. Realice un programa que lea un número de dos dígitos (entre 10 y 99). Se debe informar si la suma de los dígitos es mayor de 5 o no.

Proceso Digitos

Definir cont como entero;

Definir aux como entero;

Definir n como entero;

Definir i como entero;

Definir pot como entero;

Definir digito como entero;

Escribir "Ingrese un numero entero postivo:";

Leer n;

cont

aux

Mientras aux>0 hacer // mientras no sea cero

cont

aux

FinMientras

Escribir "El numero tiene ",cont," digitos";

aux

Para i

pot

digito

aux

Escribir "El digito ",i," es ",digito;

FinPara

FinProceso

[pic 10]