Проверка числа на принадлежность (Delphi)

[Annabelle]

Доброго времени суток!
Дана задача:
Множество K строится следующим образом: 1) два натуральных числа a, b включены в множество K; 2) для любых x, y, входящих в K, число x+y+xy включается в K. 3) других элементов в K нет. Определить, является ли Z элементом множества K, если заданы числа a, b.

Пишу код:

unit mass1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  n=7;
var
 a,b,i,Z,k,res,j,p: integer;
 MyArrray: array [1..n] of integer;
 st:string;
begin
Label4.Caption:='Элементы массива K';
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
Z:= StrToInt(Edit3.Text);
// Задаём начальные значения
MyArrray[1]:=a; MyArrray[2]:=b; i:=4;    k:=3;
MyArrray[3]:= MyArrray[1]+ MyArrray[2]+MyArrray[2]*MyArrray[1];
//Формируем массив


    for j:= 1 to k-1 do
     begin
    MyArrray[i]:=MyArrray[k]+MyArrray[j]+MyArrray[k]*MyArrray[j];
    inc(i);
    end;
  inc(k);
   for p:=1 to n do
   st := st + IntToStr(MyArrray[p]) + #13;
   Label5.Caption:=st;
    // вывод списка Label1.Caption := st;




   while (i<=7) do
   res:=0;
    for j:=1 to n do
    if ( MyArrray[j]=z) then res:=1;




   if res=1 then
         ShowMessage('Z= '+Edit3.Text + ' находится в массиве К' )
           else ShowMessage('Z= '+Edit3.Text + ' отсутствует в массиве К' );
end;

end.

Но программа виснет( когда задаю k=4, работает.
Подскажите пожалуйста, где ошибка



___________
1) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

2) для учебных задач предназначен раздел "Помощь студентам"

Не забывайте, пожалуйста, об этом!
Модератор.

[3D Hunter]

Видимо, здесь:

i:=4;
...
for j:= 1 to k-1 do
begin
  MyArrray[i]:=MyArrray[k]+MyArrray[j]+MyArrray[k]*MyArrray[j];
  inc(i);
end;

Когда вы задаете k=4, то цикл проходит по j от 1 до 3. Но у вас только 7 элементов массива, а переменная i инициализирована значением 4. Сложим 4+3=7. Совпадает с размерностью массива MyArrray? Да. У вас будет ошибка при любой попытке задать k числом, большим 4. Здесь у вас программа вываливалась.

А вот здесь зацикливание, если i<=7:

while (i<=7) do res:=0;

Отсюда и зависание.

[JuniorProger]

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

Доброго времени суток!
Дана задача:
Множество K строится следующим образом: 1) два натуральных числа a, b включены в множество K; 2) для любых x, y, входящих в K, число x+y+xy включается в K. 3) других элементов в K нет. Определить, является ли Z элементом множества K, если заданы числа a, b.

Вопросы по пунктам:
1)a и b любые натуральные числа? Т.е. К состоит только из натуральных чисел?
2)если для любых x, y, входящих в K, число x+y+xy включается в K, то для любых a и b (из первого вопроса) входящих в K, число a+b+ab включается в K?
3)каких других элементов?
4) Что такое Z и как оно получается?

Если условие написано "своими словами", то хотелось бы видеть оригинал.

[3D Hunter]

Задача и так ясна до безобразия:
1) X и Y - это общий случай, A и B - это конкретные вводимые значения (значения переменных X и Y).
2) Исходя из 1) естественно.
3) Z=a+b+ab.

[JuniorProger]

Сообщение от 3D Hunter

Задача и так ясна до безобразия:
1) X и Y - это общий случай, A и B - это конкретные вводимые значения (значения переменных X и Y).
2) Исходя из 1) естественно.
3) Z=a+b+ab.

Спасибо за разъяснение. Просто люблю четко поставленные и понятно описанные задачи. А то, помню как-то помогал человеку, а он "не то имел ввиду". Поэтому и переспросил, дабы не возникало недопонимания
А интересно, автор тоже это условие подразумевал? Или у него что-то другое в голове было.

[vovk]

Сообщение от 3D Hunter

Видимо, здесь:

i:=4;
...
for j:= 1 to k-1 do
begin
  MyArrray[i]:=MyArrray[k]+MyArrray[j]+MyArrray[k]*MyArrray[j];
  inc(i);
end;

Когда вы задаете k=4, то цикл проходит по j от 1 до 3. Но у вас только 7 элементов массива, а переменная i инициализирована значением 4. Сложим 4+3=7. Совпадает с размерностью массива MyArrray? Да. У вас будет ошибка при любой попытке задать k числом, большим 4. Здесь у вас программа вываливалась.

Вообщето только при к= 5 и не вылетит, и не зациклится на

while (i<=7) do res:=0;

а просто его обойдёт (в цикле i не меняется, как вообще из него планировалось выходить, да и зачем он?)

, в цикле

 i:=4; k:=3;

for j:= 1 to k-1 do
begin
MyArrray[i]:=MyArrray[k]+MyArrray[j]+MyArrray[k]*MyArrray[j];
inc(i);
end;

запись в массив начинается с 4 элемента, а добавляется после использования, так что не
4+3 а 3+4, то есть сначала добавляем 4 элемент потом 5 потом 6 потом 7, а то что после этого i возрастает до 8 тут ни на что не влияет.

А вообще код напоминает набор мало связанных действий, с кучей лишних переменных.

[Annabelle]

Немного переделала код, но вот в этом месте не работает inc(k), а почему, не могу понять(
for j:= 1 to k-1 do
begin
MyArrray[i]:=MyArrray[j]+MyArrray[k]+MyArrray[k]*MyArrray[j];
inc(i);
end;
inc(k);

[FaTaL]

работает, но только один раз после выполнения цикла.

[Annabelle]

Ну да,для n=7 должно быть только одно увеличение k на единицу
но у меня не работает
Напишите пожалуйста, какие выводит числа-элементы массива