22 / 22 / 9
Регистрация: 08.03.2011
Сообщений: 155
1

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

22.06.2011, 13:42. Показов 885. Ответов 4
Метки нет (Все метки)

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

Добавлено через 2 часа 45 минут
никто не знает?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2011, 13:42
Ответы с готовыми решениями:

Выведите на печать индексы первого положительного элемента заданной матрицы
В заданной целочисленной матрице A(N,M) выведите на печать индексы первого положительного элемента,...

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

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

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

4
1360 / 988 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
22.06.2011, 13:51 2
Никто не хочет писать просто так
0
22 / 22 / 9
Регистрация: 08.03.2011
Сообщений: 155
24.06.2011, 10:20  [ТС] 3
Дана вещественная матрица размерности m*n. Определить индексы первого нулевого элемента матрицы. Обход делать по столбцам.

Есть программа в паскале, можете переделать для Delphi с её компонентами и процедурами, если есть разбирающиеся в этом деле люди, то помогите пожалуйста если не сложно.
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
rogram zad16;
uses crt;
const max=100;
type matr=array [1..max,1..max] of real;
var
a:matr;
m,n:byte;
s_m,s_n:integer;
 
procedure vvod_razm;
begin
writeln('Enter m:');
write('m=');
readln(m);
writeln('Enter n:');
write('n=');
readln(n);
end;
 
procedure vvod_matr(var am:matr);
var i,j:byte;
begin
randomize;
writeln;
writeln('Ishodaya matrica:');
for i:=1 to m do
begin
for j:=1 to n do
begin
am[i,j]:=random(3)+random(9)/10;
write(am[i,j]:0:1,' ');
end;
writeln;
end;
writeln;
end;
 
procedure poisk(var am:matr);
var i,j:byte;
x:real;
begin
for j:=1 to n do
for i:=1 to m do
if a[i,j]=0 then begin
s_m:=i;
s_n:=j;
end;
 
end;
 
procedure rezult(var am:matr);
var i,j:byte;
begin
writeln('First element nulevoi A[',s_m,',',s_n,']');
writeln;
end;
 
 
begin
clrscr;
vvod_razm;
vvod_matr(a);
poisk(a);
rezult(a);
readln;
end.
0
20 / 13 / 1
Регистрация: 22.06.2011
Сообщений: 42
24.06.2011, 11:29 4
Язык - Delphi 3, компоненты стандартные, программу по возможности оставил без изменений.
Вложения
Тип файла: zip matrix.zip (123.5 Кб, 14 просмотров)
0
go
Эксперт С++
3646 / 1378 / 243
Регистрация: 16.04.2009
Сообщений: 4,526
27.06.2011, 11:04 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Project4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const n=5 ; m=5;
var arr : array [1..m,1..n] of real;
i,j:integer;
 
begin
  for j:=1 to m do
   for i:=1 to n do
    if arr [i,j]=0 then begin
       write ('Coordinaty nul array[',i,'][',j,']=',arr[i,j]:2:1);
       readln;
       halt
          end;
end.
это консольное, ввод сделаете сами
0
27.06.2011, 11:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2011, 11:04
Помогаю со студенческими работами здесь

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

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

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

Определить индексы первого нулевого элемента матрицы
Народ,срочно нужна помощь.Разработать алгоритм и программу решения задачи :" Дана вещественная...

Определить значение и индексы первого элемента матрицы
Уважаемые форумчане, доброго дня! Необходимо определить значение и индексы первого элемента...

Образовать матрицу A(nxn), сгенерировав элементы случайным образом. Определить индексы минимального элемента матрицы. Определить индексы максимального
Образовать матрицу A(nxn), сгенерировав элементы случайным образом. Определить индексы минимального...


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

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

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