Форум программистов [Powered by Invision Power Board]

Цитата

{Нажатие кнопки вычислить}
procedure TForm1.Button1Click(Sender: TObject);

var
   a:   array[1..100] of real;
   i:   integer;
   max: real;
   min: real;
   rez: real;

{Вводим массив}
begin

     for i:= 1 to 100 do
     a[i]:= StrToFloat(StringGrid1.cells [i-1,0]);

     max:= a[1];
     min:= a[1];
      for i:= 1 to 100 do
       begin
            if a[i] > max
             then
              max:= a[i];
              if a[i] < max
               then
               min:= a[i];
       rez:= max - min;

       label1.Caption:='Минимальный элемент массива: ' + FloatToStr(min) + #13 +
       'Максимальный элемент массива: ' + FloatToStr(max) + #13 +
       'Разность между максмильным и минимальным значением: ' + FloatToStr(rez);

       end;
end;

Цитата

3 5 1 4

Цитата

Project1.exe raised exception class EConvertError with message"' is not a valid floating point value' Process stopped. Use Step or Run to continue.

Код


for i:= 1 to 100 do
     a[i]:= StrToFloat(StringGrid1.cells [i-1,0]);

Код


     for i:= 1 to 4 do
     If  StringGrid1.cells [i,1]<>'' then
       a[i]:= StrToFloat(StringGrid1.cells [i,1]);

Цитата

for i:= 1 to 4 do
If StringGrid1.cells [i,1]<>'' then
a[i]:= StrToFloat(StringGrid1.cells [i,1]);

Цитата

[i,1]

Код


If  StringGrid1.cells [i,1]<>'' then
       a[i]:= StrToFloat(StringGrid1.cells [i,1]);

Код


          if a[i,j] < max         then          min:= a[i,j];

Код


          if a[i,j] < min         then          min:= a[i,j];

Код


procedure TForm1.Button1Click(Sender: TObject);
var

   a:   array[1..200,1..200] of Integer; //массив от 1 до 200 (это значит массив максимум может состоять из таблицы 200х200

   i:   integer; //Индекс колонок ???
   J:Integer;    //индекс строк ???
   max: real;    //Максимальное значение
   min: real;    //Минимальное значение
   rez: real;    //Результат

{Вводим массив}
begin

  For I:=1 To StringGrid1.ColCount-1 Do  //Это индекс колонок ??? (для чего они тут?)
    For J:=1 To StringGrid1.RowCount-1 Do  //Это индекс строк ??? (для чего они тут?)
       If  StringGrid1.cells [i,J]<>'' then  //Если текущий элемент StringGrid не пустой
          a[i,J]:= StrToInt(StringGrid1.cells [i,J]);  //то преобразовать его в Float

  max:=a[1,1];  //Мы предполагаем что максимальный элемент находится в поле [1,1]
  min:=a[1,1];  //Так же мы предполагаем что минимальный элемент находится в поле [1,1]
  For I:=1 To StringGrid1.ColCount-1 Do  //Начинаем цикл в первой колонке (так?)
    For J:=1 To StringGrid1.RowCount-1 Do  //Начинаем цикл в первой строке (так?)
       Begin
         IF a[i,J] > max  Then  max:= a[i,J];//Сравниваем текущий элемент с максимальным значением, если он больше максимального предыдущего то значение найдено
         IF a[i,j] < min  Then  min:= a[i,j];  //Сравниваем текущий элемент с минимальным значением, если он меньше минимального предыдущего то значение найдено
       end;

       rez:= max - min;
       label1.Caption:='Минимальный элемент массива: ' + FloatToStr(min) + #13 +
       'Максимальный элемент массива: ' + FloatToStr(max) + #13 +
       'Разность между максмильным и минимальным значением: ' + FloatToStr(rez);

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  StringGrid1.RowCount:=StrToInt(Edit2.Text)+1; // ???
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  StringGrid1.ColCount:=StrToInt(Edit1.Text)+1;  // ???
end;

procedure TForm1.Button2Click(Sender: TObject);  //По нажатии кнопки сгенерировать
var
  I,J:Integer;
begin
  Randomize;

  For I:=1 To StringGrid1.ColCount-1 Do         //Тут заполняем таблицу случайными числами с первой колонки и строки
    For J:=1 To StringGrid1.RowCount-1 Do
       StringGrid1.Cells[I,J]:=IntToStr(Random(1000));  //Генерируем числа от 0 - 1000

end;

end.

Код


For I:=1 To StringGrid1.ColCount-1 Do  //Это индекс колонок ??? (для чего они тут?)
    For J:=1 To StringGrid1.RowCount-1 Do  //Это индекс строк ??? (для чего они тут?)
        a[i,J]:= StrToInt(StringGrid1.cells [i,J]);

Код


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  StringGrid1.RowCount:=StrToInt(Edit2.Text)+1; // ???
end;

Код


procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  StringGrid1.ColCount:=StrToInt(Edit1.Text)+1;  // ???
end;