Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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

samec
Цитата(AJIekceu @ 15.11.2008 17:29) *

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 уже Заполнение матрицы по спирали
AJIekceu
Извиняюсь...Просто щас пишу ещё курсовую и времени на интернет практически нет...
Спасибо за задачу
P.S. Отредактировать первое сообщение не могу из-за ошибки. Тему можно удалять.
Lapp
Спасибо за понимание.
М
Удалять не буду, так как есть ответ. Закрываю.

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