17.05.2012, 21:33 | #1 (permalink) |
Новичок
Регистрация: 17.05.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Определить низкую калькуляционную стоимость
Для изготовления 3 видов продукции используют 4 составляющие в разных количествах. Определить низкую калькуляционную стоимость. Количества и цены ввести самостоятельно Продукция1 Продукция2 Продукция3 зарание спасибо |
17.05.2012, 21:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данные топики могут вам очень хорошо помочь Определить стоимость компьютеров Стоимость оптоволокна |
17.05.2012, 23:28 | #4 (permalink) |
Новичок
Регистрация: 17.05.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
уже решил
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. |
18.05.2012, 14:56 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Это, конечно, хорошо, но по-моему чушь какую-то, Вы, друг мой, накатали. 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]; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
задача, паскаль; помогите;, решить |
|
|