iÉÚX¨Y¨ÎÍÉÊÇÐËÌSZEÒAAB@0@ @@@@@ @ @0$$PROGRAM PRZEPISANY Z PROBLEMOW›PRZEZ SIKORA, 08.04.2009›!!PODAJ SZEROKOSC (12-38)Š%%SYMULACJA "PERKOLATOR" GENERUJE›""RUCHOME WZORY METODA INFUZJI›((MAJAC DOSTATECZNIE SZYBKI KOMPUTER›$$MOZNA ZWIEKSZYC WYMIARY OBRAZU› LINIE 10,20,30› €9Š<@ ,9Š<@ , 6†- 6‚-Š6ƒ-@ („-@‚2…-@ƒ<6€8„<…,-F68„<…,-P …Z „_(>:A%,dFOR I=1 TO N›nFOR J=1 TO M›xX(I,J)=INT(RND(1)+5›y%%GENERACJA OBRAZU PRZYPADKOWEGO,›z KWADRAT›{„-@@ |…-@@}6€8„<…,-@‚ …Œ „ 6†-†%@ª A€´„-@‚¾…-@ƒÈ€8„<…," AÒ%%6‡-P:H:@,$@,%@܇"@ A€æ‡"@ Að‡"@ A@ú 6ˆ-„**6‰-…&@%+@&N:…&@,,$ƒ A`**6ˆ-„&@%+@&N:„&@,,$‚" 6‰-…, A`66ˆ-@@6‰-…%@&P:…'ƒ,$ƒJ A`T6ˆ-„%@&P:„'‚,$‚^ 6‰-…h8ˆ<‰,"@ Ar6€8„<…,-|68ˆ<‰,-@† … „š„-@‚¤…-@ƒ®6€8„<…,-8„<…,¸68„<…,- …Ì „Ö A`à„-@‚ê…-@ƒï -„…ô€8„<…,"(.þ€8„<…,"@(* …( „&(KROK:†0$€ D:PER3.TB