Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
kisell
0 / 0 / 1
Регистрация: 04.09.2014
Сообщений: 79
#1

Нюансы с заменой в матрице и вывод матрицы - Delphi

13.12.2014, 14:39. Просмотров 290. Ответов 9
Метки нет (Все метки)

Поменять местами элементы первой строки матрицы действительных чисел размером 4х4 с элементами ее неглавной диагонали

Не знаю как: а) Вывести весь массив с заменой в компонент; б) Небольшая проблема с заменой

P.S Не понимаю как иначе сделать, подскажите ошибки и по возможности исправьте пожалуйста.

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
procedure TForm1.Button1Click(Sender: TObject);
var a:array [1..4,1..4] of real;
    i,j:integer;
    buf:real;
begin
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
 
j:=4;
for i:=1 to 4 do
begin
j:=j-1;
buf:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=buf;
end;
j:=4;
for i:=1 to 4 do
  begin
StringGrid2.Cells[j,i]:=FloatToStr(a[i,j]);
j:=j-1;
end;
end;

http://www.cyberforum.ru/delphi-beginners/thread1610906.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2014, 14:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нюансы с заменой в матрице и вывод матрицы (Delphi):

Если в матрице есть элемент, равный ее максимальному элементу, упорядочить строки матрицы
program pr; {Дана целочисленная матрица {Aij}i=1...n;j=1..n , n<=100. Если в...

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

Вывод массива из матрицы, в зависимости от нулевых элементов в матрице.
Для матрицы А (4х4) сформировать одномерый массив В из 4 элементов. Каждый...

Нюансы обучения: желание учесть все нюансы - корректность кода или overengineering?
Здравствуйте программисты! Ответьте пожалуйста на такой вопрос(объясните) Вот я...

Вывод растра с заменой выбранного цвета на зеленый
Добрый день, мне требуется сделать замену выбранного цвета на растре ( через...

9
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.12.2014, 15:15 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n=4;
procedure TForm1.Button1Click(Sender: TObject);
var a:array [1..n,1..n] of real;
    i,j:integer;
    buf:real;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);//в таблице есть фиксированные строка и столбец
for i:=1 to n-1 do
 begin
  buf:=a[1,i];
  a[1,i]:=a[n-i+1,i];
  a[n-i+1,i]:=buf;
 end;
for i:=1 to n do
for j:=1 to n do
StringGrid2.Cells[j,i]:=FloatToStr(a[i,j]);
end;
0
kisell
0 / 0 / 1
Регистрация: 04.09.2014
Сообщений: 79
13.12.2014, 15:47  [ТС] #3
спасибо большое

Добавлено через 14 минут
а можете объяснить?
Почему

buf:=a[1,i]; - не пойму индексы, как оно работает. Если a[i,j] - i - строка, j - столбец. А тут выходит, что j нет?

a[1,i]:=a[n-i+1,i];
a[n-i+1,i]:=buf;
0
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.12.2014, 15:50 #4
Так мы меняем первую строку a[1,i] с побочной диагональю, индексы которой a[n-i+1,i], матрица же квадратная.
0
kisell
0 / 0 / 1
Регистрация: 04.09.2014
Сообщений: 79
13.12.2014, 16:07  [ТС] #5
спасибо) А что значит:

Определить номер столбца матрицы А с максимальным кол-вом единичных элементов и вычесть элементы этого столбца из соответствующих элементов всех столбцов

1)Матрицы А - я задаю произвольное кол-во столбиков и строк в массиве?
2) Вычесть элементы этого столба из соответствующих элементов всех столбцов - то есть соответствующие элементы? Это какие будут? Которые равны 1? Или как?

0
northener
пофигист широкого профиля
3252 / 2304 / 628
Регистрация: 15.07.2013
Сообщений: 13,593
13.12.2014, 16:22 #6
Цитата Сообщение от kisell Посмотреть сообщение
Вычесть элементы этого столба из соответствующих элементов всех столбцов
Это значит первый вычесть из первого, второй из второго и т.д.
0
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.12.2014, 16:35 #7
Это значит что из элементов каждого столбца вычесть элементы конкретного столбца с каким-то признаком, оговоренным в условии.
0
kisell
0 / 0 / 1
Регистрация: 04.09.2014
Сообщений: 79
13.12.2014, 20:33  [ТС] #8
1)Матрицы А - я задаю произвольное кол-во столбиков и строк в массиве?
0
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
13.12.2014, 20:34 #9
Ты лучше не тыкай пальцем в небо, а просто напиши точное условие задачи.
0
kisell
0 / 0 / 1
Регистрация: 04.09.2014
Сообщений: 79
14.12.2014, 10:42  [ТС] #10
А я писал выше.

Определить номер столбца матрицы А с максимальным кол-вом единичных элементов и вычесть элементы этого столбца из соответствующих элементов всех столбцов
0
14.12.2014, 10:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2014, 10:42
Привет! Вот еще темы с решениями:

Неприятности с заменой Матрицы CCFL на LED
Друзья, нужна помощь. После замены матрицы на Asus K52JC на новую с LED...

Ограниченный блок div и вывод информации в нем с последующей заменой
Добрый вечер! Нужна ваша помощь, есть блок div, который ограничен по высоте в...

Вывод текущего времени в одну строку, с заменой предыдущего значения
Привет всем. Есть код: from datetime import datetime while True: ...

Программа для целочисленной матрицы, с заменой отрицательного элемента на максмиальный.
Снова запутался в программе, при решении максимальный элемент выводится, но с...


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

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

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