PHP:
-----------------
------------------

Randomize and Edit

Тема в разделе "Другие языки программирования", создана пользователем sanabek, 19 дек 2013.

  1. sanabek

    sanabek WebSHeber

    2.589
    0
    Нужно сделать так что бы введенные чиcло в Edit2 появился в формуле Randomize.
    Вариат 1. Не работает.

    procedure TForm1.Button1Click(Sender: TObject);
    var
    a,b:integer;
    f:String[20];
    begin
    randomize;
    f:=Edit2.Text;
    ShowMessage('Следующие 5 случайных чисел');
    for a:= 1 to 5 do
    begin
    b:= 1 + Random(f);
    ShowMessage(IntToStr(b));
    end;


    Вариант 2. Тоже не робит


    procedure TForm1.Button1Click(Sender: TObject);
    var
    a,b:integer;
    f:String;
    begin
    randomize;
    ShowMessage('Следующие 5 случайных чисел');
    for a:= 1 to 5 do
    begin
    b:= 1 + Random(Edit2.Text);
    ShowMessage(IntToStr(b));
    end;

    Как это провернут?
     
  2. sanabek

    sanabek WebSHeber

    2.589
    0
    40 рублей дам за верный ответ)
     

Поделиться этой страницей