Algoritmia - importe de la compra, tipo de comprador y la editorial

   
Vista:

importe de la compra, tipo de comprador y la editorial

Publicado por marianela (1 intervención) el 15/06/2017 05:12:52
3. Una librería muy famosa ofrece descuentos dependiendo de la editorial y del tipo de comprador, según la siguiente tabla:

EDITORIAL - ESTUDIANTE - PUBLICO EN GENERAL
SAN marcos - 25% - 10%
COVEÑAS - 30% - 13%
OTROS - 35% - 16%

Construya un algoritmo que ingrese el importe de la compra, el tipo de comprador y la editorial, muestre el descuento, importante total a pagar. Asuma que el monto total de la compra es de una misma editora.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

importe de la compra, tipo de comprador y la editorial

Publicado por dario dariodr32@yahoo.com (18 intervenciones) el 15/06/2017 11:58:58
Te dejo el codigo en pascal.
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses crt;
var
	desc,total,importe:real;
	tipoComprador,editorial:string;
begin
	clrscr;
	write('Importe de la compra: ');
	readln(importe);
	write('Tipo de comprador [estudiante o publico en general]:');
	readln(tipoComprador);
	write('Casa editorial: ');
	readln(editorial);
 
	if (editorial = 'san marcos') and (tipoComprador = 'estudiante') then begin
		desc:=importe * 0.25;
		total:=importe - desc;
		writeln('Descuento = ',desc:5:2);
		writeln('Monto total = ',total:5:2)
	end
	else if (editorial = 'san marcos') and (tipoComprador = 'publico') then begin
		desc:=importe * 0.10;
		total:=importe - desc;
		writeln('Descuento = ',desc:5:2);
		writeln('Monto total = ',total:5:2)
	end
	else if (editorial = 'covenas') and (tipoComprador = 'estudiante') then begin
		desc:=importe * 0.30;
		total:=importe - desc;
		writeln('Descuento = ',desc:5:2);
		writeln('Monto total = ',total:5:2)
	end
	else if (editorial = 'covenas') and (tipoComprador = 'publico') then begin
		desc:=importe * 0.13;
		total:=importe - desc;
		writeln('Descuento = ',desc:5:2);
		writeln('Monto total = ',total:5:2);
	end
	else if (editorial = 'otros') and (tipoComprador = 'estudiante') then begin
		desc:=importe * 0.35;
		total:=importe - desc;
		writeln('Descuento = ',desc:5:2);
		writeln('Monto total = ',total:5:2)
	end
	else begin
		desc:=importe * 0.16;
		total:=importe - desc;
		writeln('Descuento = ',desc:5:2);
		writeln('Monto total = ',total:5:2)
	end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar