Определить низкую калькуляционную стоимость

[churchilll]

Определить низкую калькуляционную стоимость

помогите решить
Для изготовления 3 видов продукции используют 4 составляющие в разных количествах. Определить низкую калькуляционную стоимость. Количества и цены ввести самостоятельно

Продукция1
Продукция2
Продукция3
:tehnari_ru_837::tehnari_ru_837::tehnari_ru_837:
зарание спасибо

 

[dipq]

В чем? где? экстрасенсы в отпуске

 

[churchilll]

В паскале,очень надо

 

[churchilll]

уже решил
program A1;
var i,j: integer;
min:real;
A:array[1..3,1..4] of real;
B:array[1..3,1..4] of real;
C:array[1..3,1..4] of real;
begin
writeln('wwedit kilkist');
for i:=1 to 3 do
begin
for j:=1 to 4 do
readln(A[i,j]);
writeln(A[i,j]);
end;
writeln('vvedit vartist');
for i:=1 to 3 do
begin
for j:=1 to 4 do
readln(B[i,j]);
writeln(B[i,j]);
end;
for i:=1 to 3 do
begin
for j:=1 to 4 do
C[i,j]:=A[i,j]*B[i,j];
writeln(C[i,j]);
end;
for i:=1 to 3 do
begin
for j:=1 to 4 do
min:=C[1,1];
if C[i,1]<min then min:=C[i,1];
end; 5
writeln('minimum=',min);
readln;
end.

 

[Vladimir_S]

уже решил

Это, конечно, хорошо, но по-моему чушь какую-то, Вы, друг мой, накатали. A, B и C - это что? Виды продукции? Но тогда что означает первый индекс каждого из массивов: [1..3, ? Кстати, коль скоро все массивы одного типа, то вот в этом:

A:array[1..3,1..4] of real;
B:array[1..3,1..4] of real;
C:array[1..3,1..4] of real;

нужды нет, достаточно записать

A,B,C:array[1..3,1..4] of real;

Далее, вот в этой повторяющейся конструкции

readln(A[i,j]);
writeln(A[i,j]);

writeln абсолютно лишний - уберите его. Если Вы вводите число с клавиатуры, оно автоматически отображается на экране, так зачем же его повторно выводить?
Ну и наконец вот этот цикл:

for i:=1 to 3 do
begin
for j:=1 to 4 do
min:=C[1,1];
if C[i,1]<min then min:=C[i,1];
end;

тут вообще нелепость на нелепости. Вроде как Вы пытаетесь найти минимум в первом столбце матрицы С, так за каким лешим ставить перебор по столбцам (j)? И уж вовсе странным выглядит запихивание вот этого: min:=C[1,1]; внутрь тела цикла - никакого смысла в подобном действии нет. А всё, что нужно, это:

min:=C[1,1];
for i:=2 to 3 do
if C[i,1]<min then min:=C[i,1];