Pascal/Turbo Pascal - Ayuda con matriz

   
Vista:

Ayuda con matriz

Publicado por Horacio Daniel Belardita (53 intervenciones) el 16/11/2011 23:50:35
Hola, Buen día a todos..
Resulta que estoy perdido con esto si me pueden dar una mano para resolver mas o menos este problema por lo menos como representar la informacion en las matrices?

Un fabricante posee las sucursales1 y 2 y producen dos tipos de lavarropas A y B con tres
terminaciones N, L y S.
A- 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.

B -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 tipo de lavarropas producido
*El total de cada terminación de lavarropas
gracias.saludos
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 matriz

Publicado por ramon (2072 intervenciones) el 17/11/2011 19:10:51
{No se si loe cogido bien a ver si te vale}

program fabrican;
uses
crt;
type
fabri1 = array['a'..'b',1..3] of integer;
fabri2 = array['a'..'b',1..3] of integer;

var
fa1 : fabri1;
fa2 : fabri2;
pro1, pro2 : real;
tot1, tot2 : longint;



procedure asigna_valores;
begin
fa1['a'][1] := 400;
fa1['a'][2] := 200;
fa1['a'][3] := 50;
fa1['b'][1] := 300;
fa1['b'][2] := 100;
fa1['b'][3] := 30;

fa2['a'][1] := 500;
fa2['a'][2] := 250;
fa2['a'][3] := 550;
fa2['b'][1] := 100;
fa2['b'][2] := 150;
fa2['b'][3] := 300;
end;


function producion_total : longint;
var
produ : longint;
va1, va2, va3, va4 : longint;
i, o : integer;
begin
producion_total := 0;
va1 := 0;
va2 := 0;
va3 := 0;
va4 := 0;
produ := 0;
for i := 1 to 3 do
begin
va1 := va1 + fa1['a'][i];
va2 := va2 + fa1['b'][i];
va3 := va3 + fa2['a'][i];
va4 := va4 + fa2['b'][i];
end;
tot1 := va1 + va2;
tot2 := va3 + va4;
pro1 := (va1 + va2) / 2;
pro2 := (va3 + va4) / 2;
produ := va1 + va2 + va3 + va4;
producion_total := produ;
end;


begin
clrscr;
asigna_valores;
writeln('Producion Total : ',producion_total);
writeln('El promedio de A : ',pro1:8:2);
writeln('El promedio de B : ',pro2:8:2);
writeln('El total de sucursal 1 : ',tot1);
writeln('El total de sucursal 2 : ',tot2);
readln;
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

Ayuda con matriz

Publicado por Horacio Daniel Belardita (53 intervenciones) el 17/11/2011 19:40:33
Gracias Ramon por tu ayuda se entiende y logre aclarar mis dudas.saludos
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