Генерирование вещественных чисел

[Оль4ик]

Здравствуйте! Пишу программу Генератор случайных вещественных чисел (от 0 до 1) Методом Середины Квадратов.
Есть некоторые затруднения при написании данной программы.
Код работает, но крайне нестабильно!!! Если в цикле for число N заменить на "3", то она ещё как-то работает (через раз), а если число циклов будет более "10", то уже не работает!
Поясню как должны получаться числа Методом Середины Квадратов.
Вот есть число х0, полученное Random-ом, допустим 0,32932786074033. Моя задача - сгенерировать 200 вещ. чисел приведенным ниже методом.
Для создания всех последующих элементов существует особое требование:
- отбрасывается нуль от этого Random-ного числа, затем оно обрезается справа до 8 цифр, полученное число возводится в квадрат.
- при этом получается 16-ти-значное число, которое необходимо также укоротить – обрезать по четыре цифры с обеих сторон, в результате чего оно опять получается 8-ми-значным, которое я «превращу» в вещественное, присоединив к нему слева нуль с запятой. И т.д. пока не получим 200 элементов.
Подскажите, как сделать чтобы прога не глючила ?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Edit4: TEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    const
      N = 200; // Количество генерируемых чисел
var
  Form1: TForm1;
  //chisla: array [1..N] of Extended;
   //случайное число от 0 до 1
implementation
{$R *.dfm}
uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
stroka:string;
S1,S2:string;
x1:real;
x0: Extended;
x01:Extended;
x02:int64;
x:int64;
  begin
    Randomize; //Запускаем генератор случ. чисел
    for i:=1 to 3 do
    begin

      x0:= Random;
      Edit1.text:= floattostr(x0);     // Контролируем появление числа
      x01:=((x0*100000000));           // Избавляемся от нуля слева

      S1:= Copy(floattostr(x01),1,8);  // И урезаем число до 8 цифр
      x:= strtoint(S1); // Переприсваиваем значение промежуточной переменной
      x02:= x*x;         // Возводим в квадрат
      Edit2.Text:= inttostr(x02);      // Выводим 16-ти знач. число
      S2:= Copy((Edit2.Text),5,8);  // Подрезаем 16-ти знач. число до 8-ми знач.
      Edit3.Text:= S2; // Переприсваиваем значение промежуточной переменной
      x1:= strtoint(Edit3.Text)/100000000; //Получаем новое число от 0 до 1
      Edit4.Text:= floattostr(x1); //Выводим его на экран

      Memo1.Lines.Add(FloatToStr(x1));

   end;

ShowMessage('x0= '+FloatToStr(x0)+#13+'x01= '+FloatToStr(x01)+ #13 +'x02= '+FloatToStr(x02));

  end;
end.

[evg_m]

Вот есть число х0, полученное Random-ом, допустим 0,32932786074033

а теперь есть число 0,0032932786074033 (floattostr выдает число именно в таком виде)
x01:=00329327,86074033
но первых нулей-то ведь нет.
после урезания имеем 329327,8607
а это вовсе не целое число.
inttostr(x02); не сработает =>программа работает не стабильно!

x0:=random;
x:=trunc(x0*100000000); // trunc - целая часть от указанного числа

другой способ (хотя в этом способе я не уверен как будет работать floattostr )

x0:=random +1; // теперь у нас 1,0032932786074033
s:=floattostr(x0*100000000); // 100329327,86074033 
r:=copy(s,2,8); // берем нужную часть (_)

trunc
fxd

P.S. поправку принимаю.

[phomm]

trunc
fxd

[Оль4ик]

Хочу сказать всем ОГРОМНОЕ СПАСИБО!!! Теперь программа работает стабильно!
Всего-то делов - изменила строку x01:=(x0*100000000);
на x01:=trunc(x0*100000000);
Даже стыдно, что не смогла это сама сделать.
Не поняла только что имелось ввиду под этим

trunc
fxd

Ещё прошу совет, как правильно прописать цикл for ... to... чтобы в поле Мемо числа отображались не в один столбец как у меня, а так: 20 строк по 10 чисел в каждой?
Спасибо!

[Stilet]

fxd это "Fixed", по буржуински - исправленно.
Т.е. предидущим постом она была написана по другому "tranc" например.

Ещё прошу совет

for i... to do ... begin
 if (i mod 10)=0 then Memo.Lines.Text:=Memo.Lines.Text+IntToStr(число)+' '
 else Memo.Lines.Append('');
end;

[evg_m]

Не поняла только что имелось ввиду под этим

это была фиксация моей опечатки tranc -> trunc

P.S. поправку принимаю.

MAXM:=10; столько чисел в строке выводим
m:=0; // здесь будем считать сколько чисел вывели в строке
laststr:=0; //а это будет номер(индекс) текущей(последней) строки в Мemo
for i:=1 to ... ..наш исходный цикл
....
  if m=0 then laststr:=Memo.Lines.Add('');
  s:=memo.lines.Strings[laststr];
  s:=s+'; '+FloatToStr(x1);
  memo.Lines.strings[laststr]:=s;
  m:=(m+1) mod MAXM;
end;

P.S. код from Strilet лаконичнее +1
но

if (i mod 10)=0 then memo.Lines.append('');  //добавляем строку через каждые десять шагов
//else 
memo.Text:=memoText+';  '+ floattostr(...); //число надо выводить всегда (а не только при mod 10=0| mod  10<>0)

[Оль4ик]

О-ей-ей! Пытаюсь сообразить какой из этих способов внедрить. Если правильно поняла это:

P.S. код from Strilet лаконичнее +1

, то от Stilet.
Усиленно соображаю.

[Stilet]

+1

Пожалуй в случае с первой строкой в мемо могут быть проблемы...

Пытаюсь сообразить какой из этих способов внедрить

Не стесняйся - проверь на практике.
Только в моем случае цикл начни с единицы а не с нуля.

[Оль4ик]

Своими действиями я кажется свела с ума свою программу. Всё завертелось, закрутилось, но пока не так как надо. Пока что бьюсь...

Не судите меня строго, но получилось пока только так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
stroka:string;
S1,S2:string;
x1:real;
x0: Extended;
x01:Extended;
x02:int64;
x:int64;
m,MAXM,laststr: integer;
  begin
    Memo1.Lines.Add('Сгенерированный массив:');
    Randomize; //Запускаем генератор случ. чисел
    MAXM:=10; //столько чисел в строке выводим
  m:=0; // здесь будем считать сколько чисел вывели в строке
laststr:=0; //а это будет номер(индекс) текущей(последней) строки в Мemo

    for i:=1 to N do
    begin
      x0:= Random;
      Edit1.text:= floattostr(x0);     // Контролируем появление числа
      x01:=trunc(x0*100000000);        // Избавляемся от нуля слева
      S1:= Copy(floattostr(x01),1,8);  // И урезаем число до 8 цифр
      x:= strtoint(S1);           // Переприсваиваем значение промежуточной переменной
      x02:= x*x;                  // Возводим в квадрат
      Edit2.Text:= inttostr(x02);    // Выводим 16-ти знач. число
      S2:= Copy(inttostr(x02),5,8);  // Подрезаем 16-ти знач. число до 8-ми знач.
      Edit3.Text:= S2;              // Показываем вырезку
      x1:= strtoint(S2)/100000000;  //Получение нового числа от 0 до 1
      Edit4.Text:= floattostr(x1);  //Выводим новое число на экран

  if m=0 then laststr:=Memo1.Lines.Add('');
  s2:=memo1.lines.Strings[laststr];
  s2:=s2+'; '+FloatToStr(x1);
  memo1.Lines.strings[laststr]:=s2;
  m:=(m+1) mod MAXM;
end;
      Memo1.Lines.Add(FloatToStr(x1));
   end;
//ShowMessage('x0= '+FloatToStr(x0)+#13+'x01= '+FloatToStr(x01)+ #13 +'x02= '+FloatToStr(x02));
 // end;
end.

И Showmessagе пришлось отключить, а то прога ругается

[Stilet]

но получилось пока только так

Ну в теории неплохо.
1) Может лучше на ListView заменить твое Мемо?
2) Для мемо wordwrap убери и поставь scrolbars в both в свойствах - тогда хоть похоже будет (но лучше первое)