-
Lenguaje
Pascal
-
Descripción
Digite el nombre del cliente y su importe de compra, en caso que su importe sea 150 o más, se le descontará el 12%. Mostrar el descuento otorgado y el importe de compra final.
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
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
program DescuentoDel12;
uses crt;
var descuento_otorgado, importe, importe_de_compra_final : real;
var nombre_del_cliente : string;
begin
write ('Ingresa el nombre del cliente: ');
readln (nombre_del_cliente);
write ('Ingresa el valor de importe: ');
readln (importe);
if importe>=150 then
begin
descuento_otorgado := importe*0.12;
end
else
begin
descuento_otorgado := 0;
end;
importe_de_compra_final := importe-descuento_otorgado;
writeln ('Nombre del cliente: ', nombre_del_cliente);
writeln ('Valor de descuento otorgado: ', descuento_otorgado:0:6);
writeln ('Valor de importe de compra final: ', importe_de_compra_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento_otorgado, importe, importe_de_compra_final : real;
var nombre_del_cliente : string;
begin
write ('Ingresa el nombre del cliente: ');
readln (nombre_del_cliente);
write ('Ingresa el valor de importe: ');
readln (importe);
if importe>=150 then
begin
descuento_otorgado := importe*0.12;
end
else
begin
descuento_otorgado := 0;
end;
importe_de_compra_final := importe-descuento_otorgado;
writeln ('Nombre del cliente: ', nombre_del_cliente);
writeln ('Valor de descuento otorgado: ', descuento_otorgado:0:6);
writeln ('Valor de importe de compra final: ', importe_de_compra_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.