1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

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

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

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

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

    sketch45 Гость

    Репутация:
    0
    Дан двумерный массив размером 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

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

    sketch45 Гость

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

    -master- Well-Known Member

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

    Elena04 Гость

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

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