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