Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
TopSecret96
0 / 0 / 3
Регистрация: 28.04.2015
Сообщений: 30
#1

В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше нее - Pascal ABC

26.05.2015, 17:54. Просмотров 394. Ответов 2
Метки нет (Все метки)

условие задачи: В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше главной диагонали.

нужно изменить код: убрать рандом, чтобы значения матрицы вписывать вручную
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var i,j,n:integer;
a:array[1..1000,1..1000]of integer; 
 begin
 writeln('Введите размерность квадратной матрицы');
 read(N);
 for i:=1 to n do 
 for j:=1 to n do a[i,j]:=random (1,n);
for i:=1 to n do
  for j:=i to n do
     a[i,j]:=0;
    for i:=1 to n do
    begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
     end.

http://www.cyberforum.ru/pascalabc/thread1433116.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 17:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше нее (Pascal ABC):

Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные на главной диагонали и выше нее.
Дана действительная квадратная матрица порядка 12. Замените нулями все ее...

Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной диагонали и выше неё
Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной...

Дана действительная квадратная матрица. Заменить нулями все элементы, на главной диагонали и выше нее
Дана действительная квадратная матрица порядка 12. Заменить нулями все ее...

Заменить нулями все элементы, расположенные на главной диагонали двумерного динамического массива A[N,N]
заменить нулями все элементы, расположенные на главной диагонали двумерного...

Заменить нулями элементы, лежащие одновременно выше главной диагонали матрицы
PASCAL ABC вот такое задание, как же мне надоел уже этот паскаль --- Дана...

2
kot96
54 / 45 / 97
Регистрация: 17.08.2014
Сообщений: 151
26.05.2015, 18:25 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i,j,n:integer;
a:array[1..1000,1..1000]of integer; 
 begin
 writeln('Введите размерность квадратной матрицы');
 read(N);
 for i:=1 to n do 
 for j:=1 to n do
 begin
 write('введите элемент матрицы: ');readln(a[i,j]);
 end;
for i:=1 to n do
  for j:=i to n do
     a[i,j]:=0;
    for i:=1 to n do
    begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
     end.
1
TopSecret96
0 / 0 / 3
Регистрация: 28.04.2015
Сообщений: 30
26.05.2015, 18:31  [ТС] #3
спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2015, 18:31
Привет! Вот еще темы с решениями:

Заменить нулями все элементы расположенные на побочной диагонали
const n=6; var a: array of integer; i,j: integer; begin ...

Увеличить все простые элементы матрицы, расположенные выше главной диагонали на 5
Дана целочисленная квадратная матрица. Увеличить все простые элементы,...

Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы
Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее...

Массив: Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы
Создайте массив A с помощью генератора случайных чисел и выведите его на...


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

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

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