С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Павел АС-13
0 / 0 / 0
Регистрация: 30.12.2014
Сообщений: 1
1

Не получается поменять эллементы двумерного массива местами

30.12.2014, 03:03. Просмотров 270. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
procedure robi(n,m,s,t:Integer; var i,j,k,g : Integer);
    begin
     if (i=0)or(j=0)or(i=(m-1))or(j=(n-1)) then
      begin
     if b[i,j] < g then
      begin
      g:=b[i,j];
 
      end;
     end;
    end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
sum:Integer;
begin
  n:=StrToInt(Edit2.Text);
  m:=StrToInt(Edit1.Text);
  Stringgrid1.ColCount:=n;
  Stringgrid1.RowCount:=m;
  for j:=0 to (n-1) do
  for i:=0 to (m-1) do
   begin
    if Length(StringGrid1.Cells[i,j]) <>0 then
      b[i,j] := StrToInt(StringGrid1.Cells[i,j])
     else
      b[i,j] := 0;
   end;
   begin
      for j:=0 to n-1 do
    for i:=0 to m-1 do
   begin
    robi(n,m,s,t,i,j,k,g);
   end;
   end;
   for j:=0 to n-1 do
    for i:=0 to m-1 do
   begin
     StringGrid2.Cells[i,j]:=IntToStr(b[i,j]);
   end;
end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.12.2014, 03:03
Ответы с готовыми решениями:

Поменять местами два средних столбца двумерного массива
Добрый день, написала программу но кнопка не реагирует вообще Дан двумерный...

Поменять местами первый и средний столбцы двумерного массива
Необходимо поменять местами первый и средний столбцы двумерного массива. Не...

Определить максимальный и минимальный элемент двумерного массива и поменять их местами
Заполнить двумерный массив случайными целыми числами ,определить максимальный и...

Для двумерного массива размерностью 2х4 поменять местами строки
Помогите составить программу: Для двумерного массива размерностью 2х4 поменять...

В каждой строке двумерного массива поменять местами первый элемент и любой из максимальных
Обработка исключительных ситуаций.Предусмотреть обработку ситуации,когда...

1
timon5000
6 / 6 / 3
Регистрация: 07.12.2014
Сообщений: 13
30.12.2014, 09:31 2
Цитата Сообщение от Павел АС-13 Посмотреть сообщение
procedure robi(n,m,s,t:Integer; var i,j,k,g : Integer);
Во первых в начале этой процедуры или перед ней не была объявлена переменная g, поэтому процедура robi ничего не делает.

К тому же, ты перепутал местами столбцы и строки в обращениях StringGrid1.Cells[i,j] - сперва указывается кол-во столбцов, затем строк.
Цитата Сообщение от Павел АС-13 Посмотреть сообщение
Delphi
1
2
3
4
5
6
7
Stringgrid1.ColCount:=n;
* Stringgrid1.RowCount:=m;
* for j:=0 to (n-1) do
* for i:=0 to (m-1) do
* *begin
* * if Length(StringGrid1.Cells[i,j]) <>0 then
* * * b[i,j] := StrToInt(StringGrid1.Cells[i,j])
В твоем случае правильно будет
Delphi
1
StringGrid1.Cells[j,i]
И для чего это выражение в процедуре robi?
Delphi
1
if (i=0)or(j=0)or(i=(m-1))or(j=(n-1)) then
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2014, 09:31

В каждой строке двумерного массива поменять местами первый элемент и любой из максимальных
Обработка исключительных ситуаций.Предусмотреть обработку ситуации,когда...

Массив: В каждой строке двумерного массива поменять местами максимальный и минимальный элементы
дана матрица вещественных чисел. В каждой строке поменять местами максимальный...

В каждой строке двумерного массива поменять местами первый нулевой элемент и последний отрицательный.Если таких элементов нет то должно быть введено с
В каждой строке двумерного массива поменять местами первый нулевой элемент и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru