-
Lenguaje
Pascal
-
Descripción
Una tienda ofrece un descuento del 30% sobre el total de la compra, a los clientes que cumplan la condición de tener más de 70 años, el cliente desea saber cuánto deberá pagar finalmente por su compra, mostrar también el descuento y el nombre del cliente.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program DescuentoAMayoresDe70Anos;
uses crt;
var descuento, edad, pago_final, total_de_la_compra : real;
var nombre_del_cliente : string;
begin
write ('Ingresa el nombre del cliente: ');
readln (nombre_del_cliente);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de total de la compra: ');
readln (total_de_la_compra);
descuento := 0;
if edad>70 then
begin
descuento := total_de_la_compra*0.3;
end;
pago_final := total_de_la_compra-descuento;
writeln ('Nombre del cliente: ', nombre_del_cliente);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de pago final: ', pago_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento, edad, pago_final, total_de_la_compra : real;
var nombre_del_cliente : string;
begin
write ('Ingresa el nombre del cliente: ');
readln (nombre_del_cliente);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de total de la compra: ');
readln (total_de_la_compra);
descuento := 0;
if edad>70 then
begin
descuento := total_de_la_compra*0.3;
end;
pago_final := total_de_la_compra-descuento;
writeln ('Nombre del cliente: ', nombre_del_cliente);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de pago final: ', pago_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.