Kongruen Linier
19.58
No comments
Program LInier menggunakan borlan delphi7
Rumus Kongruen Linier : Zi+1= (a . Zi + c) mod m
bilangan random yang dihasilkan = Z1, Z2, Z3, Z4, …...
Metode ini banyak digunakan di dalam program komputer,
ketentuan untuk memilih Z0, a, c, dan m sama dengan
metode Multiplicative.
unit UKongLinier;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
Button1: TButton;
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
ListBox1: TListBox;
Label6: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,b,z0,m,i,n,hasil,z:integer;
begin
ListBox1.Items.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
z0:=StrToInt(Edit3.Text);
m:=StrToInt(Edit4.Text);
n:=StrToInt(Edit5.Text);
for i:=1 to n do
//for z:=1 to 4 do
begin
z0:=(a*z0+b) mod m;
hasil:=z0;
ListBox1.Items.Add(IntToStr(hasil));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
ListBox1.Items.Clear;
edit1.SetFocus;
end;
end.
.jpg)
