0 / 0 / 1
Регистрация: 19.12.2012
Сообщений: 178
1

Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю

23.03.2013, 17:24. Показов 4784. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2013, 17:24
Ответы с готовыми решениями:

Дан двумерный массив размерностью Н. сформировать одномерный массив из элементов заданного массива расположенных над главной диагональю.
помогите решить=)Дан двумерный массив размерностью Н. сформировать одномерный массив из элементов...

Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю
Помогите пожалуйста с кодом. Дан двумерный массив размером nxn. Сформировать одномерный...

Сформировать одномерный массив из элементов двумерного массива, расположенных над главной диагональю
Ребята помогите пожалуйста с задачей, прям выручите, Условие такое: Дан двумерный массив размером...

Дан двумерный массив. Сформировать одномерный массив из элементов заданного массива, расположенных под побочной диагональю.
Дан двумерный массив размером n x n. Сформировать: Одномерный массив из элементов заданного...

6
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
23.03.2013, 19:57 2
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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..(nmax*nmax-nmax)div 2]of integer;
    n,m,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
m:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  m:=m+1;
  b[m]:=a[i,j];
 end;
writeln('Массив элементов над главной диагональю');
for i:=1 to m do
write(b[i],' ');
readln
end.
1
0 / 0 / 1
Регистрация: 19.12.2012
Сообщений: 178
24.03.2013, 19:33  [ТС] 3
чем можно заменить until in?
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
24.03.2013, 19:38 4
Pascal
1
2
3
4
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until (n>0)and(n<=nmax);
Или вообще убери repeat..until, тогда если введешь n=-1000,сам будешь отвечать
1
0 / 0 / 0
Регистрация: 25.12.2013
Сообщений: 4
26.12.2013, 08:09 5
а если мне нужно под главной диагональю?чего поменять?
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
26.12.2013, 08:13 6
Pascal
1
2
3
4
5
6
7
m:=0;
for i:=2 to n do
for j:=1 to i-1 do
 begin
  m:=m+1;
  b[m]:=a[i,j];
 end;
1
0 / 0 / 0
Регистрация: 25.12.2013
Сообщений: 4
26.12.2013, 08:18 7
спасибочки=)))))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2013, 08:18
Помогаю со студенческими работами здесь

Сформировать одномерный массив из элементов заданного массива, расположенных под главной диагональю
Дан двумерный массив размером n . Сформировать одномерный массив из элементов заданного массива,...

Сформировать одномерный массив из элементов матрицы, расположенных над главной диагональю
Дан двумерный массив размером nxn. Сформировать одномерный массив из элементов заданного массива,...

Сформировать одномерный массив из элементов матрицы, расположенных над главной диагональю
Дан двумерный массив размером n*n.Сформировать одномерный массив из элементов заданного массива...

Сформировать одномерный массив из элементов матрицы, расположенных над главной диагональю
Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru