|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.04.2008, 22:23 | #1 |
Регистрация: 15.04.2008
Сообщений: 7
|
В двумерном массиве 4*5 найти сумму элементов по строке или столбцу.
В двумерном массиве 4*5 найти сумму элементов по строке или столбцу. Для выбора действия использовать RadioButton! Помогите написать, или хотя бы объясните где ошибка, почему он в StringGrid рандомом числа выводить не хочет???
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids; type Tmassiv=array[1..4,1..5] of integer; TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; mas:Tmassiv; i:byte; j:byte; sum:integer; implementation {$R *.dfm} procedure TForm1.StringGrid1Click(Sender: TObject); begin randomize; with stringGrid1 do begin // заполнение stringGrid1 for i:=1 to 4 do begin For j:=1 to 5 do begin mas[i,j]:=random(15); cells[i,j]:=inttostr(mas[i,j]); end; end; end; end; end. |
15.04.2008, 22:39 | #2 |
Пользователь
Регистрация: 22.01.2008
Сообщений: 78
|
я вобщем что-то набросал, рандомом числа выводит
Код:
но вроде все правильно Последний раз редактировалось Костя КС; 15.04.2008 в 23:02. |
15.04.2008, 23:30 | #3 |
Регистрация: 15.04.2008
Сообщений: 7
|
Чё то все равно он мне ничего не выдает (((((
|
15.04.2008, 23:45 | #4 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Поди забыли указать событие у самого стрингрида....
Стрингрид - вкладка Евентс Инспектора Обьекта - двойной щелчок на онклик.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
15.04.2008, 23:53 | #5 |
Регистрация: 15.04.2008
Сообщений: 7
|
ОГРОМНЕЙШЕЕ СПАСИБО!!!!! С этим все поиду дальше делать )))))))
|
16.04.2008, 00:02 | #6 |
Регистрация: 15.04.2008
Сообщений: 7
|
Если не сложно подскажите ещё пожалуйста, как сделать чтоб считалась сумма строк и записывалась в последний 6 столбец? и можно ли сделать чтоб stringgrid заполнялся при запуске без клика?
|
16.04.2008, 01:14 | #7 |
Регистрация: 15.04.2008
Сообщений: 7
|
Помогите, c RadioButton1, не работает, хотя если удалить RB2 то все окю
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) StringGrid1: TStringGrid; RadioButton1: TRadioButton; Memo1: TMemo; Memo2: TMemo; Label1: TLabel; Label2: TLabel; Label3: TLabel; RadioButton2: TRadioButton; procedure StringGrid1Click(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; m:array[1..5,1..4] of integer; i:integer; j:integer; stolb,stroki:integer; x:integer; implementation {$R *.dfm} procedure TForm1.StringGrid1Click(Sender: TObject); begin randomize; with stringGrid1 do begin for j:=1 to 4 do begin For i:=1 to 5 do begin m[i,j]:=random(2); stringgrid1.cells[i-1,j-1]:=inttostr(m[i,j]); end; end; end; end; procedure TForm1.RadioButton1Click(Sender: TObject); begin memo1.clear; if RadioButton1.Checked then for i:=1 to 5 do begin stolb:=0; for j:=1 to 4 do begin stolb:=m[i,j]+stolb; end; Memo1.Lines.Add(inttostr(stolb)); end; end; procedure TForm1.RadioButton2Click(Sender: TObject); begin memo2.clear; if RadioButton2.Checked then for j:=1 to 4 do begin stroki:=0; for i:=1 to 5 do begin stroki:=m[i,j]+stroki; end; Memo2.Lines.Add(inttostr(stroki)); end; end; end. Последний раз редактировалось bkmz; 16.04.2008 в 10:35. |
16.04.2008, 10:37 | #8 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
1. Для кода есть специальный тег... который подсвечивает синтаксис и не трогает форматирование.
2. Пишите на что ссылается компилятор. 3. Я уже давно на форуме, но прочитать коментарий "заполнение stringGrid1" не смог... их лучше прописывать на форуме вручную, или делать преобразования текста. Кстати зачем тут эта строка: with stringGrid1 do begin ? для 5х5: Код:
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
16.04.2008, 10:56 | #9 |
Регистрация: 15.04.2008
Сообщений: 7
|
При установке В Events Rb1 OnClick программа ругается Stack Overflow
|
16.04.2008, 11:06 | #10 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти сумму элементов строки | jenja | Общие вопросы Delphi | 2 | 02.04.2008 17:49 |
напишите пожалуйста задачу в двумерном массиве!? Срочно надо! | dolbi | Помощь студентам | 2 | 28.03.2008 05:09 |
Выбор значения из массива по столбцу и строке | Almaas | Помощь студентам | 4 | 25.01.2008 14:56 |
Найти сумму последних L положительных элементов в массиве A={a[i]}. Assembler | Kasim | Помощь студентам | 2 | 16.12.2007 16:12 |
вычислить сумму отрицательных элементов в массиве | only_win | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 25.09.2007 15:22 |