С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
panov109
0 / 0 / 0
Регистрация: 15.11.2008
Сообщений: 1
1

Построить квадратную матрицу по заданному образцу

19.11.2008, 07:21. Просмотров 739. Ответов 7
Метки нет (Все метки)

Помогите плиз решить задачу!
Условие: построить квадратную матрицу A(n,n), n=10. чтобы выглядела так:
0 1 2 3 4 5 6 7 8 9
1 1 2 3 4 5 6 7 8 9
2 2 2 3 4 5 6 7 8 9
3 3 3 3 4 5 6 7 8 9
4 4 4 4 4 5 6 7 8 9
5 5 5 5 5 5 6 7 8 9
6 6 6 6 6 6 6 7 8 9
7 7 7 7 7 7 7 7 8 9
8 8 8 8 8 8 8 8 8 9
9 9 9 9 9 9 9 9 9 9


Заранее благодарен!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2008, 07:21
Ответы с готовыми решениями:

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

Сформировать квадратную матрицу n по заданному образцу
Задачи по лабам. 1.Заданы имена девочек. Определить, какие из этих имен...

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

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

Сформировать квадратную матрицу порядка n по заданному образцу
1_0_0 ... 0__0__n 0_2_0 ... 0_n-1_0 0_0_3 ... n-2_0_0 ... 0_2_0 ... ...

7
GalaX
701 / 573 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
19.11.2008, 07:45 2
думаю что-то типа этого:
Pascal
1
2
3
4
5
for i:=0 to 9 do begin
 for j:=0 to 9 do
  if j<i write(i) else write(j)
 writeln;
end;
0
Puporev
Модератор
55506 / 42595 / 29443
Регистрация: 18.05.2008
Сообщений: 100,754
19.11.2008, 09:38 3
Правильно так.
Код
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do 
  begin
    for j:=1 to 10 do
    if j<i+2 then write(i,' ') else write(j-1,' ');
    writeln;
  end;
readln
end.
0
Arriba
255 / 171 / 27
Регистрация: 17.10.2008
Сообщений: 770
19.11.2008, 09:50 4
Puporev,только i=0 до 9

Моно ещё вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
var i,j:integer;
begin
    for j:=0 to 9 do
    for i:=0 to 9 do
     begin
        if j<i then write(i,' ') else write(j,' ');
        if i=9 then WriteLn;
     end;
   readLn;
end.
0
Puporev
Модератор
55506 / 42595 / 29443
Регистрация: 18.05.2008
Сообщений: 100,754
19.11.2008, 09:52 5
Puporev,только i=0 до 9
Вы что все не можете посчитать, что матрица не квадратная? У меня выводит так, как написано в условии. Будьте внимательнее, не дергайтесь.
0
Arriba
255 / 171 / 27
Регистрация: 17.10.2008
Сообщений: 770
19.11.2008, 10:00 6
В задании то она квадратная должна быть, а у тебя от 1 до 9, получается что столбцов 10 а строк то 9 у тебя
0
Puporev
Модератор
55506 / 42595 / 29443
Регистрация: 18.05.2008
Сообщений: 100,754
19.11.2008, 11:22 7
Слушай, извини, но этот к... поменял условие. У него в нике видимо возраст указан.
0
Arriba
255 / 171 / 27
Регистрация: 17.10.2008
Сообщений: 770
19.11.2008, 11:37 8
Цитата Сообщение от Puporev Посмотреть сообщение
Слушай, извини, но этот к... поменял условие. У него в нике видимо возраст указан.
Всё нормалёк, нет проблемм.Насчёт возраста эт возможно...
0
19.11.2008, 11:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2008, 11:37

Сформировать квадратную матрицу порядка n по заданному образцу
Решите пожалуйста.До этого писала.Извините маленько не правильно.Я забыла...

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

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


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

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

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