Pascal---Delphi---Контролка

[SkApY]

Нужна помощь,через неделю контрольная.

1)Заполнить StringGrid случайными числами от -10 до 10 (дробными).
2)Посчитать количество столбцов в которых нет отриц чисел.
3)Найти столбец в котором самая большая сумма эллементов и вывести позицию столбца.

Заранее огромное спасибо

[Aniker]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ExtCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const RowMax = 100; // нужное число строк
      ColMax = 100; // нужное число столбцов
      CMax = 4; // цифр после запятой

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.RowCount:=RowMax;
StringGrid1.ColCount:=ColMax;
Randomize;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i,j,sum:integer;
t,s,msum,pos:extended;
begin
for i:=0 to ColMax do StringGrid1.Cells[i,0]:=inttostr(i);
for i:=0 to RowMax do StringGrid1.Cells[0,i]:=inttostr(i);

// заполнение случайными дробными числами от -10 до 10
Timer1.Enabled:=false;
for i:=1 to RowMax do // проходим все ячейки
 for j:=1 to ColMax do
  begin
  t:=random(round(20*exp(CMax*ln(10))-10*exp(CMax*ln(10)))); // генерация нужного случайного числа.
  if random(2) = 1 then t:=+t else t:=-t; // генерация случайного знака.
  t:=t / exp(CMax*ln(10));  // выделение цифр после запятой
  StringGrid1.Cells[i,j]:=floattostr(t); // вносим в таблицу
  end;

// ищем все столбцы без отрицательных чисел.
sum:=0;
for i:=1 to ColMax do // перебираем столюцы
begin
 t:=0;
 for j:=1 to RowMax do
  if StrToFloat(StringGrid1.Cells[i,j])<0 then t:=1; // если находим отрицательное число, то не входит
 if t=0 then inc(sum); // иначе увеличиваем число столбцов.
end;
ShowMessage(inttostr(sum)); // выводим кол-во стоблцов без отр. чисел.

// находим столбец с максимальной суммой элементов
msum:=low(integer);
for i:=1 to ColMax do // перебираем все столбцы
begin
s:=0; // сумма элементов текущего.
for j:=1 to RowMax do // перебираем все строки столбца
begin
t:=StrToFloat(StringGrid1.Cells[i,j]);
s:=s+t; // добавляем найденное значение к сумме
end;
if s> msum then // если сумма больше текущей максимальной, то
begin
msum := s; // запоминаем сумму и ее позицию
pos:=i;
end;
end; 
ShowMessage('Максимальная сумма = '+floattostr(msum)+'; Номер столбца = '+floattostr(pos)); // выводим
end;

end.

[SkApY]

Мне это нужно как 3 отдельные задачи. И я половину из написанного не понял (((

[Stilet]

И я половину из написанного не понял

Значит что-то ты понимаешь.
Вот покажи что ты уже сделал.

[Aniker]

Добавил комментарии к коду и разбил его на части.
дальше уж сам ))

[SkApY]

t:=random(round(20*exp(CMax*ln(10))-10*exp(CMax*ln(10)))); // генерация нужного случайного числа.
if random(2) = 1 then t:=+t else t:=-t; // генерация случайного знака.
t:=t / exp(CMax*ln(10)); // выделение цифр после запятой

Вот это можно как-то проще записать?Просто мы ещё этого не проходили(

[Aniker]

t:=random(10*10000); // генерация нужного случайного числа.
if random(2) = 1 then t:=+t else t:=-t; // генерация случайного знака.
t:=t / 10000; // выделение цифр после запятой