Заполнить двумерный массив размером n x m "Змейкой"

@barsichek · Регистрация: 06.01.2011

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

Заполнить двумерный массив размером n x m "Змейкой"
Например:
1 2 3 4 5 6
7 8 9 10 11 12
13 14 15 16 17 18
Вообщем змейкой)))
И удалить k строку, k нужно ввести самому.
Нужно сделать в форме
Icq: 428326807

@anonimus · 07.01.2011, 00:03

вроде так

@barsichek · 08.01.2011, 12:57 **[ТС]**

Спасибо, Немножко дороботать бы, он заполняет, нумеруя со второй строчки, а удаляет все правильно)

@anonimus · 08.01.2011, 14:34

Delphi

1	он заполняет, нумеруя со второй строчки

не понял, все правильно он заполняет начиная с 1

@barsichek · 09.01.2011, 14:30 **[ТС]**

Извиняюсь, ошибся, заполняет все правильно, может сделать через стрингрид?

@anonimus · 09.01.2011, 18:17

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

может сделать через стрингрид

можешь и через стрингрид ) как хочешь

@barsichek · 09.01.2011, 19:28 **[ТС]**

Сделаешь?*)

@anonimus · 10.01.2011, 12:42

Держи

@barsichek · 12.01.2011, 14:43 **[ТС]**

Блин что то я вообще всё перепутал, пример заполнения не такой (((
Не так сказал(
ВОт так должно быть

1 2 3 4 5
10 9 8 7 6
11 12 13 14 15 и т.д пример заполнения такой

Сорри за не внимательность.

@barsichek · 16.01.2011, 11:49 **[ТС]**

Будет вот так.. Кому интересно

@Vetalhomenko · 11.04.2016, 20:44

А как сделать такую же проораму ?но заполнеие должно быть таким
1 11 12
2 10 13
2 9 14
3 8 15
4 7 16
5 6 17

@Puporev · 11.04.2016, 21:06

И чтобы было именно две двойки?

Добавлено через 5 минут
Если от 1 до 18, то можно так.

Delphi

x:=1;
y:=1;
k:=1;
z:=1;
while z<=m*n do
 begin
  a[y,x]:=z;
  y:=y+k;
  z:=z+1;
  if y>m then
   begin
    y:=m;
    k:=-k ;
    x:=x+1;
   end
  else if y=0 then
   begin
   y:=1;
   k:=-k;
   x:=x+1;
   end;
 end;

@barsichek 0 / 0 / 0 Регистрация: 06.01.2011 Сообщений: 6
		1
	Заполнить двумерный массив размером n x m "Змейкой" 06.01.2011, 12:02. Показов 2747. Ответов 11 Метки нет (Все метки) Заполнить двумерный массив размером n x m "Змейкой" Например: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Вообщем змейкой))) И удалить k строку, k нужно ввести самому. Нужно сделать в форме Icq: 428326807 0

@barsichek 0 / 0 / 0 Регистрация: 06.01.2011 Сообщений: 6
	08.01.2011, 12:57 [ТС]	3
	Спасибо, Немножко дороботать бы, он заполняет, нумеруя со второй строчки, а удаляет все правильно) 0

@barsichek 0 / 0 / 0 Регистрация: 06.01.2011 Сообщений: 6
	09.01.2011, 14:30 [ТС]	5
	Извиняюсь, ошибся, заполняет все правильно, может сделать через стрингрид? 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	09.01.2011, 18:17	6
	Сообщение от barsichek может сделать через стрингрид можешь и через стрингрид ) как хочешь 0

@barsichek 0 / 0 / 0 Регистрация: 06.01.2011 Сообщений: 6
	09.01.2011, 19:28 [ТС]	7
	Сделаешь?*) 0

@barsichek 0 / 0 / 0 Регистрация: 06.01.2011 Сообщений: 6
	12.01.2011, 14:43 [ТС]	9
	Блин что то я вообще всё перепутал, пример заполнения не такой ((( Не так сказал( ВОт так должно быть 1 2 3 4 5 10 9 8 7 6 11 12 13 14 15 и т.д пример заполнения такой Сорри за не внимательность. 0

@Vetalhomenko 0 / 0 / 0 Регистрация: 11.04.2016 Сообщений: 1
	11.04.2016, 20:44	11
	А как сделать такую же проораму ?но заполнеие должно быть таким 1 11 12 2 10 13 2 9 14 3 8 15 4 7 16 5 6 17 0

Опции темы