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

Если последний элемент строки матрицы не равен нулю, поделить на него каждый элемент строки

06.05.2016, 19:21. Просмотров 277. Ответов 1
Метки нет (Все метки)

Не могу разобраться. Написал программу, однако если последний элемент строки 0, программа делит ее на последний элемент предыдущей строки. Как сделать так, чтобы строку с нулем программа просто пропускала?
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
35
36
const
n=5;
m=5;
var a:array[1..n,1..m] of real;
i,j:integer;
nenul:real;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:6:2);
end;
writeln;
end;
writeln;
for i:=1 to m do
begin
for j:=1 to n do
  if not(a[i,m]=0) then nenul:=a[i,m];
  for j:=1 to n do
  a[i,j]:=a[i,j]/nenul;
  
 end;
writeln('Новая матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
writeln;
end.
Добавлено через 18 минут
Можно считать закрытой разобрался сам.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.05.2016, 19:21
Ответы с готовыми решениями:

Для каждой четной строки матрицы,последний элемент которой равен 0
1)Для каждой четной строки матрицы,последний элемент которой равен 0,определить произведение...

Сформируйте одномерный массив, каждый элемент которого равен сумме элементов соответствующей строки исходной матрицы.
Есть свободная минутка? попробуйте составить программку: Сформируйте одномерный массив, каждый...

Поделить все элементы каждой строки матрицы на наибольший по модулю элемент этой строки
массив размерностью m на n.поделить все элементы каждой строки на наибольший по модулю элемент этой...

Постройте логический вектор, каждый элемент которого принимает значение true, если среди элементов i-того строки матрицы А есть хотя бы два равных
Пусть дана матрица А (n x n). Постройте логический вектор, каждый элемент которого принимает...

Массив 9 на 5, заполненный по следующим правилам: Каждый элемент равен разности удвоенного номера строки и номер столбца
Помогите написать программу, которая запрашивает массив 9*5 числами по следующим правилам: Каждый...

1
Puporev
Модератор
58535 / 44453 / 30692
Регистрация: 18.05.2008
Сообщений: 106,508
06.05.2016, 20:35 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
const  n=5;
var a:array[1..n,1..n] of real;
    i,j:integer;
    nenul:real;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
if a[i,n]<>0 then
for j:=1 to n do
a[i,j]:=a[i,j]/a[i,n];
writeln('Новая матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
writeln;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.05.2016, 20:35

Поделить все элементы каждой строки массива на наибольший по модулю элемент этой строки
Дан массив размерностью n*m. Поделить все элементы каждой строки на наибольший по модулю элемент...

Дан массив размерностью n*m. Поделить все элементы каждой строки на наибольший по модулю элемент этой строки
массив двумерный

Умножить каждый элемент первой строки матрицы на a[1; 1]
Дана таблица a умножить каждый элемент первой строки на a, а каждый элемент второй строки на a....


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

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

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