Сумма элементов массива - Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM

Sergey Zhlobo · 03.02.2011, 23:40

Организовать двухмерный массив размерностью n*m элементов типа integer. Разработать ассемблерную вставку в среде Borland Delphi для подсчета суммы элементов массива в каждой строке и в каждом столбце. Элементы входного и результирующего массивов отобразить на форме с помощью компонента StringGrid

Sergey Zhlobo · 03.02.2011, 23:46

кокая-то часть написана, таблица задана, помогите дальше)
___________________________________ ________________________
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);

StringGrid1.RowCount:=N+1;
StringGrid1.ColCount:=M+1;
for i:=1 to n do StringGrid1.Cells[0,i]:='i='+IntToStr(i);
for j:=1 to m do StringGrid1.Cells[j,0]:='j='+IntToStr(j);
randomize;
for i := 1 to n do
for j := 1 to m do
StringGrid1.Cells[j, i] := IntToStr(random(10));

end;

03.02.2011, 23:40	#1
Sergey Zhlobo Пользователь Регистрация: 02.02.2011 Сообщений: 16	Сумма элементов массива Организовать двухмерный массив размерностью n*m элементов типа integer. Разработать ассемблерную вставку в среде Borland Delphi для подсчета суммы элементов массива в каждой строке и в каждом столбце. Элементы входного и результирующего массивов отобразить на форме с помощью компонента StringGrid

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сумма и произведение элементов массива, удовлетворяющих условию (генерация float массива)	felodese	Помощь студентам	1	11.11.2010 20:52
Сумма элементов массива	StudeHt	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	3	29.04.2010 11:30
C++. сумма элементов массива	BzDoN	Помощь студентам	3	01.12.2009 07:04
Сумма и произведение элементов массива	Zid@ne	Общие вопросы C/C++	5	23.12.2008 19:22
Сумма элементов массива, больших А	Sultan	Помощь студентам	1	21.04.2007 11:13

03.02.2011, 23:46	#2
Sergey Zhlobo Пользователь Регистрация: 02.02.2011 Сообщений: 16	кокая-то часть написана, таблица задана, помогите дальше) ___________________________________ ________________________ procedure TForm1.Button1Click(Sender: TObject); begin n:=StrToInt(Edit1.Text); m:=StrToInt(Edit2.Text); StringGrid1.RowCount:=N+1; StringGrid1.ColCount:=M+1; for i:=1 to n do StringGrid1.Cells[0,i]:='i='+IntToStr(i); for j:=1 to m do StringGrid1.Cells[j,0]:='j='+IntToStr(j); randomize; for i := 1 to n do for j := 1 to m do StringGrid1.Cells[j, i] := IntToStr(random(10)); end;