Массивы

[zhumadilov]

Здравствуйте помогите сделать задачку
если максимальный элемент в таблице больше минимального в 10 раз то все нули заменить единицами а отрицательные числа заменить на значения по модулю

Пожалуйста помогите

[Luuzuk]

а какой-то код есть? Если да, то предоставьте

[Hacker19_90]

так а в чём проблема-то?

[arrowsf1]

сказка детская 100 рублей

Модеры простите за юмор


проще мне написать самому, чем возится с кодом такого приментивного проекта

[Luuzuk]

приментивного

возится

Проще вам русский язык выучить, а то дети неграмотные вырастут

[ACE Valery]

arrowsf1, вы еще не поняли, что флуд не по теме не приветствуется здесь? Так вот если вы не читали правила, это не освобождает вас от ответственности.

Luuzuk, аналогично. Я вас понимаю, но не стоит опускаться до подобного уровня. Это пока совет.

[zhumadilov]

Сообщение от Luuzuk

а какой-то код есть? Если да, то предоставьте

Он есть но я там намудрил уж лучше подскажите

[ACE Valery]

zhumadilov, давайте не будем торговаться? Есть код - выкладывайте, ПОМОГУТ. Нет кода - признайтесь, может быть добрая душа какая-нибудь РЕШИТ...

[zhumadilov]

procedure TForm1.Button1Click(Sender: TObject);
var min, max,z,x:integer;
begin
  min:=0; z:=0;x:=0;
  max:=StrToInt(StringGrid1.Cells[0,0]);

 for I:= 0 to StringGrid1.ColCount-1  do begin
    for j :=0 to StringGrid1.RowCount-1  do begin
        if max<StrToInt(StringGrid1.Cells[i,j]) then
              begin
              max:=StrToInt(StringGrid1.Cells[i,j]);
              z:=i; x:=j;
              end;

    end;
    end;
 for I :=0 to x do begin
   for j := 0 to z-1 do begin
      min:=min>StrToInt(StringGrid1.Cells[j,i]);
                      end;
 panel1.caption:=FloatToStr(min);
 panel2.caption:=floattostr(max);

for I:= 0 to StringGrid1.ColCount-1  do begin
    for j :=0 to StringGrid1.RowCount-1  do begin
    if StringGrid1.Cells[i,j]='0' then
      begin
       StringGrid1.Cells[i,j]:=IntToStr(min);
      end;

    end;



end;
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  for I:= 0 to StringGrid1.ColCount-1  do begin
    for j :=0 to StringGrid1.RowCount-1  do begin
      Randomize;
      StringGrid1.Cells[i,j]:=IntToStr(-20+Random(121));
    end;
  end;
end;

[whatever]

for I :=0 to x do begin
 for j := 0 to z-1 do begin
 min:=min>StrToInt(StringGrid1.Cells[j,i]);

Вот это бессмысленно. Во-первых пробегать нужно весь массив, во вторых " min:=min>StrToInt(StringGrid1.Cells[j,i]);" что это? Меняй поиск минимума на

min:=max;
for I:= 0 to StringGrid1.ColCount-1 do 
 for j :=0 to StringGrid1.RowCount-1 do 
 if min>StrToInt(StringGrid1.Cells[i,j]) then
 begin
 min:=StrToInt(StringGrid1.Cells[i,j]);
 MINz:=i; MINx:=j;            //кстати, тоже не надо, я думаю.
 end;

И потом проверка:

if ((min<>0) and (max/min>=10))or(min=0) then
for I:= 0 to StringGrid1.ColCount-1 do 
 for j :=0 to StringGrid1.RowCount-1 do 
begin
if StringGrid1.Cells[i,j]='0' then StringGrid1.Cells[i,j]:='1';
if strtoint(StringGrid1.Cells[i,j])<0 then StringGrid1.Cells[i,j]:=inttostr(strtoint(abs(StringGrid1.Cells[i,j])));