2 задачи про массивы Опции

[I_am_HATED]

1. Нахождение максимального значения в массиве среди всех чётных чисел. Длина массива вводится с клавиатуры. Печатать элементы массивы по 9 штук, по формату :6. Тип обрабатываемых данных - целые.

2. Заполнить двумерный массив A(MxN) элементов символами из одномерного массива В (длиной не более 256 элементов) "змейкой" от конца к началу - сперва N-ю строку справа налево, затем N-1-ю слева направо и т.д. Массив B предварительно заполняется из входного текстового файла. Оба массива распечатать. Предельные значения числа строк 16, столбцов 16. Тип обрабатываемых данных - символьный.

Помогите решить, я что-то путаюсь в них..

[volvo]

Что сама делала? Или хотя бы пыталась делать?

Что является основной проблемой при решении?

Помогите решить

Ключевое слово выделено, ты начинай, сделай хоть что-то, а мы поможем...

[Krjuger]

Черт взяли и удалила именно ту тему,куда писал)))По поводу второй задачи, заполнять змейкой,то что то в духе

k:=1;{индекс массива В}
s:=1;{переменная для чередования строк}
for i:=n downto 1 do begin
 if s mod 2=0 then begin
   for j:=1 to m do begin
   A[i,j]:=B[k];
   k:=k+1;
  end;
 else
  for j:=m downto 1 do begin
   A[i,j]:=B[k];
   k:=k+1;
  end;
 end;
s:=s+1;
end;

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

УЧТИ.Я лиш подал идею.Это не является решением твоей задачи.(чтоб это стало решением задачи, нужно еще доделать)

Сообщение отредактировано: Krjuger - 26.05.2009 19:54

[volvo]

"Змеек" как минимум 4 способа выложено на форуме, половина из них - в FAQ-е, отлаженные и оттестированные. Зачем опять велосипед - непонятно... Что, поиск можно отключать, никто не пользуется? Устроили здесь соревнования Formula I, главное быстрее ответить и счетчик накрутить?

[Krjuger]

Нет, мне действительно интересно порешать такие задачки в свободное время))))насчет фака,иногда там бывают( конешно же все рабочие и отлаженые) задачи,но довольно "высоко" написанные.я имею в виду их писали бывалые програмисты,а не особо понимающим людям их решения тьма кромешная и им надо что нибудь попроще))

[volvo]

Попроще - не значит правильнее, правда? Вот у тебя в решении - явное дублирование кода. Избавишься от условия if внутри цикла по строкам, +1 в репутацию тебе обеспечен (за освоение новых, более интересных, чем ты сейчас это делаешь, методов решения ) Нельзя же все время делать все "в лоб", надо учиться и другим методам...

[Krjuger]

Хорошо побежал подключать аспирантов...

k:=1;{индекс массива В}
s:=1;{переменная для чередования строк}
for i:=n downto 1 do begin
 for j:=1 to m do begin
   if s mod 2=0 then 
     A[i,j]:=B[k];
    else
      A[i,m-j+1]:=B[k];
 
   k:=k+1;
  end;
 s:=s+1;
end;

Лучше этого придумать пока что ничего не смог.

Сообщение отредактировано: Krjuger - 26.05.2009 22:15

[volvo]

Даже не думай, я ж еще и вопросы задавать буду, почему так, а не иначе... Чужими мозгами долго не протянешь...

[Krjuger]

Мож тогда чему нибудь и научусь ,yes my master,покажи мне путь истины.а вообще флуд уже начался,где там создатель темы???Умер чтоли??

Эм ну и где моя обещанная концетка*?

Сообщение отредактировано: Krjuger - 26.05.2009 22:37

[-volvo-]

ну и где моя обещанная концетка*?

Ты ж от if-а не избавился ... Избавляйся - будет "конфетка"

[Krjuger]

k:=1;{индекс массива В}
s:=m;{переменная для чередования строк}
p:=m;
d:=1;
 for j:=m downto 1 do begin
   for i:=n downto 1 do begin  
     A[i,s]:=B[k];
     s:=abs(s-p)+1;
      k:=k+m;
  end;
 d:=d+1;
 k:=d;
 s:=p-1;
 end;

Не бей сильно,я не знаю будет работать или нет))))паскаля нету щас с собой(не дома).Это все на что меня хватило,но это уже изврат)

[Lapp]

я не знаю будет работать или нет))))

Не, не будет .
Хоть я и не Паскаль..))

[Krjuger]

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

Сообщение отредактировано: Krjuger - 28.05.2009 13:30

[Lapp]

Ну подкиньте хоть идейку..
...
пока что я дошел только до варианта,где кол во строк четно.

А при чем тут количество строк?

Идейку?.. Ну, смотри.
Сделай переменную для величины изменения, d. Сначала положи d:=-1. Потом во внешнем цикле (в конце) умножай ее на -1.
Второй индекс, i2, сначала положи равным m, а потом так: Inc(i2,d).

[Krjuger]

k:=1;{индекс массива В}
s:=1;{переменная для чередования строк}
for i:=n downto 1 do begin 
j:=m;
while (s mod 2=0) and (j>=1) do begin 
     A[i,j]:=B[k];
     k:=k+1;
     j:=j-1;
  end;
 while (s mod 2<>0)  and (j>=1) do begin 
      A[i,m-j+1]:=B[k];
      k:=k+1;
      j:=j-1;
   end;
   s:=s+1;
end;

Вот еще вариантик.олько,что то мне подсказывает,что его ты тоже забракуеш,потому что

Вот у тебя в решении - явное дублирование кода

Опять же пишу из универа.через чужой ноут без паскаля(в плане паскаля у человека нет).

Сообщение отредактировано: Krjuger - 28.05.2009 14:35

[Unconnected]

Компилятор в голове... самонадеянно

[Lapp]

что то мне подсказывает,что его ты тоже забракуеш,потому что

Вот у тебя в решении - явное дублирование кода

Не только поэтому. Ты заменил if на while - и думаешь, прокатит? ))

Чем моя "идейка" не понравилась? вникай..))

[Krjuger]

Я не знаю почему,но на момент размещения своего варианта,я твою идею,не видел.насчет -1,щас посмотрим...)))

Unconnected

компилятора в голове нету(процессор слишком слабенький,не тянет),задача больше математическая.Жаль до -1 сам не дошел(

Сообщение отредактировано: Krjuger - 28.05.2009 15:57

[Unconnected]

uses crt;
const m=5;n=5;z=25;
var i,j,f:byte;
    d:integer;
    b:array[1..z] of byte;
    a:array[1..m,1..n] of byte;
begin
  clrscr;
  randomize;
  for i:=1 to z do
    begin
      b[i]:=random(10);
      write(b[i],' ');
    end;
  readln;
  d:=-1;
  f:=1;
  i:=m;
  j:=n;
  repeat
    repeat
      a[i,j]:=b[f];
      write(a[i,j],'  ');
      delay(50000);
      inc(f);
      j:=j+d;
    until (j+d=-1) or (j+d=n+1);
    d:=-d;
    dec(i);
    writeln;
  until (i=0);
  readln;
end.

Мой вариант:)

Не знаю правда, это ли Lapp имел в виду, когда говорил про d:=-1;, но кажется принцип похож)

Сообщение отредактировано: Unconnected - 28.05.2009 15:34

[volvo]

но кажется принцип похож)

Принцип, может, и похож, но у тебя вылет по ошибке 201 - Range Check, проверяй

(не забудь включить контроль границ, естественно)