Цитата:
Сообщение от kobezzza
Ребят, как сделать, чтобы элементы массива С и T, которые оказались больше некоторого числа (забивается в поле ввода пользователем) выводились в StringGrid? Заранее благодарен
|
Можно так. Только если че нитак извини, быстро набросал.
Код:
var
Form1: TForm1;
C: array [1..10] of integer;
T: array [1..10] of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var j,i:integer;
chislo:integer;
begin
chislo:=StrToInt(Edit1.text);
with StringGrid1 do
begin
ColCount:=3;
RowCount:=11;
for J:= 1 to 10 do
begin
Cells[1,j] := ' ';
Cells[2,j] := ' ';
end;
i:=0;
for J:= 1 to 10 do
begin
if c[j]>chislo then
begin
i:=i+1;
Cells[1,i] := IntToStr(c[j]);
end;
end;
i:=0;
for J:= 1 to 10 do
begin
if T[j]>chislo then
begin
i:=i+1;
Cells[2,i] := IntToStr(T[j]);
end;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
Var i,j:integer;
begin
Randomize;
for i := 1 to 10 do
begin
C[i]:=Random(50);
T[i]:=Random(50);
end;
with StringGrid1 do
begin
ColCount:=3;
RowCount:=11;
i:=1;
for J:= 1 to 10 do
begin
Cells[1,j] := IntToStr(c[j]);
Cells[2,j] := IntToStr(T[j]);
end;
end;
end;
end.
Только не сделал, чтобы образовывался третий массив. Ну это просто, сделай сам.