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

двумерные масивы

02.03.2010, 19:46. Показов 552. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу, которая формирует матрицу n*n в следующем виде:
1 0 0 ... 0 0 0
1 2 0 ... 0 0 0
1 2 3 ... 0 0 0
. . . . . . .
. . . . . . .
. . . . . . .
1 2 3 ... n-2 0 0
1 2 3 ... n-2 n-1 0
1 2 3 ... n-2 n-1 n
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
02.03.2010, 19:46
Ответы с готовыми решениями:

Двумерные масивы.
Б5. В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем...

двумерные масивы
помогите двумерные масивы и подпрограмма функция

Масивы
Задание на скриншоте ниже: http://img7.imageshost.ru/imgs/091012/5aad99e3a4/adbea.jpg

5
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
02.03.2010, 19:48
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j:integer;
 
begin
 clrscr;
 for i:=1 to n do
 begin
  for j:=1 to i do a[i,j]:=j;
  for j:=1 to n do write(a[i,j],' ');
  writeln;
 end;
 readln;
end.
0
2 / 2 / 0
Регистрация: 12.02.2010
Сообщений: 29
02.03.2010, 19:48  [ТС]
спасибо
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.03.2010, 20:03
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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=i then a[i,j]:=j
    else a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.
1
2 / 2 / 0
Регистрация: 02.03.2010
Сообщений: 8
02.03.2010, 20:44
еще помогите плиз на ту же тему)
Написать программу, которая формирует матрицу nxn в следующем виде:

1 0 0 ... 0 0 1
0 2 0 ... 0 2 0
0 0 3 ... 3 0 0
... ... ... ... ... ... ...
0 n-1 0 ... 0 n-1 0
n 0 0 ... 0 0 n

в общем матрица в которой по диагоналям от n до 1 снизу вверх,а остальное всё ноли)
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.03.2010, 20:51
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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (j=i) or (j=n-i+1) then a[i,j]:=i
    else a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.03.2010, 20:51
Помогаю со студенческими работами здесь

МАсивы
В масивію,що складається з дійсних елементів обчисліть: номер мінімального елемента мисива)). только єто надо зделать с помощью...

Масивы
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К.

масивы
дана прямоугольная матрица F подсчитать средние арифметическое отрицательных элементов в матрице. прошу помочь, очень срочно.

Масивы
Привет Люди, снова нужна ваша помощь .... Решите задачи если не трудно... 1)Дано v1,v2,t1,t2.Пусть смешано v1 литров воды температуры...

Масивы
Дан статичный массив А(1,8,-7,6,-15), сформировать динамичный массив Б, который будет содержать отрицательные элементы массива А. Заранее...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Программный отбор элементов справочника Номенклатура по группе 1С
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор элементов справочника Сотрудники по перечислениям 1С
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru