Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
yark
0 / 0 / 0
Регистрация: 24.02.2016
Сообщений: 2
#1

Все элементы с наибольшим значением в данной целочисленной квадратной матрице порядка 10 заменить нулями - Delphi

26.02.2016, 15:30. Просмотров 339. Ответов 4
Метки нет (Все метки)

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

Вот, будьте добры помогите не могу понять как писать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2016, 15:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Все элементы с наибольшим значением в данной целочисленной квадратной матрице порядка 10 заменить нулями (Delphi):

Все элементы матрицы (StringGrid) с наибольшим значением заменить суммой положительных элементов - Delphi
Задача: В целочисленной матрице размера 4х5 все элементы с наибольшим значением заменить суммой положительных элементов. Чтобы...

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

В данной вещественной квадратной матрице порядка N найти сумму элементов строки... - Delphi
Помогите с написанием следующих программ: 2. В данной вещественной квадратной матрице порядка N найти сумму элементов строки, в...

Все члены последовательности, следующие за ее наибольшим значением, заменить на 0.5 - Delphi
Даны действительные числа a1, ..., an, b1, ..., bm. В последовательности a1,...,an и в последовательности b1,...,bm все члены, следующие...

Заменить нулями в матрице те элементы с чётной суммой индексов... - Delphi
Даны целые числа а1,...,а10, целочисленная матрица n.Заменить нулями в матрице те элементы с чётной суммой индексов для которых имеются...

В матрице заменить нулями элементы, стоящие в столбцах, где имеются нули - Delphi
Народ помагите кто может.....задача на двумерный массив:В заданном массиве А(n,m) заменить нулями элементы, стоящие в столбцах, где...

4
qwertehok
1599 / 1590 / 340
Регистрация: 29.08.2013
Сообщений: 10,642
26.02.2016, 15:35 #2
цикл по матрице написал?
0
yark
0 / 0 / 0
Регистрация: 24.02.2016
Сообщений: 2
26.02.2016, 15:37  [ТС] #3
проблема в том что я не начинал писать потому что в заблуждении
0
qwertehok
1599 / 1590 / 340
Регистрация: 29.08.2013
Сообщений: 10,642
26.02.2016, 15:45 #4
Цитата Сообщение от yark Посмотреть сообщение
проблема в том что я не начинал писать потому что в заблуждении
убери заблуждение и напиши двойной цикл перебора элементов матрицы
0
unifikator
484 / 342 / 176
Регистрация: 29.03.2015
Сообщений: 667
27.02.2016, 08:52 #5
В программе можно вручную задать матрицу в таблице.
Код:
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer;
begin
randomize;
for i:=0 to 9 do
for j:=0 to 9 do
stringgrid1.Cells[i,j]:=inttostr(random(100)-50);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,l:integer;
m:array[1..10,1..10]of integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
begin
try
m[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);
except
begin
showmessage('Элемент исходной матрицы в строке '+inttostr(i)+' и в столбце '+inttostr(j)+' должен быть целым числом!');
exit;
end;
end;
end;
l:=m[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
if m[i,j]>l then
l:=m[i,j];
label4.Caption:=inttostr(l);
for i:=2 to 9 do
for j:=1 to 10 do
if m[i,j]=l then
m[i,j]:=0;
for i:=1 to 10 do
for j:=1 to 10 do
stringgrid2.Cells[j-1,i-1]:=inttostr(m[i,j]);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.
Прилагаю проект на Delphi.
1
Вложения
Тип файла: zip Matrix2.zip (235.9 Кб, 3 просмотров)
27.02.2016, 08:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2016, 08:52
Привет! Вот еще темы с ответами:

Найти строки в целочисленной матрице, в которых все элементы одинаковые - Delphi
Найти строки в целочисельной матрице A( n,n ) ,в которых все элементы одинаковые

Дана квадратная матрица порядка М . Заменить нулями элементы матрицы лежащие ниже главной диагонали - Delphi
пивет всем ) помогите пожалуйста написать программу на делфи . текс : Дана квадратная матрица порядка М . Заменить нулями элементы...

В матрице поменять местами строку, содержащую элемент с наибольшим значением со строкой, содержащей элемент с наименьшим значением - Delphi
Вот условие: В матрице размером NxM поменять местами строку, содержащую элемент с наибольшим значением со строкой, содержащей элемент с...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди a1,…, an. - Delphi
Даны целые числа a1,…, an, целочисленная квадратная матрица B порядка m. заменить нулями в матрице те элементы с четной суммой индексов,...


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

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

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