TRABAJO 2
Algoritmo y Programación

Realizado por: Randy Barreno.

Ejercicio:

Realice un programa en un lenguaje de programación cualquiera para la resolución del siguiente problema:

A partir de los códigos de los usuarios y las multas establecidas en una biblioteca por concepto de impuntualidad en la devolución de publicaciones prestadas, determine:

• Cantidad de personas que recibieron multa
• Monto total por concepto de las multas
• Porcentaje de usuarios que tienen multas superiores a 5000 BS.

USES NEWDELAY,CRT;
VAR CONTPERSONAS : INTEGER;

CONTMAYOR5 : INTEGER;
NRO : INTEGER;
ACUMMULTAS : REAL;
MONTO : REAL;
OPCION : CHAR;

BEGIN
PATCHCRT(CRT.DELAY);
CONTPERSONAS:=0;
CONTMAYOR5 := 0;
ACUMMULTAS:= 0;

REPEAT
CLRSCR;

WRITELN ('PROGRAMA PARA REGISTRO DE MULTAS');
WRITELN ('DATOS DE LA PERSONA:');
WRITELN;
WRITE ('NRO. DE REGISTRO : ');
READLN(NRO);
WRITE ('MONTO DE LA MULTA: ');
READLN(MONTO);

CONTPERSONAS:=CONTPERSONAS+1;

IF (MONTO > 5000) THEN

CONTMAYOR5 := CONTMAYOR5 + 1;

ACUMMULTAS:=ACUMMULTAS+MONTO;
WRITELN;
WRITELN ('DESEA PROCESAR OTRO REGISTRO...? (Si = S No = N)');
OPCION :=UPCASE(READKEY);

UNTIL (OPCION ='N');

CLRSCR;

WRITELN ('RESULTADOS DEL PROGRAMA PARA REGISTRO DE MULTAS');
WRITELN;
WRITELN;
WRITELN ('TOTAL DE MONTO ACUMULADO POR LAS MULTAS: ',ACUMMULTAS:7:2);
WRITELN;
WRITELN ('TOTAL DE PERSONAS MULTADAS : ',CONTPERSONAS);
WRITELN;
WRITELN ('TOTAL DE PERSONAS CON MULTAS > 5000 : ',CONTMAYOR5);
WRITELN;
WRITELN;
WRITELN;
WRITELN ('* * * PULSE UNA TECLA PARA FINALIZAR * * *');

READKEY;

END.

____

GRAFICA DEL PROCESO.

Bibliografia:

Boger, Thomas- Fundamentos de Programaciòn Utilizando Turbo Pascal- Limusa- 1.994.

Ceballos Sierra, Javier- Manual Para Turbo Basic- Macrobit- 1.990.

Joyanes Aguilar, Luis- Pascal y Turbo Pascal- McGraw-Hill- 1.995.