02.05.2017, 18:28
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
О, архивологическая находка, раньше чот не видел
Код:
uses Math;
const
M = 10;
var
C, P, X: array[0..M] of integer;
function ds(C,P: array of integer): boolean;
var
i, j: integer;
begin
Result:= true;
for i:= 0 to Length(C)-1 do
for j:= 0 to Length(P)-1 do
if C[i] = P[j] then Result:= false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to M-1 do
begin
C[i]:= Random(100);
P[i]:= Random(100);
end;
StringGrid1.ColCount:= M;
for i:= 0 to StringGrid1.ColCount-1 do
with StringGrid1 do
begin
Cells[i,0]:= 'C'+ IntToStr(i+1);
Cells[i,1]:= IntToStr(C[i]);
Cells[i,3]:= 'P'+ IntToStr(i+1);
Cells[i,4]:= IntToStr(P[i]);
Cells[i,6]:= 'X'+ IntToStr(i+1);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
if ds(C,P) then
for i:= 0 to M-1 do X[i]:= max(C[i], P[i]);
for i:= 0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,7]:= IntToStr(X[i]);
end;
|