mafaka2
1

Определить количество строк матрицы, не содержащих ни одного нулевого элемента

19.05.2014, 09:08. Показов 1469. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана целочисленная прямоугольная матрица.
Определить количество строк, не содержащих ни одного нулевого элемента. И обнулить строки матрицы,содержащие максимальное и минимальное значения.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2014, 09:08
Ответы с готовыми решениями:

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. Определить количество строк,не содержащих ни одного...

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
Дана действительная матрица размерности (n × n) . 1. Если минимальные элементы столбцов находятся...

Количество строк матрицы, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица определить количество строк, не содержащих ни одного...

Определить количество столбцов матрицы, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. 1)Надо определить количество столбцов, не содержащих ни...

1
38 / 38 / 12
Регистрация: 28.03.2013
Сообщений: 272
Записей в блоге: 2
19.05.2014, 11:29 2
Лучший ответ Сообщение было отмечено как решение

Решение

Delphi
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
procedure TForm1.Button1Click(Sender: TObject);
var i,j,mini,maxi : integer;
k, n: integer;
a: array[1..10,1..5] of double;
max, min: double;
str: string;
begin
randomize;
n := 0;
k := 0;
//
for i := 1 to 10 do
for j := 1 to 5 do
a[i,j] := random(101) - 50;
//
 
Memo1.Lines.Add('Ìàòðèöà äî ïðåîáðàçîâàíèé:');
for i := 1 to 10 do begin
str := '';
for j := 1 to 5 do str := str + FloatToStr(a[i,j]) + ' ';
Memo1.Lines.Add(str);
end;
//
for i := 1 to 10 do begin
k := 0;
for j := 1 to 5 do
if a[i,j] = 0 then inc(k);
if k = 0 then inc(n);
end;
//
Memo1.Lines.Add('Êîë-âî ñòðîê íå ñîäåðæàùèõ íè îäíîãî íóëåâîãî ýëåìåíòà: ' + IntToStr(n));
//
max := a[1,1];
for i := 1 to 10 do
for j := 1 to 5 do
if a[i,j] >= max then begin
max := a[i,j];
maxi := i;
end;
//
min := a[1,1];
for i := 1 to 10 do
for j := 1 to 5 do
if a[i,j] <= min then begin
min := a[i,j];
mini := i;
end;
for j := 1 to 10 do
a[maxi,j] := 0;
for j := 1 to 10 do
a[mini,j] := 0;
Memo1.Lines.Add('Ìàòðèöà ïîñëå ïðåîáðàçîâàíèé:');
for i := 1 to 10 do begin
str := '';
for j := 1 to 5 do str := str + FloatToStr(a[i,j]) + ' ';
Memo1.Lines.Add(str);
end;
end;
Добавлено через 10 минут
Строчки 48-51 замените на
Delphi
1
2
3
4
for j := 1 to 5 do
a[maxi,j] := 0;
for j := 1 to 5 do
a[mini,j] := 0;
1
19.05.2014, 11:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2014, 11:29
Помогаю со студенческими работами здесь

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

Определить индексы первого нулевого элемента матрицы
Дана вещественная матрица размерности m*n. Определить индексы первого нулевого элемента матрицы....

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

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица.Определить: 1)Количество строк ,не содержащих ни одного...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru