Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Drake93
1 / 1 / 0
Регистрация: 27.10.2010
Сообщений: 21
1

Матрица: Сформировать квадратную матрицу порядка n

29.09.2011, 22:32. Просмотров 501. Ответов 3
Метки нет (Все метки)

Сформировать квадратную матрицу порядка n
0
Изображения
Тип файла: jpg 14234141.jpg (10.8 Кб, 50 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.09.2011, 22:32
Ответы с готовыми решениями:

Сформировать квадратную матрицу порядка n
0 0 0 ...0 0 1 0 0 0 ...0 2 0 0 0 0 ...3 0 0 ................. 0 n-1 0....0 0 0 n 0 0 ...0 0...

Сформировать квадратную матрицу порядка n
сформировать квадратную матрицу порядка n по заданному образцу c выводом в файл ...

Сформировать квадратную матрицу порядка n
1 2 3 ... n-2 n-1 n 2 2 4 ... n-1 n 0 3 4 5 ... n 0 ...

Сформировать квадратную матрицу n-го порядка
Помогите сделать матрицу по образцу Сам попробовал но что то вникнуть не могу Const x =...

Сформировать квадратную матрицу порядка n по заданному образцу
Сформировать квадратную матрицу порядка n по заданному образцу: n n-1 n-2 … 3 2 1...

3
napasik
38 / 38 / 24
Регистрация: 29.09.2011
Сообщений: 99
29.09.2011, 23:02 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
program matrix;
type 
   newtype=integer; //нужный тип элементов матрицы
   mass=array[1..100,1..100] of newtype; //двумерный массив
var 
   i,j,n:integer;
   m:mass;
begin
write('Введите n: ');
readln(n);
 
{Цикл ввода матрицы}
for i:=1 to n do
 for j:=1 to n do
  begin
  write('M[',i,',',j,']=');
  readln(m[i,j]);
  end;
 
writeln;
  
{Цикл вывода матрицы}
for i:=1 to n do
begin
 for j:=1 to n do
  begin
  write(m[i,j],' '); //Вывод строки
  end;
 writeln; //Переход на слудующую строку
end;  
end.
1
Daemon025
381 / 329 / 159
Регистрация: 06.12.2010
Сообщений: 894
29.09.2011, 23:04 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    uses crt;
    var i,j,n:integer;
        a:array[1..10,1..10] of integer;
begin
    n:=10;
 
    for i:=1 to n do
    begin
        for j:=1 to n do
        begin
            a[i][j]:=((i+j-2) mod n) +1;
            Write(a[i][j]:2,' ');
        end;
        WriteLn;
    end;
end.
1
Puporev
Модератор
58571 / 44475 / 30707
Регистрация: 18.05.2008
Сообщений: 106,552
30.09.2011, 14:42 4
Pascal
1
a[i][j]:=abs(j-i) +1;
1
30.09.2011, 14:42
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2011, 14:42

Сформировать квадратную матрицу порядка n по заданному образцу
Добрый вечер, уважаемые форумчане. Очень нужна ваша помощь) помогите найти решение первого и...

Сформировать квадратную матрицу порядка по заданному образцу
Буду благодарен всем за помощь.Прошу сделать по быстрее кто может. 1. Сформировать квадратную...

Сформировать квадратную матрицу порядка n по заданному образцу


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

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

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