N
_NoNaMe_
В программе из Мемо, откуда берутся значения для забивания их в массив
(а именно так:
setlength(MaxK,Memo1.Lines.Count);
for i:=0 to Memo1.Lines.Count-1 do
maxk:=StrToInt(Memo1.Lines);
)
делаю процедуру
setlength(umno,Memo1.Lines.Count*Memo2.Lines.Count);
for i:=1 to Memo1.Lines.Count do
for j:=1 to Memo2.Lines.Count do
begin
umno:=maxk*maxk2[j];
inc(u);
end;
выводим мне какую-то непонятицу.. (((( а именно 4 84 6 126 и т.д. (((
пробовал делал так:
for i:=0 to Memo1.Lines.Count-1 do
for j:=1 to Memo2.Lines.Count do
но.. во-первых, перезаписывает 0 и 1 строки, а во-вторых не работает более чем с массивом в 3 и 2 единицы ((((
подскажите как сделать так, что б при возникновении массивов любой длинны они бы перемножались поэлементно. не могу додуматься (
Пояснение: массив a = [1,2,3] массив b=[1,2] то при поэлементном умножении массив с должен быть [1,2,2,4,3,6]
Помогите пожалуйста ((
(а именно так:
setlength(MaxK,Memo1.Lines.Count);
for i:=0 to Memo1.Lines.Count-1 do
maxk:=StrToInt(Memo1.Lines);
)
делаю процедуру
setlength(umno,Memo1.Lines.Count*Memo2.Lines.Count);
for i:=1 to Memo1.Lines.Count do
for j:=1 to Memo2.Lines.Count do
begin
umno:=maxk*maxk2[j];
inc(u);
end;
выводим мне какую-то непонятицу.. (((( а именно 4 84 6 126 и т.д. (((
пробовал делал так:
for i:=0 to Memo1.Lines.Count-1 do
for j:=1 to Memo2.Lines.Count do
но.. во-первых, перезаписывает 0 и 1 строки, а во-вторых не работает более чем с массивом в 3 и 2 единицы ((((
подскажите как сделать так, что б при возникновении массивов любой длинны они бы перемножались поэлементно. не могу додуматься (
Пояснение: массив a = [1,2,3] массив b=[1,2] то при поэлементном умножении массив с должен быть [1,2,2,4,3,6]
Помогите пожалуйста ((