Создать 2 массива, поместив в первый сумму элементов главных диагоналей матриц, а во второй - сумму элементов

@Lokifaga · Регистрация: 04.04.2017

Author24 — интернет-сервис помощи студентам

Сам недавно начал изучать delphi,вот по чуть-чуть осваиваю,прошу у вас помощи,дорогие гуру программирования

Суть задания:
Из TStringGrid ввести 2 квадратные матрицы. Создать 2 массива, поместив в первый сумму элементов главных диагоналей матриц, а во второй - сумму элементов побочных диагоналей матриц. Вывести в TMemo обе матрицы и оба массива. Оформить ввод, вывод матриц и массивов процедурами.
Заранее большущее спасибо!

@Ivandur · 07.04.2017, 22:12

Массивы, значит, должны быть из одного элемента каждый?

@Lokifaga · 07.04.2017, 22:20 **[ТС]**

Ivandur, Нет,по два получается элемента,матрицы же две.

@Ivandur · 07.04.2017, 22:31

А, ну да.

Добавлено через 9 минут
Процедура ввода:

Delphi

procedure inp_mat(var sg:TStringgrid;var a:array of array of double);
var n:integer;
begin
n:=sg.ColCount-sg.Fixedcols;
if n<>sg.rowCount-sg.FixedRows then
   begin
   ShowMessage('Матрица не квадратная!!!');
   exit;
   end;
setLength(a,n,n);
for i:=0 to n-1 do  
  for j:=0 to n-1 do
     begin
     if not TryStrTofloat(sg.Cells[j+sg.fixedxols,i+sg.fixedrows],a[i,j]) then
       begin
       ShowMessage('Числа надо вводить!!!');
       exit;
       end;
     end;
end;

не отлаживал...

@Lokifaga 0 / 0 / 0 Регистрация: 04.04.2017 Сообщений: 8
		1
	Создать 2 массива, поместив в первый сумму элементов главных диагоналей матриц, а во второй - сумму элементов 07.04.2017, 18:19. Показов 607. Ответов 3 Метки нет (Все метки) Сам недавно начал изучать delphi,вот по чуть-чуть осваиваю,прошу у вас помощи,дорогие гуру программирования Суть задания: Из TStringGrid ввести 2 квадратные матрицы. Создать 2 массива, поместив в первый сумму элементов главных диагоналей матриц, а во второй - сумму элементов побочных диагоналей матриц. Вывести в TMemo обе матрицы и оба массива. Оформить ввод, вывод матриц и массивов процедурами. Заранее большущее спасибо! 0

@Ivandur 691 / 5405 / 265 Регистрация: 11.08.2016 Сообщений: 3,355
	07.04.2017, 22:12	2
	Массивы, значит, должны быть из одного элемента каждый? 1

@Lokifaga 0 / 0 / 0 Регистрация: 04.04.2017 Сообщений: 8
	07.04.2017, 22:20 [ТС]	3
	Ivandur, Нет,по два получается элемента,матрицы же две. 0

	07.04.2017, 22:31