%Header Record Format:MCS1 Type Number:1 File Name:SI-TABLE Option Name: Communication SW:0 Capacity:920 Data Type:PG %Data Record Password: BaseN:0 \Lbl 1 "\ Not "\->\fn2 "(A+B)*\ Not (AB)"\->\fn3 "(A+B+C)*\ Not (AB+AC+BC)"\->\fn4 0\->A~Z 1\->W \ClrText "===TABLE DE VERITE===" "1:CODE GREY" "2:CODE BINAIRE" "3:AIDE" "4:QUITTER" \Do:\Getkey\->H H=72\=>1\->K H=62\=>2\->K H=52\=>3\->K H=73\=>4\->K \LpWhile K=0 \If K=3:\Then \ClrText "[OPTN]\->[FMEM]\->RECALL" "" "\ Not : \fn2" "A XOR B : \fn3" "A XOR B XOR C : \fn4"\Disp\Goto1 \IfEnd \If K=4:\Then \ClrText "" "MERCI D'AVOIR UTILISE SI-TABLE PAR RIODELUZ" \Stop \IfEnd \ClrText \Lbl 2 "NOMBRE ENTREES"?\->X \If X\<>\Int X\ Or X<1\ Or X>7:\Then "NOMBRES ENTREES INVALIDE" \Goto2 \IfEnd \ClrText {2^X,X+1}\->\Dim \Mat A \ClrText "FORMULE"?\->\fn1 \If K=2:\Then \For 1\->\theta \To X 2^\theta\->W \For 0\->S \To 2^X-2 \Step W:\For 1\->Y \To W/2 1\->\Mat A[Y+2^(\theta-1)+S,X-\theta+1] \Next \Next \Next \IfEnd \If K=1 \Then \For 1\->\theta \To X 2^\theta\->W \For 0\->S \To 2^X-2 \Step 2W:\For 1\->Y \To W/2 1\->\Mat A[Y+2^(\theta-1)+S,X-\theta+1] \Next \For Y\->Z \To W/2+Y \If (Z+2^(\theta-1)+S)\<=(2^X):\Then 1\->\Mat A[Z+2^(\theta-1)+S,X-\theta+1] \IfEnd \Next \Next \Next \IfEnd \For 1\->Y \To 2^X \Mat A[Y,1]\->A X\>=2\=>\Mat A[Y,2]\->B X\>=3\=>\Mat A[Y,3]\->C X\>=4\=>\Mat A[Y,4]\->D X\>=5\=>\Mat A[Y,5]\->E X\>=6\=>\Mat A[Y,6]\->F X=7\=>\Mat A[Y,7]\->G \If \fn1\<>0 \Then 1\->\Mat A[Y,X+1] \IfEnd \Next \Mat A\Disp\Goto1\@00 %End