i
i
“Razpet-sah” — 2010/6/14 — 10:00 — page 1 — #1 i
i
i
i
i
i
List za mlade matematike, fizike, astronome in računalnikarje
ISSN 0351-6652
Letnik 16 (1988/1989)
Številka 3
Strani 152–153
Marko Razpet:
ŠAHOVSKI KRALJ IZBIRA VZOREC NA ZASLONU
Ključne besede: matematika, računalništvo, deljivost števil, računal-
niška grafika.
Elektronska verzija: http://www.presek.si/16/930-Razpet-sah.pdf
c© 1988 Društvo matematikov, fizikov in astronomov Slovenije
c© 2010 DMFA – založništvo
Vse pravice pridržane. Razmnoževanje ali reproduciranje celote ali
posameznih delov brez poprejšnjega dovoljenja založnika ni dovo-
ljeno.

10 PROGRAM KINGPATH;
20 (* program rise tocke * )
30 (* deljivosti stevil * )
40 (* otx, Y) s stevilom P * )
50 CONST M = 127;
60 VAR J , Pl, P2, P, X, V : INTEGER;
70 C: CHAR ;
80 A, B : ARRAV [O oo MI OF INTEGER;
90 (* A - prvotno zaporedje *)
100 (* B - novo zaporedje * )
110 PROCEDURE PLOT (U, V : INTEGER) ; (* narise tocko *)
120 BEGIN
130 INUNE (253,33,58,92,221,70,2,221,78,4,205,229,34);
140 END;
150 BEGIN
160 REPEAT
170 PAGE;
180 WRITELN ('Ko bo slika narisana, pritisni K');
190 WRITELN ('za konec in drugo tipko za nov primer!');
200 WRITELN ('Vnesi modul Pl 1'); READ (P1);
210 WRITELN ('Vnesi modul P2 1') ; READ (P2);
220 PAGE;
230 FOR J := O TO 1 DO
240 BEGIN
250 IF J = O THEN P := P1
260 ELSE P := P2;
270 (* postavi prvo zaporedje na 1 *)
280 FOR X := O TO M DO A ( X 1:= 1;
290 FOR V := O TO M - 1 DO
300 BEGIN
320 B ( Ol := 1;
330 (* odpiramo zanko, v kateri iz *)
340 ( * starega zaporedja dobimo novo *)
350 FOR X := V + 1 TO M DO
360 BEGIN
380 B ( X J := (A ( X 1+ A ( X-1 1+ B ( X-1 1) MOD P;
390 IF B [X 1= O THEN
400 CASE J OF
410 O : PLOT (X, V); (* prvi modul *)
420 1 : PLOT (X+M+1, V) (* drugi modul *)
430 END
440 END;
450 ( * postavi novo prvo zaporedje *)
460 FOR X := V TO M DO A (X J := B (X 1;
470 END;
480 END;
490 ( * caka, da gledamo sliko *)
500 REPEAT C := INCH UNTIL C <> CHR(O);
510 UNTIL C = ' K ';
520 END. 153