Pascal/Turbo Pascal - [AYUDA] Con Vectores y Matriz

   
Vista:
Imágen de perfil de Leo G.

[AYUDA] Con Vectores y Matriz

Publicado por Leo G. (11 intervenciones) el 23/10/2014 02:37:42
Hola! alguien me puede ayudar para elaborar este código porque no se como elaborar.

La consiga es:

Una cadena de tres supermercado mayoristas realizan ventas de cincos rubros de productos de elaboración propias (A, B, C, D, E,). Se pide representar la información en una matrices con la siguiente información:

Supermercado 1: Rubro A 800; Rubro B 500; Rubro C 250; Rubro D 320; Rubro E 150.
Supermercado 2: Rubro A 300; Rubro B 1500; Rubro C 350; Rubro D 300; Rubro E 80.
Supermercado 3: Rubro A 500; Rubro B 350; Rubro C 150; Rubro D 380; Rubro E 50.


Ademas el GERENTE REQUIERE SABER:
1. La cantidad total por RUBRO de las tres sucursales.
2. Informar el rubro con mas ventas.
3. El promedio de ventas por sucursal.

Nota: para los puntos realizar módulos independientes y utilizar array para guardar los datos.

P/D: Y si pudiera colocar comentarios para poder entender mejor el código..

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

[AYUDA] Con Vectores y Matriz

Publicado por ramon (2072 intervenciones) el 26/10/2014 21:04:39
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
{A ver si esto hayuda}
 
program losrublos;
  uses
     crt;
  const
 
     supermerca : array[1..3,'A'..'E'] of integer = (
     (800,500,250,320,150),
     (300,1500,350,300,80),
     (500,350,150,380,50));
  type
    rublo = array['A'..'E'] of integer;
    super = array[1..3] of rublo;
 
  var
    datos : super;
 
  procedure carga_datos_sucursales;
  var
    d : char;
    t : integer;
   begin
     for t := 1 to 3 do
      for d := 'A' to 'E' do
      begin
      datos[t,d] := supermerca[t,d];
      end;
   end;
 
  procedure presenta_datos_super;
  var
    g : char;
    t : integer;
    begin
       writeln;
       for t := 1 to 3 do
       begin
         write('  Supermercado ',t);
         for g := 'A' to 'E' do
         begin
         write(' ',g,' ',supermerca[t,g],';');
         end;
         writeln;
       end;
    end;
 
  procedure cantidad_total_por_rublo;
  var
    h : char;
    resul, g : integer;
  begin
     resul := 0;
     for h := 'A' to 'E' do
     begin
      for g := 1 to 3 do
      begin
         resul := resul + datos[g,h];
      end;
        writeln('  Cantidad Total De [',h,'] = ',resul);
        resul := 0;
     end;
  end;
  procedure rublo_con_mas_ventas;
  var
    r, d : char;
    t, res : integer;
    rublo : array['A'..'E'] of integer;
    begin
       for d := 'A' to 'E' do
       begin
         rublo[d] := 0;
         for t := 1 to 3 do
         begin
         rublo[d] := rublo[d] + datos[t,d];
         end;
       end;
         res := 0;
         for d := 'A' to 'E' do
         if rublo[d] > res then
         begin
            res := rublo[d];
            r := d;
         end;
         writeln;
         writeln('  Mayores Ventas En = ',r,'  Con : ',res);
    end;
 
    procedure promedio_ventas_por_sucursal;
    var
      r, n : integer;
      l : char;
      prome : real;
   begin
      r := 0;
      for n := 1 to 3 do
      begin
        prome := 0;
        r := 0;
        for l := 'A' to 'E' do
        begin
           prome := prome + datos[n,l];
           r := r + 1;
        end;
          writeln('  Sucursal N.',n,' promedio = ',prome / r:0:2);
      end;
   end;
 
  begin
      clrscr;
      carga_datos_sucursales; {Cargamos Los Datos Esto seria entrada Manual
                               en lugar de contantes}
      presenta_datos_super;  {Presenta los datos Cargados}
      writeln;
      cantidad_total_por_rublo; {Presenta la cantidad total por rublo}
      rublo_con_mas_ventas; {Presenta el rublo con mas venta}
      writeln;
      promedio_ventas_por_sucursal; {presenta los promedios de las sucursales}
      readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Leo G.

[AYUDA] Con Vectores y Matriz

Publicado por Leo G. tincho.280695@gmail.com (11 intervenciones) el 27/10/2014 14:00:24
Gracias! sos un groso
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