0 / 0 / 1
Регистрация: 31.05.2013
Сообщений: 28
1

Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали

18.11.2013, 13:06. Показов 1821. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали
P.S. прошу либо написать программу на Delphi7, либо дать ссылку на то,где написано как это сделать.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2013, 13:06
Ответы с готовыми решениями:

Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали
Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством...

Все нулевые элементы матрицы X (n x n), заменить суммой элементов, лежащих на второстепенной диагонали
Для заданий № 1 и № 2 используется исходная матрица X (n x m) , 4 <n<10. 4<m<10. Для задания № 3...

Заменить нулями все отрицательные элементы матрицы, лежащие выше главной диагонали
:scratch: Если все элементы главной диагонали квадратной целочисленной матрицы упорядочены по...

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

2
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
18.11.2013, 14:12 2
Лучший ответ Сообщение было отмечено ElegantLady как решение

Решение

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
var
  Form1: TForm1;
  x: array of array of integer;
  n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
with StringGrid2 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,code:integer;
begin
randomize;
//проверим ввод размеров
val(Edit1.Text,n,code);
if (code<>0)or(n<2)then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=n;
StringGrid2.ColCount:=n;
Setlength(x,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  x[i,j]:=-10+random(21);
  StringGrid1.Cells[j,i]:=IntToStr(x[i,j])
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k:byte;
begin
k:=0;
for i:=0 to n-1 do
if x[i,i]>0 then inc(k);
Edit2.Text:='Количество положительных на главной диагонали='
            +IntToStr(k);
for i:=0 to n-2 do
for j:=0 to n-i-2 do
x[i,j]:=k;
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid2.Cells[j,i]:=IntToStr(x[i,j])
end;
0
0 / 0 / 1
Регистрация: 31.05.2013
Сообщений: 28
18.11.2013, 21:15  [ТС] 3
Спасибо большое
0
18.11.2013, 21:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2013, 21:15
Помогаю со студенческими работами здесь

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

Заменить на -1 элементы матрицы, лежащие выше главной диагонали
1. Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . Заменить...

Заменить нулями элементы матрицы, лежащие выше главной диагонали
всем привет, помогите решить:дана квадратная целочисленная матрица размера 6на6. заменить нулями...

Заменить нулями элементы матрицы, лежащие выше главной диагонали
Дана квадратная матрица порядка M. Заменить нулями элементы матрицы, лежащие выше главной...


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

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

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