Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.04.2017, 16:01
heon243 heon243 вне форума
Прохожий
 
Регистрация: 29.04.2017
Сообщения: 1
Версия Delphi: embacadero dx5
Репутация: 10
По умолчанию Сумма элементов строки матрицы

Помогите дописать код
Задание:
В матрице А(n,m) найти сумму квадратов элементов каждой строки.Сформировать новый двумерный массив(первая строка - значение суммы , вторая строка номер строки для которой рассчитана эта сумма).
Отсортировать новый массив по первой строке элементов (элемент во второй строке перемесчается вместе с элементом первой строки), если элементы первой строки равны ,то во второй строке элементы располагаются по возрастанию.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
j:integer;
stl:integer;
str:integer;
begin
stl:=strtoint(edit1.Text); // столбцы
str:=strtoint(edit2.Text); // строки
StringGrid1.ColCount:=stl+1;
StringGrid1.RowCount:=str+1;
StringGrid1.Cells[0,0]:='Значение A:';
randomize;
for i:=1 to str do
for j:=1 to stl do begin
StringGrid1.Cells[0,i]:='i='+IntToStr(i);
StringGrid1.Cells[j,0]:='j= '+IntToStr(j);
StringGrid1.Cells[j,i]:=inttostr(random(10));
A[i,j]:=strtoint(StringGrid1.Cells[j,i]);
Ответить с цитированием
  #2  
Старый 02.05.2017, 11:48
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Помощь придёт, если сумеете объяснить задание как его вы сами понимаете, "на пальцах"
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:29.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter