Двумерный Массив В Delphi

Тема в разделе "Pascal and Delphi", создана пользователем sketch45, 11 мар 2012.

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

    sketch45 Гость

    Дан двумерный массив размером n*m, заполненный случайными числами из промежутка [-25,25]1) Заменить отрицательный элемент каждого столбца на положительный 2) Поменять местами второй и последний столбцы
    Код (Delphi):
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    n:=strtoint(edit1.text);
    m:=strtoint(edit2.text);
    SetLength(a, n,m);
    stringgrid1.RowCount:=n+1;
    stringgrid1.ColCount:=m+1;
    for i:=0 to n-1 do
    for i1:=0 to m-1 do
    begin
    randomize;
    a[i,i1]:=RandomRange(-35, 35);
    StringGrid1.Cells[i1+1,i+1]:=IntToStr(a[i,i1]);
    end;
    end;
     
  2. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    19
    во первых, почитайте про randomize
     
  3. sketch45

    sketch45 Гость

    зачем читать я что то сделал не правильно?
     
  4. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    19
    А вы прочитайте.
     
  5. Elena04

    Elena04 Гость

    Задан двумерный массив размерности m*n. Дополнить его строкой и столбцом, в которых записать сумму элементов соответствующих строк и столбцов исходного массива. В элементе (m+1, n+1) должна храниться сумма всех элементов первоначального массива.
     
Загрузка...
Похожие Темы - Двумерный Массив Delphi
  1. mikhailkarmanov
    Ответов:
    1
    Просмотров:
    1.155
  2. qwerty123123123
    Ответов:
    6
    Просмотров:
    1.676
  3. Sherlock
    Ответов:
    1
    Просмотров:
    1.363
  4. MadPolarBear
    Ответов:
    0
    Просмотров:
    1.385
  5. Julia9497
    Ответов:
    0
    Просмотров:
    1.315
Статус темы:
Закрыта.

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