Programy pro kalkulátor TI-57

Programy pro kalkulátor TI-57

Krásná, šikovná, praktická a počertu užitečná věcička, to byl a stále ještě je kalkulátor Texas Instruments TI-57. Dá se bez nadsázky tvrdit, že předčí mnohé moderní kalkulátory. V jednoduchosti je síla. Kdo by si chtěl hrát, může se do toho pustit s několika prográmky níže, které jsem napsal mezi léty 1998 a 2000 pro jeden krásný kus tohoto kalkulátoru, který jsem jako chudý student koupil za 30,- Kč na elektrovrakovišti v Brně. Hledání, jak napsat co nejkratší program, aby v padesáti krocích uměl to co umět má, to bylo krásné trávení volného času a skvělý způsob, jak bystřit mysl. Kde jsou ty časy?


Tento prográmek počítá den v týdnu a juliánské datum pro 0h SEČ. Před spuštěním je třeba registry nakrmit konstantami podle poznámek dole, do prvního registru zadat den v měsíci, do druhého měsíc a do třetího rok. Prográmek si poradí s přestupností každého čtvrtého roku, přestupnost století však nezapočítává- ještě štěstí, že rok 2000 byl přestupný.

Číslo kroku Funkce
00 04
01 SUM 1
02 RCL 5
03 2ND PRD 3
04 RCL 3
05 2ND INT
06 SUM 1
07 RCL 2
08 STO 7
09 01
10 INV SUM 2
11 02
12 2ND INV X>=T
13 GTO 0
14 RCL 7
15 SUM 1
16 RCL 3
17 2ND INV PRD 7
18 2ND INV INT
19 2ND INV X>=T
20 01
21 2ND INT
22 INV SUM 1
23 2ND LBL 0
24 RCL 0
25 2ND PRD 2
26 RCL 2
27 2ND INT
28 SUM 1
29 RCL 6
30 2ND PRD 2
31 RCL 2
32 2ND INT
33 SUM 1
34 07
35 2ND INV PRD 1
36 RCL 1
37 2ND INV INT
38 X↑↓T
39 07
40 2ND PRD 7
41 RCL 7
42 R/S
43 07
44 2ND PRD 1
45 RCL 4
46 SUM 1
47 RCL 1
48 R/S
49 RST

Před prvním spuštěním programu zadat do datových registrů tyto konstanty:

30,43 → STO 0
1/(30,43*8) → STO 6
(1721039+0,4583) → STO 4
365,25 → STO 5

Návod: Začít na kroku 00 (zmáčknout RST) a zadat do pamětí den → STO 1, měsíc → STO 2 a rok → STO 3. Zmáčknout R/S. Objeví se číslo dne v týdnu. Další zmáčknutí R/S- objeví se JD pro 0,0000 hodin SEČ.


Další program umí spočítat střední hvězdný čas v 0,0000 hodin světového času na nultém poledníku. Ani tento prográmek se neobejde bez zadání konstant do některých pamětí před prvním spuštěním. Den, měsíc a rok se opět zadávají do datových registrů s čísly 1, 2 a 3.

Číslo kroku Funkce
00 RCL 5
01 2ND PRD 3
02 RCL 3
03 2ND INT
04 SUM 1
05 RCL 2
06 X↑↓T
07 STO 2
08 02
09 2ND INV X>=T
10 GTO 1
11 RCL 7
12 SUM 1
13 RCL 3
14 2ND INV INT
15 2ND LBL 1
16 X↑↓T
17 2ND EXC 2
18 STO 3
19 00
20 2ND X=T
21 01
22 INV SUM 1
23 01
24 INV SUM 2
25 RCL 0
26 2ND PRD 2
27 RCL 2
28 2ND INT
29 SUM 1
30 RCL 6
31 2ND PRD 2
32 RCL 2
33 2ND INT
34 SUM 1
35 RCL 4
36 SUM 1
37 RCL 3
38 STO 7
39 2ND INV PRD 1
40 RCL 1
41 2ND INV INT
42 STO 1
43 02
44 04
45 2ND PRD 1
46 RCL 1
47 2ND INV DMS
48 R/S
49 RST

Před prvním spuštěním programu zadat do datových registrů tyto konstanty:

30,43 → STO 0
1/(30,43*8) → STO 6
(-694240-0,59769) → STO 4
365,25 → STO 5
(365,2+4,221178e-2) → STO 7

Návod: Jako u předchozího programu začínáme na kroku 00 (RST). Do pamětí 1, 2 a 3 zadáme den, měsíc a rok. Po stisku R/S spočítá TI-57 hledaný střední čas ve formátu hh,mmss.


Další program umí spočítat faktoriál libovolně velkého čísla. Ale pozor, například výpočet 100000! trvá déle než jeden den. Ale proč si jen tak nezablbnout, že?

Číslo kroku Funkce
00 R/S
01 STO 0
02 X↑↓T
03 00
04 2ND X>=T
05 RST
06 RCL 0
07 2ND INT
08 2ND INV X=T
09 RST
10 06
11 09
12 2ND X>=T
13 GTO 3
14 2ND LBL 0
15 RCL 0
16 2ND LOG
17 SUM 1
18 2ND DSZ
19 GTO 0
20 2ND LBL 2
21 RCL 1
22 2ND INV INT
23 2ND INV LOG
24 R/S
25 CLR
26 2ND EXC 1
27 2ND INT
28 RST
29 2ND LBL 3
30 01
31 STO 1
32 2ND LBL 1
33 RCL 0
34 2ND PRD 1
35 2ND DSZ
36 GTO 1
37 RCL 1
38 2ND LOG
39 STO 1
40 GTO 2

Návod: začít na kroku 00, vložit přirozené číslo a zmáčknot R/S. Kalkulátor vypočítá mantisu faktoriálu tohoto čísla. Po dalším stisku R/S ukáže TI-57 exponent hledaného faktoriálu. Můžeme zadat další číslo... Tak například, 100000!=1,5294314e430962 a nebo třeba 250000!=5,566728e1240873. :-)


Tento geniální program nemá žádný jiný účel, než zkrátit volný čas- jedná se o jednoduchou logickou hru. Nejsem jeho autorem a byl zveřejněn v jednom hooodně starém časopisu Sdělovací technika. Principem hry je, že si kalkulátor „myslí” nějaké čtyřmístné číslo a my jej máme uhádnout. Vložíme tedy náš tip, co že by to mělo být za číslo a kalkulátor nám poté podá informaci, kolik číslic jsme správně uhádli a kolik zároveň správně umístili.

Číslo kroku Funkce
00 STO 6
01 04
02 2ND EXC 0
03 STO 5
04 2ND LBL 1
05 01
06 00
07 STO 7
08 2ND INV PRD 6
09 RCL 6
10 2ND INV INT
11 INV SUM 6
12 2ND PRD 7
13 RCL 1
14 2ND X=T
15 GTO 2
16 RCL 2
17 2ND X=T
18 GTO 2
19 RCL 3
20 2ND X=T
21 GTO 2
22 RCL 4
23 2ND INV X=T
24 GTO 3
25 01
26 2ND LBL 2
27 01
28 SUM 5
29 2ND LBL 3
30 RCL 1
31 2ND EXC 2
32 2ND EXC 3
33 2ND EXC 4
34 STO 1
35 2ND DSZ
36 GTO 1
37 RCL 5
38 R/S
39 RST
40 2ND LBL 4
41 2ND EXC 2
42 2ND EXC 5
43 2ND EXC 3
44 2ND EXC 1
45 2ND EXC 4
46 2ND EXC 6
47 2ND DSZ
48 GTO 4
49 CLR

Návod: Do paměti č. 1 vložit číslo v rozmezí 1 až 100 a do pamětí s čísly 1 až 6 vložit čísla 1, 2, 3, 4, 5, 6 v libovolném pořadí. Na displej napsat číslo 7 a zmáčknout SBR 4. Začne blikat 0 → zmáčknout CLR a poté RST. Vložit tip na tajné číslo. Kalkulátor vrátí dvoumístné číslo, přičemž první cifra zleva je počet správně umístěných číslic v našem tipu a druhá cifra je počet uhádnutých číslic. Můžeme vložit další tip, a opakovat to tak dlouho, dokud se nedobereme správného výsledku.


Na závěr by se mohlo třeba hodit něco málo zajímavých tipů.;)

Košík 0 Výrobek Výrobky (prázdný)    

Žádné výrobky

Závisí na výběru zákazníka Doprava
0,0000 Kč Celkem

Chci objednat zboží v košíku

Výrobek přidán do košíku
Množství
Celkem
V košíku je 0 výrobků. V košíku je 1 výrobek.
Celková cena zboží
Dopravné celkem  Závisí na výběru zákazníka
Celkem
Chci nakoupit další výrobky za jedno poštovné Chci objednat zboží v košíku

Vyhledávání

Odběr novinek

Výrobci