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

Una empresa constructora vende departamentos listos para estrenar

Publicado por johan diaz (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 clara

No me gusta: Está pregunta no esta clara o no es útil

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2158 intervenciones) el 04/09/2013 22:08:01

Tranquilo todo se andará poco a poco

Valora esta respuesta

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

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

-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

Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2158 intervenciones) el 05/09/2013 20:15:38

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

Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2158 intervenciones) el 05/09/2013 22:10:01

{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

Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2158 intervenciones) el 05/09/2013 23:11:32

{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

Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2158 intervenciones) el 06/09/2013 20:06:41

Disculpa me equivoque de archivo.

Valora esta respuesta

Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2158 intervenciones) el 06/09/2013 20:04:40

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

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

Comentar

Una empresa constructora vende departamentos listos para estrenar

Publicado por ramon (2158 intervenciones) el 06/09/2013 21:17:44

Mira así.

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

Comentar

SOBRE ESTRUCTURA REPETITIVA WHILE

Pasar de String a Real