|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Двумерный массив StringGrid
Вот задание:
Заполнить двумерный числовой массив целыми числами. Вычислить произведение положительных элементов каждой строки и указать строку с наибольшим произведением положительных элементов. Прошу помочь( |
#2
|
|||
|
|||
Я использую Delphi 10, и не могу разобраться почему не робит. Это не по заданию, а прошлая работа... так как я работал в Delphi 7, там она работала. Использую эту прогу как пример
Код:
procedure TForm1.RadioGroup1Click(Sender: TObject); var i:integer; begin randomize; if radiogroup1.ItemIndex=0 then begin for i:=0 to 10 do stringgrid1.Cells[i,0]:=inttostr((random(201)-100)); StringGrid1.Options:=StringGrid1.Options-[goEditing]; end; if radiogroup1.ItemIndex=1 then begin for i:=0 to 10 do stringgrid1.Cells[i,0 ]:='0'; StringGrid1.Options:=StringGrid1.Options+[goEditing]; end; end; procedure TForm1.Button1Click(Sender: TObject); var i,max,l,t:integer; m:array [0..10] of integer; begin max:=0; l:=0; //номер макс t:=1; for i:=0 to 10 do begin m[i]:=strtoint(stringgrid1.cells[i,0]); if m[i]>max then begin l:=i+1; max:=m[i]; end; end; for i:=0 to 10 do begin if m[i]=t then t:=t+1; end; label1.caption:='Вычислить номер первого максимального элемента массива = '+inttostr(l); label3.Caption:='количество максимальных элементов (если их несколько) = '+inttostr(t); end; procedure TForm1.FormCreate(Sender: TObject); begin radiogroup1.ItemIndex:=1 end; end. Последний раз редактировалось Murzik97, 10.03.2016 в 21:53. |
#3
|
|||
|
|||
А что не работает-то?
Там есть одна ошибка, но в большинстве случаев работать должно... Исправленная ошибка: стр. 21: Код:
max := strtoint(stringgrid1.cells[0,0]); m[0] := max; Код:
t := 0; Код:
for i:=1 to 10 do |
#4
|
|||
|
|||
Спасибо. А можете помочь с заданием: Заполнить двумерный числовой массив целыми числами. Вычислить произведение положительных элементов каждой строки и указать строку с наибольшим произведением положительных элементов.
|
#5
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |