Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
orif
22 / 22 / 9
Регистрация: 08.03.2011
Сообщений: 155
1

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

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

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

Добавлено через 2 часа 45 минут
никто не знает?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.06.2011, 13:42
Ответы с готовыми решениями:

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

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

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

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

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

4
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
22.06.2011, 13:51 2
Никто не хочет писать просто так
0
orif
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, компоненты стандартные, программу по возможности оставил без изменений.
0
Вложения
Тип файла: zip matrix.zip (123.5 Кб, 14 просмотров)
go
Эксперт С++
3637 / 1369 / 243
Регистрация: 16.04.2009
Сообщений: 4,527
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.06.2011, 11:04

В массиве найти общее число элементов до первого нулевого элемента
В массиве К найти общее число элементов до первого нулевого элемента

Вычислить сумму ненулевых членов последовательности до первого нулевого элемента
Вот задание: Вывести первые 10 натуральных чисел в поле Memo1 и вычислить...

Вычислить сумму четных элементов одномерного массива до первого встречного нулевого элемента
Дан массив Z1, ... , Z20. Вычислить сумму четных элементов одномерного массива...


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

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

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