somewhere писал(а):И попробуй пока сам, иначе какой смысл решать задачи мне. Меня это не научит, а вот чем больше времени ты сам будешь ей уделять - тем больше опыта и знаний ты получишь. Не забывай, что всегда есть Help который расскажет о каждом свойстве и методе любого объекта.
тк, я бы сидел, но у меня времени совсем нет, а скоро уже сдавать 15 задач. Половина из них двумерные, половина одномерные. Ты мне дал код для двумерной, вот если дашь и для одномерного, для вот этой задачи, тогда я уж наверно и сам попробую посидеть. А так толку совсем нет, я попросту ниче не успею понять, а здесь будет хоть от чего отталкиваться. напиши мне решение для одномерного просто, только, ладно, не надо с clrscr, пусть будет все просто как с двумерной. Без фишек. Заранее благодарю
P.S. а когда организуешь ввод с рук эти строчки надо удалять?
procedure TForm1.BitBtn1Click(Sender: TObject);
var x, y: Integer;
begin
for x:=0 to sg.RowCount-1 do
for y:=0 to sg.ColCount-1 do
sg.Cells[y,x] := Inttostr(random(50)-25);
end;
а вместо них что-нибудь надо писать?
Я в Options у StringGrid поставил True. Значения ввожу но выходит ошибка, типа не целый тип переменная принимает. Что-то типа того. короче мне тяжело разобраться. Помоги
[quote="somewhere"]И попробуй пока сам, иначе какой смысл решать задачи мне. Меня это не научит, а вот чем больше времени ты сам будешь ей уделять - тем больше опыта и знаний ты получишь. Не забывай, что всегда есть Help который расскажет о каждом свойстве и методе любого объекта.[/quote]
тк, я бы сидел, но у меня времени совсем нет, а скоро уже сдавать 15 задач. Половина из них двумерные, половина одномерные. Ты мне дал код для двумерной, вот если дашь и для одномерного, для вот этой задачи, тогда я уж наверно и сам попробую посидеть. А так толку совсем нет, я попросту ниче не успею понять, а здесь будет хоть от чего отталкиваться. напиши мне решение для одномерного просто, только, ладно, не надо с clrscr, пусть будет все просто как с двумерной. Без фишек. Заранее благодарю
P.S. а когда организуешь ввод с рук эти строчки надо удалять?
procedure TForm1.BitBtn1Click(Sender: TObject);
var x, y: Integer;
begin
for x:=0 to sg.RowCount-1 do
for y:=0 to sg.ColCount-1 do
sg.Cells[y,x] := Inttostr(random(50)-25);
end;
а вместо них что-нибудь надо писать?
Я в Options у StringGrid поставил True. Значения ввожу но выходит ошибка, типа не целый тип переменная принимает. Что-то типа того. короче мне тяжело разобраться. Помоги