Pascal/Turbo Pascal - Una empresa constructora vende departamentos listos para estrenar

   
Vista:

Una empresa constructora vende departamentos listos para estrenar

Publicado por johan diaz ferchodiaz.net@hotmail.com (8 intervenciones) el 03/09/2013 22:57:05
necesito que me ayude en :
Una empresa constructora vende departamentos listos para estrenar. El precio del departamento se calcula de la siguiente manera:
• Se ingresa el costo base del departamento, siendo éste costo, el valor de un departamento ubicado en el 5to piso, que tiene solo 2 habitaciones principales y tiene los servicios básicos de agua y luz.
• Si el cliente desea un departamento que tenga 2 habitaciones principales y una de servicio se aumentará el costo del departamento en 5% del costo base. Si desea 3 habitaciones con una habitación de servicio se incrementa en 20% del costo base y si es de 4 habitaciones con una de servicio se incrementa en 35% del costo base.
• Si el departamento está ubicado en el primer piso el precio se incrementa en 30% del costo base, si es en el segundo piso 24% del costo base, si es en el tercer piso 16% del costo base y si es en el cuarto piso 8% del costo base.
• Si desea servicio telefónico cuesta adicional 40.000 pesos, con terma (calefacción) 100.000 pesos y con cochera 125.000 pesos.


(por fa me dice si me puede ayudar para cuando gracias )
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

Una empresa constructora vende departamentos listos para estrenar

Publicado por johan (8 intervenciones) el 04/09/2013 20:04:58
.......????????
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

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2072 intervenciones) el 04/09/2013 22:08:01
Tranquilo todo se andará poco a poco
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

Una empresa constructora vende departamentos listos para estrenar

Publicado por johan (8 intervenciones) el 05/09/2013 00:14:18
ok amigo aproximadamente 23 hora me queda de este. espero que no sea mucha molestia gracias.
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

Una empresa constructora vende departamentos listos para estrenar

Publicado por LUIS PEREZ (1 intervención) el 05/09/2013 20:09:11
JOVEN POR QUE ESO MEJOR NO LO HACE USTUD POR SUS PROPIOS MEDIOS...NO SEA FLOJO..DESDE YA TIENE UN 1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por Alejandro (1 intervención) el 05/09/2013 21:19:53
Disculpe, este espacio es para compartir información , no aceptamos ofensas hacia los usuarios.
Es su manera de buscar ayuda , reitero la información es libre.
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

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2072 intervenciones) el 05/09/2013 20:15:38
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
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
{A ver si esto te ayuda }
 
 program variostemas;
  uses
     crt;
   const
      numemp = 3;
      comis : integer = 10;
      numvent = 3;
      amarilla : integer = 0;
          rosa : integer = 0;
          roja : integer = 0;
         verde : integer = 0;
          azul : integer = 0;
 
    type
       salario = record
             sueldo : real;
             vent   : array[1..numvent] of real;
             extra  : real;
             total  : real;
           end;
 
       alumnos = record
            nombre : string[40];
            xeso   : char;
            clase  : char;
          end;
 
   var
     vendedores : array[1..numemp] of salario;
     obreros : array[1..numemp] of real;
     alum : array[1..numemp] of alumnos;
     autos : array[1..numemp] of longint;
 
  procedure losvendedores;
  var
     k, t : integer;
 
  begin
      clrscr;
      writeln('**** Compa¤ia De Seguros ****');
      writeln;
      t := 0;
    while t < numemp do
    begin
           write('    Entre El Sueldo Vendedor Num ',t + 1,' : ');
           readln(vendedores[t + 1].sueldo);
           write('    Entre Venta 1 : ');
           readln(vendedores[t + 1].vent[1]);
           write('    Entre Venta 2 : ');
           readln(vendedores[t + 1].vent[2]);
           write('    Entre Venta 3 : ');
           readln(vendedores[t + 1].vent[3]);
           vendedores[t + 1].extra := (((vendedores[t + 1].vent[1] +
                                vendedores[t + 1].vent[2] +
                                vendedores[t + 1].vent[3]) * comis) / 100);
          vendedores[t + 1].total := (vendedores[t + 1].sueldo +
                                   vendedores[t + 1].extra);
         t := t + 1;
         clrscr;
    end;
      clrscr;
      writeln('Sueldo    Importe 1  Importe 2  Importe 3   Comis.    Total');
      for k := 1 to numemp do
      begin
         with vendedores[k] do
         begin
         write(sueldo:0:2,'      ',vent[1]:0:2,'     ',vent[2]:0:2,
         '     ',vent[3]:0:2,'     ',extra:0:2,'     ',total:0:2);
         end;
         writeln;
      end;
  end;
 
  procedure sueldosobreros;
  var
    horas : array[1..numemp] of integer;
    t : integer;
    resto : real;
   begin
      t := 0;
      while t < numemp do
      begin
         clrscr;
         writeln(' Empleado Num ',t + 1);
         write('   Entre Haras Trabajadas : ');
         readln(horas[t + 1]);
         if horas[t + 1] > 40 then
         begin
            resto := (horas[t + 1] - 40) * 25;
            obreros[t + 1] := (40 * 20) + resto;
         end
       else
          begin
             obreros[t + 1] := horas[t + 1] * 20;
          end;
         t := t + 1;
      end;
        for t := 1 to numemp do
        writeln('   Empleado Num ',t,'   Sueldo = ',obreros[t]:0:2);
   end;
 
   procedure estudianter;
   var
     tec : char;
     fem, mas, t : integer;
 
   begin
       t := 0;
     while t < numemp do
     begin
       clrscr;
       writeln('***** Datos Estudiante Num ',t + 1);
       writeln;
       write('   Entre Nombre : ');
       readln(alum[t + 1].nombre);
       write(' Entre [F]=Femenino [M]=Masculino ');
       repeat
          tec := upcase(readkey);
       until tec in['F','M'];
       alum[t + 1].xeso := tec;
       writeln;
       write(' Entre Clase [A/B/C/D ');
       repeat
          tec := upcase(readkey);
       until tec in['A','B','C','D'];
       alum[t + 1].clase := tec;
       t := t + 1;
     end;
       clrscr;
       writeln('***** Alumnos Femeninos Y Masculinos *****');
       writeln;
       fem := 0;
       mas := 0;
       for t := 1 to numemp do
       begin
          if alum[t].xeso = 'F' then
          fem := fem + 1;
          if alum[t].xeso = 'M' then
          mas := mas + 1;
       end;
         writeln('   Masculinos = ',mas);
         writeln('   Femeninos  = ',fem);
   end;
 
  procedure automoviles;
  var
     t : integer;
     num : string;
   begin
       t := 0;
       while t < numemp do
       begin
       clrscr;
       writeln('***** Autos Determinar El Color ****');
       writeln;
       write('   Entre Matricula Auto Num ',t + 1,' : ');
       readln(autos[t + 1]);
       t := t + 1;
      end;
       for t := 1 to numemp do
       begin
           str(autos[t],num);
           case num[length(num)] of
      '1','2' : amarilla := amarilla + 1;
      '3','4' : rosa := rosa + 1;
      '5','6' : roja := roja + 1;
      '7','8' : verde := verde + 1;
      '9','0' : azul := azul + 1;
          end;
       end;
       clrscr;
       writeln('****** Numero Autos Por Color ******');
       writeln;
       writeln('   Amarilla = ',amarilla);
       writeln('   Rosa     = ',rosa);
       writeln('   Roja     = ',roja);
       writeln('   Verde    = ',verde);
       writeln('   Azul     = ',Azul);
   end;
 
   procedure menu;
   var
      tl : char;
      sal : boolean;
   begin
        sal := false;
     repeat
         clrscr;
         writeln('****** Menu Jeneral ******');
         writeln;
         writeln('     1 = Vendedores');
         writeln('     2 = Sueldos');
         writeln('     3 = Estudiantes');
         writeln('     4 = Autos');
         writeln('     5 = Salir');
         writeln;
         writeln('<<<<< Elija Opcion >>>>>');
         repeat
              tl := readkey;
         until tl in['1','2','3','4','5'];
         clrscr;
     case tl of
  '1' : begin losvendedores; readkey; end;
  '2' : begin sueldosobreros; readkey; end;
  '3' : begin estudianter; readkey; end;
  '4' : begin automoviles; readkey; end;
  '5' : sal := true;
    end;
   until sal = true;
 end;
 
 
  begin
      clrscr;
      menu;
  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

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2072 intervenciones) el 05/09/2013 22:10:01
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
{Otros dos}
 
 procedure calificaciones;
   var
     alu : array[1..numemp] of real;
     t : integer;
     total, media : real;
    begin
       t := 0;
       while t < numemp do
       begin
          clrscr;
          writeln('**** Calculo Media ****');
          writeln;
          write(' Entre Calificacion Alumno Num ',t + 1,' : ');
          readln(alu[t + 1]);
          t := t + 1;
       end;
         total := 0;
         for t := 1 to numemp do
         total := total + alu[t];
         media := total / numemp;
         clrscr;
         writeln('  La Media es : ',media:0:2);
    end;
 
    procedure banco;
    var
      capital : real;
      interes : real;
      sumas : real;
      total : real;
      t : integer;
    begin
       clrscr;
       writeln('**** Calculo De Interes ****');
       writeln;
       write('   Entre Capital Inicial : ');
       readln(capital);
       total := capital;
       sumas := 0.0;
       for t := 1 to 12 do
       begin
       interes := (total * 2 / 100) / 12;
       sumas := sumas + interes;
       total := total + interes;
       end;
         clrscr;
         writeln('**** Resultados ****');
         writeln;
         writeln('   Capital Inicial        : ',capital:0:2);
         writeln('   Interes Anual          : ',sumas:0:2);
         writeln('   Total Interes Capital  : ',total:0:2);
    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

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2072 intervenciones) el 05/09/2013 23:11:32
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
{Y todo espero te sirva de ayuda}
 
procedure promedioedades;
var
lumno : array[1..numemp] of integer;
t : integer;
media, todas : real;
begin
clrscr;
writeln('**** Promedio De Edades ****');
t := 0;
while t < numemp do
begin
clrscr;
write(' Entre Edad Alumno Num ',t + 1,' : ');
readln(lumno[t + 1]);
t := t + 1;
end;
todas := 0.0;
media := 0.0;
for t := 1 to numemp do
todas := todas + lumno[t];
media := todas / numemp;
clrscr;
writeln(' La Edad Media Es : ',media:0:2);
end;
 
procedure supermercado;
var
articulos : array[1..numemp,1..numvent] of real;
k, t : integer;
clitot, total : real;
begin
t := 0;
while t < numemp do
begin
k := 0;
clitot := 0.0;
while k < numvent do
begin
clrscr;
writeln(' Cliente Num ',t + 1);
writeln;
write(' Entre Precio Articulo Num ',k + 1,' : ');
readln(articulos[t + 1,k + 1]);
clitot := clitot + articulos[t + 1,k + 1];
k := k + 1;
end;
writeln(' El Importe Es = ',clitot:0:2);
writeln(' Pulse Una Tecla');
readkey;
t := t + 1;
end;
total := 0.0;
for t := 1 to numemp do
for k := 1 to numvent do
begin
total := total + articulos[t,k];
end;
clrscr;
writeln(' El Total De Ventas Es : ',total:0:2);
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

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2072 intervenciones) el 06/09/2013 20:06:41
Disculpa me equivoque de archivo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2072 intervenciones) el 06/09/2013 20:04:40
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
{A ver Si esto te sirva]
 
 program depart;
 uses
    crt;
  const
      departam : real = 0.0;
      habi2x1 = 5;
      habi3x1 = 20;
      habi4x1 = 35;
      piso1   = 30;
      piso2   = 24;
      piso3   = 16;
      piso4   = 8;
      telef   = 40000;
      calef   = 100000;
      cochera = 125000;
 
 
  var
    pedidopiso : array[1..3] of longint;
    nu : integer;
 
  procedure solicitud;
  var
    tca : char;
  begin
     nu := 1;
     clrscr;
     writeln('****** Entrada Datos Base *******');
     writeln;
     write('   Entre Costo Base : ');
     readln(departam);
     clrscr;
     writeln('<<<< Tipo De Departamento >>>>');
     writeln;
     writeln(' 1 = Dos Habitaciones Agua y Luz');
     writeln(' 2 = Dos Habitaciones Y Una De Servicio');
     writeln(' 3 = Tres Habitaciones Y Una De Servicio');
     writeln(' 4 = Cuatro Habitaciones Y Una De Servicio');
     writeln;
     writeln('******* Indique Opcion ********');
     repeat
          tca := readkey;
     until tca in['1','2','3','4'];
    case tca of
  '1' : pedidopiso[nu] := 1;
  '2' : pedidopiso[nu] := habi2x1;
  '3' : pedidopiso[nu] := habi3x1;
  '4' : pedidopiso[nu] := habi4x1;
    end;
    nu := nu + 1;
   clrscr;
   writeln('<<<<<< Ubicacion Piso >>>>>>');
   writeln;
    writeln('  1 = Primer Piso');
    writeln('  2 = Segundo Piso');
    writeln('  3 = Tercer Piso');
    writeln('  4 = Cuarto Piso');
    writeln;
    writeln('******* Indique Opcion ********');
    repeat
          tca := readkey;
     until tca in['1','2','3','4'];
    case tca of
  '1' : pedidopiso[nu] := piso1;
  '2' : pedidopiso[nu] := piso2;
  '3' : pedidopiso[nu] := piso3;
  '4' : pedidopiso[nu] := piso4;
    end;
      nu := nu + 1;
    clrscr;
    writeln('<<<<<< Servicios Adicionales >>>>>>');
    writeln;
    writeln('  1 = Telefono');
    writeln('  2 = Calefacion');
    writeln('  3 = Cochera');
    writeln('  4 = Nada');
    writeln;
    writeln('******* Indique Opcion ********');
    repeat
          tca := readkey;
     until tca in['1','2','3','4'];
    case tca of
  '1' : pedidopiso[nu] := telef;
  '2' : pedidopiso[nu] := calef;
  '3' : pedidopiso[nu] := cochera;
  '4' : pedidopiso[nu] := 0;
    end;
  end;
 
  procedure precio_departamento;
  var
    elcosto : real;
  begin
     elcosto := 0.0;
     if departam > 0.0 then
     begin
        elcosto := elcosto + (departam * pedidopiso[1]) / 100;
        elcosto := elcosto + (departam * pedidopiso[2]) / 100;
        elcosto := elcosto + (departam * pedidopiso[3]) / 100;
     end;
     clrscr;
     writeln;
     writeln('>>>> El Valor Total Es : ',departam + elcosto:0:2);
     writeln;
     writeln('<<<<< Pulse Una Tecla >>>>>');
     readkey;
  end;
 
 begin
     solicitud;
     precio_departamento;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por fercho (8 intervenciones) el 06/09/2013 21:00:45
gracias por todo amigo esta todo muy bn. por ultimo como puedo borra todo esto cometario pregunta etc.
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

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2072 intervenciones) el 06/09/2013 21:17:44
Mira así.

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
procedure solicitud;
var
tca : char;
begin
nu := 1;
clrscr;
 
readln(departam);
 
repeat
tca := readkey;
until tca in['1','2','3','4'];
case tca of
'1' : pedidopiso[nu] := 1;
'2' : pedidopiso[nu] := habi2x1;
'3' : pedidopiso[nu] := habi3x1;
'4' : pedidopiso[nu] := habi4x1;
end;
nu := nu + 1;
 
repeat
tca := readkey;
until tca in['1','2','3','4'];
case tca of
'1' : pedidopiso[nu] := piso1;
'2' : pedidopiso[nu] := piso2;
'3' : pedidopiso[nu] := piso3;
'4' : pedidopiso[nu] := piso4;
end;
nu := nu + 1;
 
repeat
tca := readkey;
until tca in['1','2','3','4'];
case tca of
'1' : pedidopiso[nu] := telef;
'2' : pedidopiso[nu] := calef;
'3' : pedidopiso[nu] := cochera;
'4' : pedidopiso[nu] := 0;
end;
end;

El problema como sabrás que es cada entrada.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar