Facebook
From Red Shama, 5 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 258
  1. function Tablica(N);
  2.     T=int(N*rand(1,N))
  3.     k = 2           //
  4.     l = 1           // dlugosc podtablicy
  5.     i = 1           //
  6.     while k <= N do
  7.        
  8.         if T(k-1)==T(k) then
  9.            
  10.             k = k+1
  11.             i = i+1
  12.            
  13.             if i > l  then
  14.                
  15.                l = i
  16.             end
  17.        
  18.             else
  19.             i=1
  20.             k=k+1
  21.             end
  22.    end
  23.    disp(T)
  24.    disp(l)
  25. endfunction
  26.