[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]

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