Двумерный массив. Заменить все 0 на 5

@MultyStepan · Регистрация: 08.02.2014

Author24 — интернет-сервис помощи студентам

Всем привет.
Суть задачи: двумерный массив. Заменить все 0 на 5.
Я вот написал код:
Как сделать назад выведение на стринггрид, что бы все 0 были заменены на 5

Pascal

procedure TForm1.Button1Click(Sender: TObject);
a :array [1..2,1..6] of integer;
i,j:integer;
zum,k:integer;
begin
k:=5;
// считывание матрицы
for i := 1 to 2 do
  for j := 1 to 6 do
    a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
  for i:=1 to 2 do
    for j := 1 to 6 do
      if a[i,j]=0 then
            a[i,j]:=k;//замена 0 на 5
 
 
 
 
end;
 
end.

@Sergio Leone · 21.07.2014, 11:04

Сообщение от MultyStepan

Delphi

// считывание матрицы
for i := 1 to 2 do
 for j := 1 to 6 do
 a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);

т.е. у Вас в StringGrid два столбца и 6 строк?

Сообщение от MultyStepan

Как сделать назад выведение на стринггрид, что бы все 0 были заменены на 5

ну, точно так же, как и считваете:

Pascal

1
2
3

for i := 1 to 2 do
  for j := 1 to 6 do
    StringGrid1.Cells[i-1,j-1]:=IntToStr(a[i,j]);

@Puporev · 21.07.2014, 11:19

Можно объединить замену и вывод

Delphi

for i := 1 to 2 do
for j := 1 to 6 do
 begin
  if a[i,j]=0 then a[i,j]:=5;
  StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);//сначала столбцы, потом строки
 end;

@Sergio Leone · 21.07.2014, 11:34

Сообщение от Puporev

StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);//сначала столбцы, потом строки

угу. в дебильном StringGrid сначала идёт индекс столбца, потом индекс строки.

Но если менять вывод, тогда нужно и чтение из StringGrid'а менять.

Я ведь не просто так спросил MultyStepan о том, сколько у него столбцов, а сколько строк!!

Сообщение от Sergio Leone

т.е. у Вас в StringGrid два столбца и 6 строк?

p.s. строго говоря, тут можно вообще без массива A обойтись!

@northener · 21.07.2014, 11:44

Не по теме:

Сообщение от Sergio Leone

угу. в дебильном StringGrid сначала идёт индекс столбца, потом индекс строки.

Дебильно читать слева-направо сверху-вниз? :)

@Sergio Leone · 21.07.2014, 11:47

Не по теме:

Сообщение от northener

Дебильно читать слева-направо сверху-вниз?

дебильно, когда в одном случае принято так, в другом - по другому.
Если Вам дадут массив (см. у ТС выше) A : array[1..2, 1..6] of Integer - то, по вашему сколько в нём строк и сколько столбцов.
Вот в этом ИМХО и есть "дебилизм" :(

@northener · 21.07.2014, 12:05

Не по теме:

Пардон, я ошибся.

@MultyStepan · 21.07.2014, 12:18 **[ТС]**

извините господа ошибся в у меня 2 строки и 6 столбцов

Добавлено через 3 минуты
значит уточню на будущие: в СтригГриде.
[j,i]
j-столбцы??
i-строки?
Всегда в начале столбцы, а потом строки?

@Puporev · 21.07.2014, 12:27

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

Delphi

1	StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);//если отсчет начинается с одинакового индекса(с 0 или 1...)

Добавлено через 4 минуты

Сообщение от Sergio Leone

строго говоря, тут можно вообще без массива A обойтись!

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

@MultyStepan · 21.07.2014, 12:31 **[ТС]**

Вот код рабочей и программы.

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var
a :array [1..6,1..2] of integer;
j,i:integer;
zum,k:integer;
begin
k:=5;
// считывание матрицы
for j := 1 to 6 do
  for i := 1 to 2 do
    a[j,i]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
  for j:=1 to 6 do
    for i := 1 to 2 do
      if a[j,i]=0 then
            a[j,i]:=k;//замана 0 на 5
      for j := 1 to 6 do
        for i := 1 to 2 do
        StringGrid1.Cells[j-1,i-1]:=IntToStr (a[j,i]);
 
 
 
 
 
 
end;
 
end.

@Puporev · 21.07.2014, 12:33

Сообщение от MultyStepan

StringGrid1.Cells[j-1,i-1]:=IntToStr (a[j,i]);

Что в лоб, что по лбу....

@MultyStepan · 21.07.2014, 12:33 **[ТС]**

А можно пример кода, в котор можно без массива обойтись.

@Puporev · 21.07.2014, 12:40

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
for i := 0 to 1 do
for j := 0 to 5 do
if StringGrid1.Cells[i,j]='0'
then StringGrid2.Cells[i,j]:='5'
else StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j]
end;

@Sergio Leone · 21.07.2014, 13:58

Сообщение от MultyStepan

А можно пример кода, в котор можно без массива обойтись.

или, чуть изменив код, если допустимо одним гридом обойтись (менять прямо в нём), то:

Delphi

1
2
3

for i := 0 to StringGrid1.ColCount-1 do
  for j := 0 to StringGrid1.RowCount-1 do
     if Trim(StringGrid1.Cells[i,j])='0' then StringGrid1.Cells[i,j]:='5';

только не забудьте, что у Вас:

Сообщение от Puporev

Задача на массив, он может быть нужен для каких-то вычислений

т.е. без массива у Вас решение могут банально не принять!

Двумерный массив. Заменить все 0 на 5

Решение

Решение

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	21.07.2014, 11:34	4
	Сообщение от Puporev StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);//сначала столбцы, потом строки угу. в дебильном StringGrid сначала идёт индекс столбца, потом индекс строки. Но если менять вывод, тогда нужно и чтение из StringGrid'а менять. Я ведь не просто так спросил MultyStepan о том, сколько у него столбцов, а сколько строк!! Сообщение от Sergio Leone т.е. у Вас в StringGrid два столбца и 6 строк? p.s. строго говоря, тут можно вообще без массива A обойтись! 0

@northener
	21.07.2014, 11:44 #5
	Не по теме: Сообщение от Sergio Leone угу. в дебильном StringGrid сначала идёт индекс столбца, потом индекс строки. Дебильно читать слева-направо сверху-вниз? :) 0

@Sergio Leone
	21.07.2014, 11:47 #6
	Не по теме: Сообщение от northener Дебильно читать слева-направо сверху-вниз? дебильно, когда в одном случае принято так, в другом - по другому. Если Вам дадут массив (см. у ТС выше) A : array[1..2, 1..6] of Integer - то, по вашему сколько в нём строк и сколько столбцов. Вот в этом ИМХО и есть "дебилизм" :( 0

@northener
	21.07.2014, 12:05 #7
	Не по теме: Пардон, я ошибся. 0

@MultyStepan 3 / 3 / 4 Регистрация: 08.02.2014 Сообщений: 213
	21.07.2014, 12:18 [ТС]	8
	извините господа ошибся в у меня 2 строки и 6 столбцов Добавлено через 3 минуты значит уточню на будущие: в СтригГриде. [j,i] j-столбцы?? i-строки? Всегда в начале столбцы, а потом строки? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.07.2014, 12:33	11
	Сообщение от MultyStepan StringGrid1.Cells[j-1,i-1]:=IntToStr (a[j,i]); Что в лоб, что по лбу.... 1

@MultyStepan 3 / 3 / 4 Регистрация: 08.02.2014 Сообщений: 213
	21.07.2014, 12:33 [ТС]	12
	А можно пример кода, в котор можно без массива обойтись. 0