1- Program CalculoFactura;
Uses Crt; { Para usar ClrScr y ReadLn }
Var
ImporteBruto: Real;
IVA: Real;
Descuento: Real;
ImporteConIVA: Real;
ImporteTotal: Real;
Begin
ClrScr; { Limpia la pantalla }
Write('Ingrese el importe bruto de la factura (en pts): ');
ReadLn(ImporteBruto);
{ Calcular el IVA (12%) }
IVA := ImporteBruto * 0.12;
{ Calcular el descuento si aplica (5% si es superior a 50000 pts) }
If ImporteBruto > 50000 Then
Begin
Descuento := ImporteBruto * 0.05;
WriteLn('Se ha aplicado un descuento del 5%.');
End
Else
Begin
Descuento := 0;
WriteLn('No se aplica descuento.');
End;
{ Calcular el importe con IVA (antes del descuento) }
ImporteConIVA := ImporteBruto + IVA;
{ Calcular el importe total con descuento aplicado }
ImporteTotal := ImporteConIVA - Descuento;
WriteLn; { Salto de línea para mejor presentación }
WriteLn('--- Detalles de la Factura ---');
WriteLn('Importe Bruto: ', ImporteBruto:0:2, ' pts');
WriteLn('IVA (12%): ', IV[Link], ' pts');
WriteLn('Descuento: ', Descuento:0:2, ' pts');
WriteLn('-----------------------------');
WriteLn('Importe Total: ', ImporteTotal:0:2, ' pts');
WriteLn;
Write('Presione Enter para salir...');
ReadLn; { Espera a que el usuario presione Enter para cerrar la ventana
de DOSBox }
End.
2-Program OrdenCreciente;
Uses Crt; { Para usar ClrScr y ReadLn }
Var
Num1, Num2, Num3: Integer; { Declaramos tres variables enteras para los
números }
Begin
ClrScr; { Limpia la pantalla }
Write('Ingrese el primer numero: ');
ReadLn(Num1);
Write('Ingrese el segundo numero: ');
ReadLn(Num2);
Write('Ingrese el tercer numero: ');
ReadLn(Num3);
WriteLn; { Salto de línea para mejor presentación }
{ Comprobamos si los numeros estan en orden creciente }
If (Num1 < Num2) And (Num2 < Num3) Then
Begin
WriteLn('Los numeros estan en orden creciente.');
End
Else
Begin
WriteLn('Los numeros NO estan en orden creciente.');
End;
WriteLn;
Write('Presione Enter para salir...');
ReadLn; { Espera a que el usuario presione Enter }
End.
3-Program CalificacionAlfanumerica;
Uses Crt; { Para usar ClrScr y ReadLn }
Var
CalificacionNumerica: Integer;
CalificacionAlfabetica: Char;
Begin
ClrScr; { Limpia la pantalla }
WriteLn('Programa de Conversion de Calificaciones');
WriteLn('----------------------------------------');
WriteLn('Ingrese una calificacion numerica (del 4 al 8): ');
ReadLn(CalificacionNumerica);
{ Usamos una estructura CASE OF para manejar las diferentes
calificaciones }
Case CalificacionNumerica Of
4: Begin
CalificacionAlfabetica := 'E';
WriteLn('La calificacion numerica ', CalificacionNumerica, '
corresponde a: ', CalificacionAlfabetica);
End;
5: Begin
CalificacionAlfabetica := 'D';
WriteLn('La calificacion numerica ', CalificacionNumerica, '
corresponde a: ', CalificacionAlfabetica);
End;
6: Begin
CalificacionAlfabetica := 'C';
WriteLn('La calificacion numerica ', CalificacionNumerica, '
corresponde a: ', CalificacionAlfabetica);
End;
7: Begin
CalificacionAlfabetica := 'B';
WriteLn('La calificacion numerica ', CalificacionNumerica, '
corresponde a: ', CalificacionAlfabetica);
End;
8: Begin
CalificacionAlfabetica := 'A';
WriteLn('La calificacion numerica ', CalificacionNumerica, '
corresponde a: ', CalificacionAlfabetica);
End;
Else { Si el numero ingresado no esta entre 4 y 8 }
WriteLn('Calificacion numerica no valida. Por favor, ingrese un
numero del 4 al 8.');
End; { Fin del Case }
WriteLn;
Write('Presione Enter para salir...');
ReadLn; { Espera a que el usuario presione Enter }
End.
4-Program DiaDeLaSemana;
Uses Crt; { Para usar ClrScr y ReadLn }
Var
NumeroDia: Integer;
Begin
ClrScr; { Limpia la pantalla }
WriteLn('Programa: Numero a Dia de la Semana');
WriteLn('-----------------------------------');
Write('Ingrese un numero del 1 al 7: ');
ReadLn(NumeroDia);
WriteLn; { Salto de linea para mejor presentacion }
{ Usamos CASE OF para mostrar el dia correspondiente }
Case NumeroDia Of
1: WriteLn('El dia correspondiente es Lunes.');
2: WriteLn('El dia correspondiente es Martes.');
3: WriteLn('El dia correspondiente es Miercoles.');
4: WriteLn('El dia correspondiente es Jueves.');
5: WriteLn('El dia correspondiente es Viernes.');
6: WriteLn('El dia correspondiente es Sabado.');
7: WriteLn('El dia correspondiente es Domingo.');
Else { Si el numero no esta en el rango 1-7 }
WriteLn('Numero fuera de rango. Por favor, ingrese un numero del 1
al 7.');
End; { Fin del Case }
WriteLn;
Write('Presione Enter para salir...');
ReadLn; { Espera a que el usuario presione Enter }
End.
