подправить программу с матрицой!

← →
roman936 © (2009-12-16 17:45) [0]

добрый день всем! нужно сделать так чтобы массив вводился в StringGrid1, а сортировался в StringGrid2!! у меня сразу сортирует в одном StringGrid1. помогите доделать!
procedure TForm1.Button2Click(Sender: TObject);
begin
Randomize;
for i:=0 to 36 do
mas[i]:=(10-Random(20));

for i:=0 to 36 do
If mas[i]<0 then mas[i]:=0;

for i:=1 to 36 do
begin
for j:=25 downto i do
if mas[j-1]>mas[j] then
begin
b:=mas[j-1];
mas[j-1]:=mas[j];
mas[j]:=b;
end;
end;
for i:=0 to 36 do
s:=0;
for i:=StringGrid1.RowCount-1 downto 0 do
if i mod 2=0
then
for j:=0 to StringGrid1.ColCount-1 do
begin
StringGrid1.Cells[j,i]:=IntToStr(mas[s]);
s:=s+1;
end
else begin
for k:=StringGrid1.RowCount-1 downto 0 do
if i mod 2=1
then
begin
StringGrid1.Cells[k,i]:=IntToStr(mas[s]);
s:=s+1;
end;
end;
end;

← →
Jeer © (2009-12-16 18:14) [1]

Ну и где у тебя там StringGrid2 ?

← →
roman936 © (2009-12-16 20:11) [2]

я знаю что его нет! вот именно это я и прошу помочь

← →
Сергей М. © (2009-12-16 20:41) [3]

Чем ближе к зачетам - тем наглее школота: сдула без зазрения совести чей-то код (тожу у кого-то сдутый) и канючит на весь рунет: Памагите доделать !

← →
Michael (2009-12-17 16:34) [4]

Помогите пожалуйста, у меня такой вопрос.Дана действительная матрица эм на эн .Вывести матрицу на экран.Определить числа b1,..,bэмтое равные наименьшим значениям элементов строк.
Вот код который я написал, но тут явно ошибки) исправьте его пожалуйста.

unit Unit111;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Edit1: TEdit;
Button2: TButton;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit1Change(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var m,n,i,j,min:integer;
procedure TForm1.Edit2Change(Sender: TObject);
begin
If Edit2.text="" then m:=1 else
m:=StrToInt(Edit2.Text);
StringGrid1.ColCount:=m+1;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
If Edit1.text="" then n:=1 else
n:=StrToInt(Edit1.Text);
Stringgrid1.RowCount:=n+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a: array[1..100,1..100] of integer;
var k,r,min:integer;
begin
For i:=1 to n do
For j:=1 to m do
Begin
a[i,j]:=random(20)-10;
StringGrid1.Cells[j,i]:=FloatToStr(a[i,j]);
end;
end;
var k,r:integer;
begin
for k:=1 to n do
for r:=1 to m do
a[r]:=StrToInt(StringGrid1.Cells[i-1,0]);
min:=1;
for r:=2 to m do
if a[r]< a[min] then min:=i;

Label2.caption:="Мин. элемент строки"+#13+""+IntToStr(a[min]);
end.

подправить программу с матрицой! Найти похожие ветки