Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Vatryshka
14 / 14 / 7
Регистрация: 24.09.2009
Сообщений: 90
#1

Найти сумму элементов матрицы, расположенных ниже побочной диагонали - Pascal

24.11.2009, 00:34. Просмотров 601. Ответов 3
Метки нет (Все метки)

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

http://www.cyberforum.ru/pascal/thread667581.html
2) Преобразовать квадратную матрицу порядка N, напечатавши начальную и преобразованную матрицы. Преобразования осуществить делениеи элементов каждого столбца на соответствующий элемент главной диагонали.

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

Найти сумму элементов, расположенных на побочной диагонали матрицы и выше её.
Здравствуйте!!!!!Нужна помошь!!!!! 1)Одномерный массив А заполнить...

Найти сумму всех элементов матрицы, расположенных ниже главной диагонали
Помогите пожалуйста) Разработать алгоритм методом пошаговой детализации и...

Вычислить количество чётных элементов, расположенных ниже побочной диагонали матрицы
Дана матрица. Вычислить количество чётных элементов, расположенных ниже...

Найти произведение элементов, расположенных на побочной диагонали и ниже (выше) ее.
Дана действительная квадратная матрица порядка 10. Найти произведение...

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

3
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
24.11.2009, 00:46 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1
Pascal
1
2
3
for i:=1 to n do
  for j:=1 to n do
 if i+j>n+1 then sum:=sum+a[i,j];
Добавлено через 5 минут
2. Матрицу проходим по столбцам
Pascal
1
2
3
4
5
6
for j:= 1 to n do
begin
t:=a[j,j]; 
for i:=1 to n do
a[i,j]:=a[i,j]/t;
end;
1
Vatryshka
14 / 14 / 7
Регистрация: 24.09.2009
Сообщений: 90
24.11.2009, 13:08  [ТС] #3
А ко второй задаче можно текст программы плиз)) не получается чёт((
0
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
24.11.2009, 15:20 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var
a:array[1..100,1..100]of real;
n,i,j:integer;
t:real;
begin
writeln('vvedite razmer matricy');
readln(n);
writeln('wwedite elementy matricy');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
writeln;
writeln('ishodnaya matrica');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5:1);
writeln;
end;
for j:= 1 to n do
begin
t:=a[j,j];
for i:=1 to n do
a[i,j]:=a[i,j]/t;
end;
writeln('novaya matrica');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5:1);
writeln;
end;
readln;
end.
Возможно, дело в типе переменных, у меня всё идёт
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2009, 15:20
Привет! Вот еще темы с решениями:

Матрицы. Найти произведение ненулевых элементов, расположенных ниже главной диагонали
Даны три массива A, B, C. Найти произведение ненулевых элементов, расположенных...

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

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

Отдельно найти сумму элементов лежащих выше и ниже побочной диагонали в квадратной матрице
program mas2; uses crt; Const n=3; var a:array of integer; s1,s2,i,j:...


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

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

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