Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 23.02.2011
Сообщений: 16
1

заполнить масив по спирали

23.02.2011, 21:08. Показов 1354. Ответов 2
Метки нет (Все метки)

Заполнить матрицу 7х7 элементами от 1 до 49 по спирали. Поменять местами столбцы с минимально и максимальной суммой элементов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2011, 21:08
Ответы с готовыми решениями:

паскаль.заполнить по спирали
Заполнить спираль размерность 10 на 10,из нижнего левого в право. Надеюсь на вашу отзывчивость.

Заполнить матрицу по спирали
Разработайте программу, которая заполняет двумерный массив нату-ральными числами по спирали....

Заполнить матрицу n на n по спирали
Задание : Заполнить матрицу n на n следующим образом (пустые клетки заполняются 0) Не могу...

надо заполнить по спирали
надо заполнить по спирали Пример: 13 14 15 16 17 12 3 4 5 18 11 2 1 6 19 10 9 ...

2
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
24.02.2011, 08:40 2
Лучший ответ Сообщение было отмечено Sonne_asja как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
const n=7;
var a:array[1..n,1..n] of integer;
    i,j,r,l,jmn,jmx,mn,mx,sm,x:integer;
begin
clrscr;
r:=0;l:=0;
repeat
inc(r);
for i:=r to n-r+1 do     begin inc(l); a[r,i]:=l;     end;{вправо}
for i:=r+1 to n-r+1 do   begin inc(l); a[i,n-r+1]:=l; end;{вниз}
for i:=n-r downto r do   begin inc(l); a[n-r+1,i]:=l; end;{влево}
for i:=n-r downto r+1 do begin inc(l); a[i,r]:=l;     end;{вверх}
until l=n*n;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
writeln;
mn:=n*n*n;
mx:=0;
jmn:=1;
jmx:=1;
for j:=1 to n do
 begin
  sm:=0;
  for i:=1 to n do
  sm:=sm+a[i,j];
  if sm>mx then
   begin
    mx:=sm;
    jmx:=j;
   end;
  if sm<mn then
   begin
    mn:=sm;
    jmn:=j;
   end;
 end;
writeln('Минимальная  сумма в столбце ',jmn,'=',mn);
writeln('Максимальная сумма в столбце ',jmx,'=',mx);
for i:=1 to n do
 begin
  x:=a[i,jmn];
  a[i,jmn]:=a[i,jmx];
  a[i,jmx]:=x;
 end;
writeln;
writeln('Обмен столбцов ',jmn,' и ',jmx);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.
1
0 / 0 / 0
Регистрация: 23.02.2011
Сообщений: 16
24.02.2011, 20:39  [ТС] 3
спасибо огромное
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.02.2011, 20:39

Заполнить массив по спирали
Заполнить элемента массива натуральными значениями, начиная от 1 и заканчивая N*N, обходя элементы...

Заполнить матрицу по спирали
Создать матрицу с использованием генератора случайных чисел, вывести на экран исходную матрицу и...

Заполнить матрицу по спирали
заполнит матрицу таким образом 5 6 7 8 9 4 18 19 10 3 17 20 11 2 16 21 12 1 15 14 13 то...

Заполнить матрицу по спирали.
http://************.com/files/4x9alup5f вот ссылка на рисунок по которому заполняется матрица!!!...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.