Вопрос по динамическим массивам

Тема в разделе "Delphi - Система", создана пользователем _NoNaMe_, 3 июн 2007.

Статус темы:
Закрыта.
  1. _NoNaMe_

    _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]

    Помогите пожалуйста ((
     
  2. xmailer

    xmailer Гость

    Код (Text):
    var
    maxk : array of integer;
    maxk2 : array of integer;
    umno : array of integer;
    i,j,u : integer;
    begin
    setlength(maxk,Memo1.Lines.Count);
    for i:=0 to Memo1.Lines.Count-1 do maxk[i]:=StrToInt(Memo1.Lines[i]);

    setlength(maxk2,Memo2.Lines.Count);
    for i:=0 to Memo2.Lines.Count-1 do maxk2[i]:=StrToInt(Memo2.Lines[i]);

    u:=0;
    setlength(umno,Memo1.Lines.Count*Memo2.Lines.Count);
    for i:=0 to Memo1.Lines.Count-1 do
    for j:=0 to Memo2.Lines.Count-1 do
    begin
    umno[u]:=maxk[i]*maxk2[j];
    inc(u);
    end;

    //массив  maxk = [1,2,3]
    //массив  maxk2 = [1,2]
    //рузультат umno = [1,2,2,4,3,6]
    end;
     
Загрузка...
Похожие Темы - Вопрос по динамическим
  1. ApplePen
    Ответов:
    0
    Просмотров:
    79
  2. gURaBA_N
    Ответов:
    3
    Просмотров:
    97
  3. kartaman
    Ответов:
    0
    Просмотров:
    128
  4. Peter
    Ответов:
    4
    Просмотров:
    527
  5. di0d_
    Ответов:
    1
    Просмотров:
    442
Статус темы:
Закрыта.

Поделиться этой страницей