necesito ayuda para cambiar el color a mi programa "basico de pascal
Publicado por tomas (2 intervenciones) el 28/11/2019 01:35:18
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
Program Ventas;
//este programa tendra como fin la venta de cd's de musica{hay tres promos
2x1 y 3x2 en cantidad.
ademas llevando 4 o mas cuesta la mitad.
}
CONST
cd=200;
N=70;
VAR
Cantidad:integer;
CantidadAcum:integer;
precioCant:real;
socio:string;
sociodesc:real;
TipoPago:string;
desc:real;
pago:real;
PagosAcum:real;
PagoTot:real;
Aument:real;
i:integer;
seguir:string;
begin
WriteLn('Bienvenido, en este programa gestionaremos la venta de CDs');
//crea lineas divisoras
For i:=1 to N do
begin
Write('_');
end;
WriteLn('_');
Repeat
//muestra la informacion de los CDs
WriteLn('cada cd vale $200');
WriteLn('hay tres promos:');
WriteLn('2x1 y 3x2');
WriteLn('o llevando 4 o mas cd cuesta la mitad del precio');
WriteLn('ingresa la cantidad de CDs que desea llevar');
ReadLn(Cantidad);
//crea lineas divisoras
For i:=1 to N do
begin
Write('_');
end;
WriteLn('_');
//pregunta y valida si es socio
Repeat
WriteLn('usted es socio?');
ReadLn(socio);
Until (UPCASE(socio)='SI') or (UPCASE(socio)='NO');
//crea lineas divisoras
For i:=1 to N do
begin
Write('_');
end;
WriteLn('_');
//le dan precio dependiendo la cantidad de CDs
if cantidad=1 then
precioCant:=cd;
if cantidad=2 then
precioCant:=cd;
if cantidad=3 then
precioCant:=cd*2;
if cantidad>4 then
precioCant:=(cd*cantidad)/2;
//crea un descuento dependiendo si es socio o no
if (UPCASE(socio)='SI') then
begin
WriteLn('al ser socio usted recive un 2% de descuento');
sociodesc:=(cd*2)/100;
For i:=1 to N do
begin
Write('_');
end;
WriteLn('_');
end
else
begin
WriteLn('no recibe descuento');
sociodesc:=0;
For i:=1 to N do
begin
Write('_');
end;
WriteLn('_');
end;
//pregunta metodo de pago
Repeat
WriteLn('que metodo de pago va a realizar?');
WriteLn('efectivo, debito, credito');
ReadLn(TipoPago);
Until (UPCASE(TipoPago)='EFECTIVO') or (UPCASE(TipoPago)='DEBITO') or (UPCASE(TipoPago)='CREDITO');
//define el metodo de pago con un aumento o un descuento
if (UPCASE(TipoPago)='EFECTIVO') then
begin
desc:=(cd*5)/100;
WriteLn('al pagar en efectivo recive un 5% de descuento');
PagoTot:=precioCant-sociodesc-desc;
end;
if (UPCASE(TipoPago)='DEBITO') then
begin
Aument:=(cd*10)/100;
WriteLn('al pagar con debito tendra un 10% de recargo');
PagoTot:=precioCant-sociodesc+Aument;
end;
if (UPCASE(TipoPago)='CREDITO') then
begin
Aument:=(cd*15)/100;
WriteLn('al pagar con credito tendra un 15% de recargo');
PagoTot:=precioCant-sociodesc+Aument;
end;
//crea lineas divisoras
For i:=1 to N do
begin
Write('_');
end;
WriteLn('_');
//muestra el total a pagar por los CDs
WriteLn('el total a pagar por los CDs es $',PagoTot:8:2);
//acumula la cantidad de CDs vendidos
CantidadAcum:=CantidadAcum+Cantidad;
//acumula la cantidad de dinero recaudado
PagosAcum:=PagosAcum+PagoTot;
//pregunta si desea seguir utilizando el programa
WriteLn('desea seguir?');
ReadLn(seguir);
Until (UPCASE(seguir)='NO');
WriteLn('la cantidad de CDs vendidos fueron : ',CantidadAcum, ' CDs' );
WriteLn('la cantidad de dinero recaudado fue de $',PagosAcum:8:2);
ReadLn;
end.(ese es el codigo y necesito agregar lo siguiente sin que deje de funcionar):
begin
textcolor(green);
menu;
end.
Valora esta pregunta
0