Вычислить сумму элементов каждой строки матрицы

@Saulq · Регистрация: 03.12.2018

Вычислить сумму элементов элементов каждой строки матрицы. Результат получить в виде вектора D, то есть вычислить
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{d}_{i}= \sum_{j=1}^{6}{a}_{ij}$
Вот код:

Delphi

procedure TForm1.btn1Click(Sender: TObject);
const n=15;
var
a:array[1..n,1..n] of Extended;
i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
begin
 a[i,j]:=Exp(3*ln(i+j))-45;
 mmo1.Lines.Add(FloatToStr(a[i, j]));
end;
end;
end.

@Matan! · 11.05.2019, 12:12

Delphi

procedure TForm1.btn1Click(Sender: TObject);
  const n=15;
var
  a:array[1..n,1..n] of Extended;
  i,j:byte;
  d: array[1..n] of Extended;
begin
  for i:=1 to n do
  begin
    d[i] := 0;
    for j:=1 to n do
    begin
      a[i,j]:=Exp(3*ln(i+j))-45;
      mmo1.Lines.Add(FloatToStr(a[i, j]));
 
      if j in [1..6] then
        d[i] := d[i] + a[i,j];
    end;
  end;
end;

@Saulq · 11.05.2019, 12:40 **[ТС]**

Matan!, спасибо, не подскажешь еще как вывести d в memo один раз? У меня происходит такая ошибка: Invalid floating point operator

@Matan! · 11.05.2019, 12:50

Saulq, А как вы хотите вывести вектор - в строку через пробел или в столбец?

@Saulq · 11.05.2019, 14:06 **[ТС]**

Matan!, Значение d(i)-это одно число показывающее сумму элементов каждой строки массива, так? Поэтому зачем их выводить многократно, вывести я хотел так

Delphi

1	memo.lines.add('d='+floattostr(d(i)))

@Matan! · 11.05.2019, 14:13

Saulq, так потому и спросил. Если уж как Вы хотите(в столбик), то уж так:

Delphi

1	memo.lines.add('d' + IntToStr(i) + '=' + floattostr(d(i)));

Есть второй способ - в строку через пробел. Он использует конкатенацию(склеивание) строк.

Delphi

//str: string;
str := '';
for i := 1 to n do
begin
  ...........
  str := str + ' ' + FloatToStr(d[i]);
end;
memo.lines.add(str);

@Saulq · 11.05.2019, 16:51 **[ТС]**

Matan!, Cделал все как ты и сказал, та же ошибка. Вот итоговый код:

Delphi

procedure TForm1.btn1Click(Sender: TObject);
const n=15;
var
  a:array[1..n,1..n] of Extended;
  i,j:byte;
  d: array[1..n] of Extended;
begin
  for i:=1 to n do
  begin
    d[i] := 0;
    for j:=1 to n do
    begin
      a[i,j]:=Exp(3*ln(i+j))-45;
      if j in [1..6] then
        d[i] := d[i] + a[i,j];
    end;
  end;
  mmo1.lines.add('d' + IntToStr(i) + '=' + floattostr(d[i]));
end;
end.

@Puporev · 11.05.2019, 17:02

Saulq, А приведите точное и полное задание, а то хрен поймешь. Например судя по формуле количество столбцов матрицы = 6, а не 15, да и откуда взялось 15?
Судя по формуле элементы равны целому числу (i+j)³-45, нафига extended.

@Saulq · 11.05.2019, 17:04 **[ТС]**

Puporev, границы массива действительно 6, это все о чем я ещё не сказал, разве это действительно важно?

@Puporev · 11.05.2019, 17:18

Я бы вообще так написал.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=6;
var a:array[1..n,1..n] of integer;
    d:array[1..n] of integer;
    i,j:byte;
begin
with StringGrid1 do
 begin
  rowcount:=n+1;
  colcount:=n+1;
  fixedrows:=1;
  fixedcols:=0;
  defaultcolwidth:=35;
  cells[n,0]:='Sum';
 end;
for i:=1 to n do
 begin
  d[i]:=0;
  for j:=1 to n do
   begin
    a[i,j]:=sqr(i+j)*(i+j)-45;
    StringGrid1.Cells[j-1,i]:=inttostr(a[i,j]);
    inc(d[i],a[i,j]);
   end;
  StringGrid1.Cells[n,i]:=inttostr(d[i]);
 end;
 
end;

@Puporev · 11.05.2019, 17:23

Или так.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=6;
var a:array[1..n,1..n] of integer;
    d:array[1..n] of integer;
    i,j:byte;
begin
with StringGrid1 do
 begin
  rowcount:=n;
  colcount:=n;
  fixedrows:=0;
  fixedcols:=0;
  defaultcolwidth:=35;
 end;
with StringGrid2 do
 begin
  rowcount:=1;
  colcount:=n;
  fixedrows:=0;
  fixedcols:=0;
  defaultcolwidth:=35;
 end;
for i:=1 to n do
 begin
  d[i]:=0;
  for j:=1 to n do
   begin
    a[i,j]:=sqr(i+j)*(i+j)-45;
    StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
    inc(d[i],a[i,j]);
   end;
  StringGrid2.Cells[i-1,0]:=inttostr(d[i]);
 end;
 
end;

@Matan! · 11.05.2019, 17:24

А ошибка-то в чём?

@Puporev · 11.05.2019, 17:28

Надеюсь это вопрос к ТСу? Пусть архив проекта скинет, в Вашем и в его(последнем)коде ошибок нет.

@Matan! · 11.05.2019, 17:35

Да, к ТСу. В моём коде ошибки нет, хоть и на коленке писал("на заборе", как Веревкин выражается)) ).

@Puporev · 11.05.2019, 17:38

Не по теме:

Сообщение от Matan!

"на заборе"

А почему нет ни х ни y?

@Matan! · 11.05.2019, 18:02

Не по теме:

Сообщение от Puporev

А почему нет ни х ни y?

Сначала немного по-другому прочитал..)) Прошу простить..

@Saulq · 11.05.2019, 18:40 **[ТС]**

Matan!, я извиняюсь, ошибки нету, это моя невнимательность. Большое спасибо за помощь)

Добавлено через 1 минуту
Puporev, Отличный код, не подскажешь в какой строке ты высчитываешь d(i)?

@Puporev · 11.05.2019, 18:43

Так написано же в коде

Delphi

for i:=1 to n do
 begin
  d[i]:=0;//вот здесь начало
  for j:=1 to n do
   begin
    a[i,j]:=sqr(i+j)*(i+j)-45;
    StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
    inc(d[i],a[i,j]);//здесь конец
   end;
  StringGrid2.Cells[i-1,0]:=inttostr(d[i]);//здесь вывод

@Matan! · 11.05.2019, 19:09

Сообщение от Puporev

inc(d[i],a[i,j]);

Забыл, что так можно) Хорошо, что Вы напомнили

@Puporev · 11.05.2019, 19:15

Так у вас раньше все extended было.

@Saulq 1 / 1 / 0 Регистрация: 03.12.2018 Сообщений: 196
	11.05.2019, 12:40 [ТС]	3
	Matan!, спасибо, не подскажешь еще как вывести d в memo один раз? У меня происходит такая ошибка: Invalid floating point operator 0

@Matan! Модератор 1436 / 1013 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	11.05.2019, 12:50	4
	Saulq, А как вы хотите вывести вектор - в строку через пробел или в столбец? 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	11.05.2019, 17:02	8
	Saulq, А приведите точное и полное задание, а то хрен поймешь. Например судя по формуле количество столбцов матрицы = 6, а не 15, да и откуда взялось 15? Судя по формуле элементы равны целому числу (i+j)³-45, нафига extended. 0

@Saulq 1 / 1 / 0 Регистрация: 03.12.2018 Сообщений: 196
	11.05.2019, 17:04 [ТС]	9
	Puporev, границы массива действительно 6, это все о чем я ещё не сказал, разве это действительно важно? 0

@Matan! Модератор 1436 / 1013 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	11.05.2019, 17:24	12
	А ошибка-то в чём? 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	11.05.2019, 17:28	13
	Надеюсь это вопрос к ТСу? Пусть архив проекта скинет, в Вашем и в его(последнем)коде ошибок нет. 0

@Matan! Модератор 1436 / 1013 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	11.05.2019, 17:35	14
	Да, к ТСу. В моём коде ошибки нет, хоть и на коленке писал("на заборе", как Веревкин выражается)) ). 0

@Puporev
	11.05.2019, 17:38 #15
	Не по теме: Сообщение от Matan! "на заборе" А почему нет ни х ни y? 0

@Matan!
	11.05.2019, 18:02 #16
	Не по теме: Сообщение от Puporev А почему нет ни х ни y? Сначала немного по-другому прочитал..)) Прошу простить.. 0

@Saulq 1 / 1 / 0 Регистрация: 03.12.2018 Сообщений: 196
	11.05.2019, 18:40 [ТС]	17
	Matan!, я извиняюсь, ошибки нету, это моя невнимательность. Большое спасибо за помощь) Добавлено через 1 минуту Puporev, Отличный код, не подскажешь в какой строке ты высчитываешь d(i)? 0

@Matan! Модератор 1436 / 1013 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	11.05.2019, 19:09	19
	Сообщение от Puporev inc(d[i],a[i,j]); Забыл, что так можно) Хорошо, что Вы напомнили 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	11.05.2019, 19:15	20
	Так у вас раньше все extended было. 0

Вычислить сумму элементов каждой строки матрицы

Решение