Pascal/Turbo Pascal - [AYUDA] [URGENTE] Relsolucion de un ejercicio

   
Vista:
Imágen de perfil de Leo

[AYUDA] [URGENTE] Relsolucion de un ejercicio

Publicado por Leo (11 intervenciones) el 13/10/2014 16:43:48

Hola tengo que hacer un código utilizando matrices y no se como hacer.



Consigna:

Un fabricante posee las sucursales 1 y 2 y producen dos modelos de lavarropas (A y B) con tres terminaciones (N, L y S).

En la sucursal 1: Produce del modelo A: 400 unidades en la terminación N, 200 unidades en la terminación L y 50 unidades en la terminación S. Produce del modelo B: 300 unidades en la terminación N, 100 unidades en la terminación L y 30 unidades en la terminación S.

En la sucursal 2: Produce del modelo A: 500 unidades en la terminación N, 250 unidades en la terminación L y 550 unidades en la terminación S. Produce del modelo B: 100 unidades en la terminación N, 150 unidades en la terminación L y 300 unidades en la terminación S.

Representar la información en dos matrices. El fabricante requiere saber:
• La cantidad total de unidades producidas en ambas sucursales
• El promedio de cada modelo de lavarropas producido
• El total de cada terminación de lavarropas.
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] [URGENTE] Relsolucion de un ejercicio

Publicado por ramon (2072 intervenciones) el 14/10/2014 20:53:06
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
{A vert si esto te ayuda}
 
program fabricante;
  uses
    crt;
  type
     termin = array[1..3] of integer;
     modelo = array['A'..'B'] of termin;
     produc = array[1..2] of modelo;
 
   var
     fabri : produc;
     t, i : integer;
     le : char;
 
 
 
  procedure asigna_datos(var d : produc);
  begin
      d[1]['A'][1] := 400;
      d[1]['A'][2] := 200;
      d[1]['A'][3] := 50;
      d[1]['B'][1] := 500;
      d[1]['B'][2] := 100;
      d[1]['B'][3] := 30;
      d[2]['A'][1] := 500;
      d[2]['A'][2] := 250;
      d[2]['A'][3] := 550;
      d[2]['B'][1] := 100;
      d[2]['B'][2] := 150;
      d[2]['B'][3] := 300;
  end;
 
  function frabricacion_total(dd : produc) : word;
  var
    s, h : integer;
    acum : word;
    th : char;
  begin
      frabricacion_total := 0;
      acum := 0;
      for h := 1 to 2 do
      begin
       for th := 'A' to 'B' do
       begin
          for s := 1 to 3 do
          begin
             acum := acum + dd[h][th][s];
          end;
       end;
     end;
      frabricacion_total := acum;
  end;
 
  procedure promedio_por_modelo(pm : produc);
  var
    h, t : integer;
    l : char;
    suma, sumb : word;
    proma, promb : real;
  begin
     for h := 1 to 2 do
     begin
       for l := 'A' to 'B' do
       begin
          for t := 1 to 3 do
          begin
             if l = 'A' then
             suma := suma + pm[h][l][t];
             if l = 'B' then
             sumb := sumb + pm[h][l][t];
          end;
       end;
     end;
       proma := suma / 3;
       writeln('  Promedio De A = ',proma:0:2);
       promb := sumb / 3;
       writeln('  Promedio De B = ',promb:0:2);
  end;
 
  procedure total_terminacion(tm : produc);
  var
    tm1, tm2, tm3 : word;
    l, h : integer;
    a : char;
  begin
     for l := 1 to 2 do
     begin
        for a := 'A' to 'B' do
        begin
            for h := 1 to 3 do
            begin
               writeln('  Fabricacion Sucursal ',l,' ',a,' ',h,' : ',tm[l][a][h]);
            end;
        end;
          writeln;
     end;
  end;
 
 
 begin
     clrscr;
     asigna_datos(fabri);
     write('  La Frabricacion Total Es : ',frabricacion_total(fabri),
                                                ' Unidades');
     writeln;
     promedio_por_modelo(fabri);
     writeln;
     total_terminacion(fabri);
     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
1
Comentar
Imágen de perfil de Leo

[AYUDA] [URGENTE] Relsolucion de un ejercicio

Publicado por Leo (11 intervenciones) el 15/10/2014 02:14:17
Hola. Si me re sirvió. solo que no entiendo cuando usas que de tipo 'word'?
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

[AYUDA] [URGENTE] Relsolucion de un ejercicio

Publicado por ramon (2072 intervenciones) el 15/10/2014 10:55:42
Lo empleo porsi el valor numerico no entrara en un integer por su longitud pero lo puedes cambiar por integer.
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