BILANGAN ACAK LCG PADA EXCEL DAN PASCAL

malam agan2 semua nih sya share tugas prak.pemodelan yang  Menampilkan Bilangan acak LCG (LINEAR CONGRUENTIAL GENERATORS) pada excel dan pascal.
langsung saja yang excel saya langsung kasih masuk printscreennya bersama dengan sedikit penjelsannya.
lanjut tentang yang constanta:
saat memasukkan rumus dan telah mengklik sel tempat constanta berada tekan F4 pada keyboard agar nilai tidak berubah ketika ditarik kebawah..
atau kalau masih bingung langsung saja download file excelnya disini...






'

Nah kalau di pascal ini listing programnya
program LCG;
uses crt;
const m = 16;
      a = 5;
      b = 3;
var i, yi : integer;
begin
clrscr;
yi := 1;
for i := 0 to 20 do
begin
  yi := (a*yi+b) mod m;
  writeln(i,'.',yi);
end;
readln;
end.

Terimah Kasih Sudah Berkunjung