Randomize

[alman12]

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

ИМХО: Дан диапазон (задан спинэдитами) и список чисел (задан в эдите). Выдать случайное число, лежащее в диапазоне и отсутствующее в списке.

да я это имеею ввиду

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }


procedure TForm1.Button1Click(Sender: TObject);
var a,b,i:integer;
begin
 if not (TryStrToInt(Edit2.Text,a) and TryStrToInt(Edit3.Text,b)) or (Edit1.Text='') then exit;
 repeat
  i:=a+Random(abs(a-b));
 until pos(IntToStr(i),Edit1.Text)=0;
 Label1.Caption:=IntToStr(i);
end;


end.

Так?

[min@y™]

Похоже, это «жжжжжжжж» неспроста...

И всё-таки, как брать список из эдита?

repeat
  i:=a+Random(abs(a-b));
until pos(IntToStr(i),Edit1.Text)=0; // <---- brainfucker detected!

Мама, роди меня обратно! Какая жуть!!!111

From Stilet: Будь добр, если видишь что твой пост последний и нужно его дополнить - редактируй вместо того чтоб создавать подряд новый.

[alman12]

Сообщение от min@y™

Похоже, это «жжжжжжжж» неспроста...

И всё-таки, как брать список из эдита?



Мама, роди меня обратно! Какая жуть!!!111

From Stilet: Будь добр, если видишь что твой пост последний и нужно его дополнить - редактируй вместо того чтоб создавать подряд новый.

я написал число в edit1 не сгененериривались в label1

[min@y™]

я написал число в edit1 не сгененериривались в label1

То есть, в edit1 может быть только одно число, а не список чисел?
Ну напиши ты по-английски, если русский язык не знаешь!

From Stilet: Будь добр, если видишь что твой пост последний и нужно его дополнить - редактируй вместо того чтоб создавать подряд новый.

Ладно. Только пока я правлю пост (одним пальцем на экранной клаве), он может стать очень сильно непоследним.

[phomm]

Он ни на каком не умеет излагать.
Задача уже решалась

[indexx]

alman12 ТВОЙ КОД

uses Math;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Res: integer;
  RandomArray: Array of integer;
begin
  for i := Min(SpinEdit1.Value, SpinEdit2.Value) to
    Max(SpinEdit1.Value, SpinEdit2.Value) do
      if i <> StrToInt(Edit1.Text) then
      begin
        SetLength(RandomArray, Length(RandomArray) + 1);
        RandomArray[High(RandomArray)] := i;
      end;
  Randomize;
  Res := RandomArray[Random(Length(RandomArray))];
  ShowMessage('Число ' + IntToStr(Res) + ' Находится в диапазоне, указанном в спинах, и не является числом, указанным в Edit');
end;

P.S. Да он упоротый

[Человек_Борща]

P.S. Да он упоротый

Always & forever.

Дополните правила форума: кличко-людей не принимаем, изъясняйтесь так чтоб было всем понятно а не только вам.

[alman12]

Сообщение от Человек_Борща

Always & forever.

Дополните правила форума: кличко-людей не принимаем, изъясняйтесь так чтоб было всем понятно а не только вам.

что зто твой сайт что ли ?

[indexx]

изъясняйтесь так чтоб было всем понятно а не только вам

alman12 разве не так изъясняется? Или ему, как особо одарённому, можно?