VPF::множества - Форум программистов

bpeguk

Дата 24.5.2008, 05:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.5.2008

Репутация: нет
Всего: нет

Добрый вечер всем! У меня такая проблема, в институте дали задачку, немогу понять как даже начать её решать, вот задание: Дано множество чисел и некоторое число. Можно ли из множества выбрать два элемента, которые в сумме дают заданное число. Написать код.

Очень прошу, помогите...

MaXL

Дата 24.5.2008, 06:49 (ссылка)

(голосов:1)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

bpeguk, а что тут сложного ?
Закидываешь множество в массив. И потом двойным циклом бежишь по нему, берёшь пары(я так понял, что два элемента из множества могут быть одинаковыми, т.е. мы выбираем a1 и a1) элементов множества, и находишь их суммы, сравниваешь с твоим.
Код примерно такой:

Код


program Project3;
{$APPTYPE CONSOLE}
const
  MAX_SIZE = 100;
var
  A: array[0..MAX_SIZE] of integer;
  N: integer;
  i: integer;

procedure Check;
var
  i, j: integer;
begin
  for i := 0 to MAX_SIZE do
    for j := i to MAX_SIZE do
      if A[i] + A[j] = N then
      begin
        Write('Yes');
        exit;
      end;
  Write('No');    
end;

begin
  //этот кусок кода заполняет массив псевдослучайными числами, и просит ввести N.
  Randomize;
  for i := 0 to MAX_SIZE do
  begin
    A[i]:= Random(100);
    Write(A[i], ' ');
  end;
  Readln(N);

  //если не нравиться, то напиши, чтобы препод сам заполнял ;-)
  Check; //процедура проверки, то что оно такое, какое нужно ;-)
  Readln(N);
end.

--------------------

MaXL

bpeguk

Дата 24.5.2008, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.5.2008

Репутация: нет
Всего: нет

спасибо! Вот что у меня получилось:

Код



unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const mn=[1,3,5,7,9,11,13,15];

var
  Form1: TForm1;
  a,i,j,n,k:byte;
  b:array[1..50]of byte;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear();
n:=0;
for i:=0 to 255 do
if i in mn then
   begin
     n:=n+1;
     b[n]:=i;
     Memo1.Lines.Add(IntToStr(b[n]));
   end;
a:=SpinEdit1.Value;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if (i<>j)and(b[i]+b[j]=a)then
  begin
    k:=k+1;
    Memo1.Lines.Add('-----------');
    Memo1.Lines.Add(IntToStr(b[i]) + '+' + IntToStr(b[j]));
  end;
  if k=0 then Memo1.Lines.Add('There are no pairs');
end;

end.

Всё работает замечательно, хотел сделать что небыло константы mn , а можно было ввести очередь чисел через запятую в Edit1, но что то не получается, ну да ладно, главное что считает и выводит. Благодарю за помощь!

Это сообщение отредактировал(а) Alexeis - 24.5.2008, 18:53

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »