Abakusz Casio grafikus számológépre

2009. július. 13. | Címkék:

Íme egy “abakusz” program Casio programozható grafikus számológépekre (például Casio CFX-9850GB Plus).

Prog "ABACUS"
ClrText;
Lbl A;
7->Dim List 1;
Fill(0,List 1;
For 1->A To 7;
Locate 1,A,"-OOOOOOOOO-----";
Next;
Lbl 0;
0->A;
Do;
Getkey->A;
LpWhile A=0;
A!=71=>Goto 2;
Goto A;
Lbl 2;
Int(A/10->P;
1->Q;
P=7=>-1->Q;
10Frac (A/10->R;
10-R->R;
R>7 Or R!=0=>7->R;
List 1[R]+Q->List 1[R;
List 1[R]=10=>0->List 1[R;
List 1[R]=-1=>9->List 1[R;
R->B;
List 1[B->C;
C=0=>Locate 2,B,"OOOOOOOOO----";
C=1=>Locate 2,B,"OOOOOOOO----O";
C=2=>Locate 2,B,"OOOOOOO----OO";
C=3=>Locate 2,B,"OOOOOO----OOO";
C=4=>Locate 2,B,"OOOOO----OOOO";
C=5=>Locate 2,B,"OOOO----OOOOO";
C=6=>Locate 2,B,"OOO----OOOOOO";
C=7=>Locate 2,B,"OO---OOOOOOOO";
C=8=>Locate 2,B,"O----OOOOOOOO";
C=9=>Locate 2,B,"----OOOOOOOOO";
Goto 0;
Szólj hozzá! | Visszakövetés
  1. Impaizzomia
    2010. március. 4. ekkor: 01:07
    Válasz | Idéz | #1
  2. pneutsurgep
    2010. március. 5. ekkor: 10:44
    Válasz | Idéz | #2

    The response to national disaster is awesome but it’s a real shame that so many people take advantage of the sad situations.

    I mean everytime there is an earthquake, a flood, an oil spill – there’s always a group of heartless people who rip off tax payers.

    This is in response to reading that 4 of Oprah Winfreys “angels” got busted ripping off the system. Shame on them!
    http://www.cbsnews.com/blogs/2009/08/19/crimesider/entry5251471.shtml

  3. Fusedipsadusy
    2010. március. 30. ekkor: 06:17
    Válasz | Idéz | #3

    Greetings I’m Holly and although this is my first post I’ve been reading for a while and it’s about time that I said Howdy and introduced myself. I’m 23 and run a fitness equipment business with my uncle and live in sunny San Diego, California with my 3 fantastic children. I love cycling and tennis but hate seafood…and I guess that’s all you need to know http://www.mysmiley.net/imgs/smile/happy/happy0071.gif

  4. Acernkeence
    2010. május. 5. ekkor: 12:36
    Válasz | Idéz | #4
  5. tammytwo
    2010. június. 17. ekkor: 21:57
    Válasz | Idéz | #5

    When ever I try viewing this site it does not seem to be viewable with google chrome.

    Cheers!