Задачи Опции

[AJIekceu]

Прошу помочь с задачами
1)Центрирование массива.От каждого из заданных m чисел X1,X2,..Xm отнять их среднеарифметическое
Результаты разместить на месте исходных данных
2)для заданного n>0 вычислить
(3+(6+...+(3(n-1)+(3n)^1/2)^1/2)^1/2)^1/2
(формула в сделаная в ворде прикрепил)
3)Матрицу размером m x n заполнить натуральными числами от 1 до m*n по спирали, начинающейся в левом верхнем углу и закрученной по часовой стрелке.

М

Просьба привести тему в соответствие с Правилами Форума (ссылка вверху страницы), п.1.11, п.4 и Правилами раздела Задачи, п.6. Отрдактируй тему, или она будет закрыта. Lapp

Сообщение отредактировано: Lapp - 16.11.2008 6:44

[samec]

3)Матрицу размером m x n заполнить натуральными числами от 1 до m*n по спирали, начинающейся в левом верхнем углу и закрученной по часовой стрелке.

вот процедура, которая записывает в матрицу цифры по спирали:

{процедура заполнения матрицы}
procedure Zapolnenie(kVit:integer);
var
 i,j,V,  {счетчики циклов}
 chislo:integer;  {натуральное число}
begin
chislo:=0;
FOR V:=1 TO kVit DO
 BEGIN
  for j:=V to n-(V-1) do
   begin
    chislo:=chislo+1;
    a[V,j]:=chislo;
   end;

  for i:=V+1 to m-(V-1) do
   begin
    chislo:=chislo+1;
    a[i,n-(V-1)]:=chislo;
   end;

  for j:=n-V downto V do
   begin
    chislo:=chislo+1;
    a[m-(V-1),j]:=chislo;
   end;

  if(chislo<>m*n) then
   for i:=m-V downto V+1 do
    begin
     chislo:=chislo+1;
     a[i,V]:=chislo;
    end;
 END;
end;

где kVit - количество витков спирали.
А вообще эта задача решена в FAQ уже Заполнение матрицы по спирали

Сообщение отредактировано: samec - 15.11.2008 22:14

[AJIekceu]

Извиняюсь...Просто щас пишу ещё курсовую и времени на интернет практически нет...
Спасибо за задачу
P.S. Отредактировать первое сообщение не могу из-за ошибки. Тему можно удалять.

Сообщение отредактировано: AJIekceu - 16.11.2008 20:36

[Lapp]

Спасибо за понимание.

М

Удалять не буду, так как есть ответ. Закрываю.