Facebook
From Unreliable Prairie Dog, 5 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 272
  1. function wynik= podzial(tab,r)
  2.     wynik = -1;
  3.     for i=1:r+1 do
  4.         disp(tab(i))
  5.     end
  6.      minimalna = tab(1);
  7.      maksymalna = tab(1);
  8.     for i=1:r+1 do
  9.         for j=1:i do
  10.             if(tab(j)<minimalna)
  11.                 minimalna = tab(j)
  12.             end
  13.          end
  14.          for k=r+1:i do
  15.              if(tab(k)>maksymalna)
  16.                  maksymalna = tab(k)
  17.               end
  18.          end
  19.          if(minimalna == maksymalna)
  20.              wynik = i
  21.              break              
  22.          end
  23. end
  24. endfunction
  25.