1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

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

    _NoNaMe_ Гость

    Репутация:
    0
    В программе из Мемо, откуда берутся значения для забивания их в массив
    (а именно так:

    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 Гость

    Репутация:
    0
    Код:
    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. erlan1749
    Ответов:
    2
    Просмотров:
    69
  2. Unkown_
    Ответов:
    14
    Просмотров:
    178
  3. thunder
    Ответов:
    3
    Просмотров:
    393
  4. MrNik
    Ответов:
    6
    Просмотров:
    186
  5. Hehabr
    Ответов:
    0
    Просмотров:
    191
Статус темы:
Закрыта.

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