Archiwum 26 czerwca 2020


cze 26 2020 Systemy liczbowe według Boolean'a
Komentarze: 0

program system

uses crt;

win;

var 

 

begin

 

repeat

    system (system)^siódemkowy^(array[0..6]):=0+6=7 :=1?+6?:=7;

     system (system binarny)^dwojkowy^(array[0..1]):0+1:=1+1:=01;

     system (system)^osemkowy^(array[0..7]):=1:7:+8::1?+6?:=8'

 until false

END.

 

 

if system<>system

 

 

then begin

 

system(dwojkowy-:=2,x:=0 y:1):+ system((szesnastkowy+0 to : 1f)):=system (dzięsiatny:=+10(system siódemkowy+3):=array^system(dwojkowy=binarny(szesnastkowy=heksagonalny) ++[osemkowy] 2(dziesiatkowy:=array[0..10])

end;

until false;

end.