[Kobe_Bryant_24]

не знаю что изменить в коде чтобы программа работала правильно.

Задание: Составьте программу, проверяющую, можно ли, меняя местами элементы одномерного массива А, получить целочисленный массив В.

Текст программы

PHP код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var n: integer;
begin
  n:=StrToInt(Edit1.Text);
  StringGrid1.RowCount:=n;
  StringGrid2.RowCount:=n;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i,j,n,s:integer;
begin
   n:=StrToInt(Edit1.Text);
   s:=0;
   for i:=1 to n do
    for j:=1 to n do
     begin
       if (StringGrid1.Cells[0,i]=StringGrid2.Cells[0,j]) then s:=s+1;
     end;
     label2.Caption:=IntToStr(s);
    if s=n then label1.caption:='можно' else label1.Caption:='нельзя'
end;


end. 


[lmikle]

Не совсем понятно, что надо сделать.
Как я понимаю:
У тебя есть некоторый массив A с числати типа Double (Extended) и т.д.
И есть некоторое целое число n - длинна желаемого массива.
Надо проверить, можно ли найти n целых чисел в массиве A, что бы составить массив B длинной n. Если так, то задача решается просто:

Код:

function CheckForB(A : Array Of Double; n : Integer) : Boolean;
var
  I : Integer;
  C : Integer;
begin
   Result := False;
   C := 0;
   For I := Low(A) To High(B) Do
     If Int(A[i]) = A[i] Then Inc(C);
   Result := C >= n;
end;

[Kobe_Bryant_24]

Вначале я задаю два одномерных массива А и В. А в задании вопрос:проверить можно ли, меняя местами элементы массива А получить массив В.

P.S. в моём коде переменная s - есть количество совпадений

[lmikle]

А-а-а... Да, это немного другая задача.
Алгоритм такой. Берем массив B. Идем по нему циклом. проверяем каждый элемент на наличие в массиве A. Если элемент найден, то удаляем такой элемент из массива A и переходим к следующему элементу массива B. Если прошли весь массив B и нашли для него соотв. элементы в A, то можно. Иначе - нельзя.

ЗЫ. Код писать лень Там все просто. Тебе надо не только проверять на совпадения, но и контролировать их кол-во. Т.е. если в массиве B есть две 1, то и в массиве А их должно быть как минимум столько же. Ну и длинны массивов надо проверить для начала.

[Kobe_Bryant_24]

напишите код пожалуйста

[Kobe_Bryant_24]

люди! напишите код пожалуйста!
яп просто уже целый день сижу, не могу сообразить ничего!

[s0Creator]

наверное гдето так:

Код:

function TForm1.Compare2Mass(A, B: array of Integer): Boolean;
var
  i, n, k, lenA : Integer;
  X: array of Integer;
  noIn,
  netA: Boolean;
begin
  Result := false;
  lenA := Length(A);
  if lenA <> Length(B) then
    Exit;  // если длины не совпадают то не получится

  SetLength(X, lenA);

  for i := 0 to lenA - 1 do
  begin // для каждого элемента B[i] проверяем
    netA := true;
    for n := 0 to lenA - 1 do // проверяем массив А
      if B[i] = A[n] then // есть такой элемент в массиве А
      begin
        noIn := true;
        for k := 0 to i - 1 do
          if n = X[k] then
          begin // его уже сопоставили с другим элементом массива В
            noIn := false;
            break;
          end;
        if noIn then
        begin // этот элемент еще не сопостовляли
          X[i] := n;
          netA := false; // нашли новый элемент в А соответствующий очередному в В
          break;
        end;
      end;
    if netA then // не нашли новый элемент в А соответствующий очередному в В
      Exit;
  end;
  // если еще не вышли значит все элементы найдены
  Result := true;
end;

[Asinkrit]

Пришло на ум, одно из решений) отсортировать оба массива, а потом пробежаться в одном цикле по обоим массивам, до конца(истина) или до первого несовпадения(ложь)...

[s0Creator]

Сообщение от Asinkrit

Пришло на ум, одно из решений) отсортировать оба массива, а потом пробежаться в одном цикле по обоим массивам, до конца(истина) или до первого несовпадения(ложь)...

А я сразу не сообразил. Только не так, а как сказано в задании - пытаемся перестроить ( отсортировать ) А под В

PHP код:

function TForm1.Compare2Mass2(A, B: array of Integer): Boolean;
var
  i, n, tmp, lenA : Integer;
  netA: Boolean;
begin
  Result := false;
  lenA := Length(A);
  if lenA <> Length(B) then
    Exit;  // если длины не совпадают то не получится

  for i := 0 to LenA - 1 do // перестроим А как В
    if B[i] <> A[i] then
    begin // очередной несовпадает
      netA := true;
      // ищем в оставшихся
      for n := i + 1 to LenA - 1 do
        if B[i] = A[n] then
        begin  // если нашли переставляем
          tmp := A[i];
          A[i] := A[n];
          A[n] := tmp;
          netA := false;
          break;
        end;
      if netA then // если не нашли значит нельзя
        Exit;
    end;
  // если еще не вышли значит все элементы переставлены
  Result := true;
end; 


[Kobe_Bryant_24]

всем спасибо, сделал немного по-другому, тоже с сортировкой, работает
завтра сдам на зачёт всё вместе с этим)