Вообщем вот что получилось - (Дано два массива. Найти наименьшее среди тех элементов первого массива, которые не входят во второй массив)
Вроде все работает..но посмотрите на код плз..не нагородил ли я там глупых конструкций.. 
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const N = 9; // Максимальное кол-во элементов (в таблицах)
type
Arr1 = array of integer;
Arr2 = array of integer;
Arr3 = array of integer;
var
Form1: TForm1;
a: Arr1;
b: Arr2;
c: Arr3;
i,j,k,temp,count: integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
// Заполняем таблицы случайными значениями
Randomize;
for i:=0 to N do
begin
StringGrid1.Cells[i,0]:=IntToStr(Random(100));
StringGrid2.Cells[i,0]:=IntToStr(Random(100));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Устанавливаем длину массивов a и b
SetLength (a,10);
SetLength (b,10);
// Считываем в массивы значения с обеих таблиц
for i:=0 to N do
begin
a[i]:=StrToInt(StringGrid1.Cells[i,0]);
b[i]:=StrToInt(StringGrid2.Cells[i,0]);
end;
// Проверяем каждый элемент массива a на 'присутствие' в массиве b
//Если элемент из массива a отсутствует во втором массиве - копируем его в третьий массив
k:=0;
count:=0;
for i := 0 to N do
for j := 0 to N do
begin
if a[i]=b[j] then Break;
if (a[i]<>b[j]) and (j=9) then
begin
SetLength (c,k+1);
c[k]:= a[i];
inc(k);
inc(count);
end;
end;
a:=nil;
b:=nil;
// Сортируем по возрастанию третий массив и выводим первый (наименьший) элемент
for i:= 1 to count do
for j:= count downto i do
if c[j-1]>c[j] then
begin
temp:=c[j];
c[j]:=c[j-1];
c[j-1]:=temp;
end;
Edit1.Text:=IntToStr(c[0]);
c:=nil;
end;
end.
|
|
)
)