Помощь - Поиск - Пользователи - Календарь
Полная версия: Двумерный массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
faint
Здрасти подскажите пожалуйста. В массив(например 10 на 10)нужно заполнить так
1 2 3 4 5 6 7 8 9 10
20 19 18 17 16 15 14 13 12 11
21 и т.д до ста(под 10 должно быть 11)
типа змейкой
У меня токо так получилось
Код
program matrix;
uses crt;
var
M: array [1..10,1..10] of integer;
i,j: integer;
begin
clrscr;
for i:= 1 to 10 do
for j:= 1 to 10 do
if i=1 then M[i,j]:=i*j
else
if i mod 2 = 0 then M[i,j]:=10*i+1-j
else M[i,j]:=10*(i-1)+j;
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
write(M[i,j]:4);
writeln;
end;
readln;
end.

но так заполняется всё время токо с лева направо, а как сделать чтобы заполнялось попорядку 1..100(т.е слева напрово потом с права налево потом опять слева направо и т.д до ста)
мисс_граффити
Заполнение массива змейкой
Tan
Если споосб volvo покажется трудным можешь посмотреть мою реализацию :
uses crt;
Const N = 10;
M = 10;
var ms : array [1..N,1..M] of integer;
i,j,k : integer;
begin
Clrscr;
k := 0;
for i := 1 to N do
If i mod 2 = 0 then
for j := M downto 1 do
begin
inc (k); ms[i,j] := k;
end
else
for j := 1 to M do
begin
inc (k); ms[i,j] := k;
end;
for i := 1 to N do
begin
for j := 1 to M do
write (ms[i,j]:4);
writeln;
end;
readkey;
end.

faint
Цитата(мисс_граффити @ 20.05.2007 21:33) *

опа... я и незнал что он так называется
Цитата
мисс_граффити
и
Цитата
Tan

я пробовал в эти два кода delay(15000) вставлять и там получается что они заполняют так же как у меня
а мне надо что бы он после заполнения первой строчки т.е после десятки опустил курсор вниз и начал заполнять вторую строчку с конца в начало и т.д.(или может и такого решения хватит????)
мисс_граффити
blink.gif
мне кажется, задание совсем не на способ вывода.
фишка в заполнении.
faint
Цитата(мисс_граффити @ 21.05.2007 1:10) *

:blink:
мне кажется, задание совсем не на способ вывода.
фишка в заполнении.

а чё там сложного в заполнении то.... даже Я... сделал её
Tan
Если ты не знаешь на какую тему твоё задание, то здесь наверно тебе никто не поможет. Если ты написал полное условие, то предоставленные коды вполне годятся.
faint
Цитата(Tan @ 21.05.2007 1:23) *

Если ты не знаешь на какую тему твоё задание, то здесь наверно тебе никто не поможет. Если ты написал полное условие, то предоставленные коды вполне годятся.

тогда спасибо
мне просто на словах сказали(всё что сказали я выложил)

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.