Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Двумерный массив

Автор: faint 20.05.2007 21:53

Здрасти подскажите пожалуйста. В массив(например 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(т.е слева напрово потом с права налево потом опять слева направо и т.д до ста)

Автор: мисс_граффити 20.05.2007 22:33

http://forum.pascal.net.ru/index.php?showtopic=13172&hl=%E7%EC%E5%E9%EA*

Автор: Tan 20.05.2007 22:36

Если споосб 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 21.05.2007 1:50

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

http://forum.pascal.net.ru/index.php?showtopic=13172&hl=%E7%EC%E5%E9%EA*

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

я пробовал в эти два кода delay(15000) вставлять и там получается что они заполняют так же как у меня
а мне надо что бы он после заполнения первой строчки т.е после десятки опустил курсор вниз и начал заполнять вторую строчку с конца в начало и т.д.(или может и такого решения хватит????)

Автор: мисс_граффити 21.05.2007 2:10

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

Автор: faint 21.05.2007 2:13

Цитата(мисс_граффити @ 21.05.2007 1:10) *

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

а чё там сложного в заполнении то.... даже Я... сделал её

Автор: Tan 21.05.2007 2:23

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

Автор: faint 21.05.2007 2:33

Цитата(Tan @ 21.05.2007 1:23) *

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

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