• Lenguaje

    Pascal

  • Descripción

    Los estudiantes de la UNAB se les ha concedido un descuento especial por la compra de libros de computación. Dicho descuento consiste que si la compra supera los $100.00 se le aplicará un descuento del 10% de lo contrario sólo se les aplicará un 5%, se desea que se muestre:
    - El nombre del estudiante
    - Total de la compra sin descuento
    - % de Descuento
    - El valor de descuento
    - Valor final a pagar por los libros

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program CompraDeLibrosDeComputacion;
uses crt;

var compra_de_libros, descuento, pago_final, porcentaje_de_descuento, total_sin_descuento : real;
var nombre_del_estudiante : string;
begin
    write ('Ingresa el nombre del estudiante: ');
    readln (nombre_del_estudiante);
    write ('Ingresa el valor de compra de libros: ');
    readln (compra_de_libros);
    total_sin_descuento := compra_de_libros;
    if compra_de_libros>100 then
        begin
            porcentaje_de_descuento := 10;
        end
    else
        begin
            porcentaje_de_descuento := 5;
        end;
    descuento := porcentaje_de_descuento*compra_de_libros/100;
    pago_final := compra_de_libros-descuento;
    writeln ('Nombre del estudiante: ', nombre_del_estudiante);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de pago final: ', pago_final:0:6);
    writeln ('Valor de porcentaje de descuento: ', porcentaje_de_descuento:0:6);
    writeln ('Valor de total sin descuento: ', total_sin_descuento:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.