IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
Closed Topic Открыть новую тему 
> Задачи
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


Прошу помочь с задачами
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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 180
Пол: Мужской
Реальное имя: Юра

Репутация: -  1  +


Цитата(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 уже Заполнение матрицы по спирали

Сообщение отредактировано: samec -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


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

Сообщение отредактировано: AJIekceu -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Спасибо за понимание.
М
Удалять не буду, так как есть ответ. Закрываю.



--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.01.2022 9:54
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name