Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
glykoman
1 / 1 / 0
Регистрация: 07.10.2013
Сообщений: 110
#1

Получить квадратную матрицу - Turbo Pascal

07.10.2013, 13:59. Просмотров 253. Ответов 1
Метки нет (Все метки)

Получить квадратную матрицу порядка n вида:

1 0 0 0 1
1 1 0 1 1
1 1 1 1 1
1 1 0 1 1
1 0 0 0 1

заранее огромное спасибо за помощь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2013, 13:59
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Получить квадратную матрицу (Turbo Pascal):

Получить квадратную матрицу порядка 8 - Turbo Pascal
помогите сделать прогу по готовому алгоритму: Даные действительные числа х1......х8. получить квадратную матрицу порядка 8

Получить квадратную матрицу порядка n: - Turbo Pascal
Ещё одна задачечка на Паскале из рода непонятных для меня: Получить квадратную матрицу порядка n: Вот рисуночек: Помогите с...

Получить квадратную матрицу размерности N: - Turbo Pascal
Получить квадратную матрицу размерности N:

Получить квадратную матрицу порядка n - Turbo Pascal
1) 2 1 1 . . . 0 . .. . 0. . . 1 1 2 2) 1 1 1 . 1 1 1 1 1 . 1 1 ...

Получить квадратную матрицу порядка n: - Turbo Pascal
Получить квадратную матрицу порядка n:

Получить квадратную матрицу порядка n: (а) - Turbo Pascal
Получить квадратную матрицу порядка n:

1
Puporev
Модератор
52377 / 40224 / 13562
Регистрация: 18.05.2008
Сообщений: 92,961
07.10.2013, 14:51 #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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of byte;
    n,i,j:byte;
begin
clrscr;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if ((j>i)and(j<n-i+1))
    or ((j>n-i+1)and(j<i)) then a[i,j]:=0
    else a[i,j]:=1;
    write(a[i,j]:3)
   end;
  writeln
 end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 14:51
Привет! Вот еще темы с ответами:

Получить целочисленную квадратную матрицу - Turbo Pascal
Получить целочисленную квадратную матрицу, порядка 7, элементами которой являются числа 1,2,...,49, расположенные в ней по спирали.

Получить квадратную матрицу порядка N - Turbo Pascal
получить квадратную матрицу порядка N, где по диагонали с лева на право единици, а остальные нули.

Получить квадратную матрицу порядка n - Turbo Pascal
Получить квадратную матрицу порядка n -1 2 -3 .... n-2 -(n-1) n -n n-1 -(n-2) ...

Получить квадратную матрицу порядка n - Turbo Pascal
1. Получить квадратную матрицу порядка n: Концепт данного задания вообще не понимаю, просьба помочь 2. Дана квадратная матрица А...


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

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

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