Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 02.10.2012
Сообщений: 1

Заполнить матрицу по заданному рисунку

13.11.2012, 02:20. Показов 1846. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подайте пожалуйста идею как заполнить матрицу числами от 1 до n2 по заданной схеме. Спасибо!
Изображения
 
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.11.2012, 02:20
Ответы с готовыми решениями:

Заполнить массив A[NxN] случайными числами. Развернуть матрицу на 180 градусов и полученную матрицу сложить с исходной.
Пожалуйста помогите написать программу. Заполнить массив A случайными числами. Развернуть матрицу на 180 градусов и полученную...

Построчно ввести матрицу целых чисел 5х5 (любые целые числа), вторую матрицу заполнить случайными числами
Построчно ввести матрицу целых чисел 5х5 (любые целые числа), вторую матрицу заполнить случайными числами < 100 (матрица естественно...

Заполнить массив по заданному условию
var a:array of real; s,b,summ:real; i,j:integer; begin for i:=1 to 4 do begin for j:=1 to 5 do begin ...

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
13.11.2012, 11:17
Лучший ответ Сообщение было отмечено dorada81 как решение

Решение

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
uses crt;
const nmax=19;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,x:integer;
begin
repeat
write('Размер матрицы n=');
read(n);
until n in [1..nmax];
writeln('Матрица А:');
x:=0;
for j:=n downto 1 do
 begin
  for i:=1 to n-j+1 do
   begin
    x:=x+1;
    a[i,j]:=x;
   end;
  if j<n then
  for k:=j+1 to n do
   begin
    x:=x+1;
    a[i,k]:=x;
   end;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.11.2012, 11:17
Помогаю со студенческими работами здесь

Заполнить массив по заданному правилу
имеется код и при запуске на 8-ой строчке выдаёт ошибку, что индекс находился вне границы массива: var i,j,n,a,b,s,s1,c,f:integer; ...

Заполнить массив по заданному правилу
1. Заполнить массив y по правилу для всех с шагом 1: у=х+ сos x

Заполнить двумерный массив по заданному правилу
Помогите заполнить двумерный массив размером 7 7 так 1 0 0 1 0 0 1 0 1 0 1 0 1 0 0 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 0 0 1...

Заполнить двумерный массив по заданному правилу
Доброго времени суток. Помогите разобраться с задачей. Дан одномерный массив А. Заполнить двумерный массив B(10*10) по следующему правилу:...

Заполнить двумерный массив по заданному правилу
Даны двовимирний массив А значения элементов которого задаются формулой. Вывести таблицу на экран, согласно своего варианта и выполнить над...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru