Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · ABC80 · Thread

Snygg utskrift av stora tal?

6 posts in thread

Anders Johnson <4001> · Text 4097 · w8 · inlagg

1988-02-15 14:21

Ärende: Snygg utskrift av stora tal?

När ABC80 skriver ut tal större än 99999 och mindre än -99999, blir utskriften på potensform. Har någon ett förslag till basicsnutt, som kan " ta hand om saken ", så att man kan få snygga tabellutskrifter även utanför nämnda intervall?
- Kristoffer Eriksson <5357> · Text 4108 · w8 · kommentar
  
  1988-02-20 23:27
  
  Ärende: Snygg utskrift av stora tal?
  
  PRINT ADD¤(NUM¤(X),"0",D) bör väl skriva ut talet X i "vanlig" form oavsett storlek, med D decimaler.
  - Jörgen Westman <5074> · Text 4111 · w8 · kommentar
    
    1988-02-21 10:20
    
    Ärende: Snygg utskrift av stora tal?
    
    Hur gör du när strängen får följande utseende 1.12345E+56 m.v.h J.W
  - Anders Franzén <5258> · Text 4113 · w8 · kommentar
    
    1988-02-21 13:52
    
    Ärende: Snygg utskrift av stora tal?
    
    ASCII-aritmetiken (t ex ADD¤ som du nämner) klarar endast av tecknen för plus och minus samt decimalpunkt förutom siffrorna 0-9. Exponenttecken kan man således ej använda. Notera att funktionen NUM¤ enbart omvandlar talet till en sträng med samma utseende som om man skrivit ut talet med PRINT. Så funkar NUM¤ på ABC80 i alla fall, kanske är det annorlunda på ABC80x?
    - Kristoffer Eriksson <5357> · Text 4115 · w8 · kommentar
      
      1988-02-22 22:23
      
      Ärende: Snygg utskrift av stora tal?
      
      Jaha, då var det ju inte mycket bevänt med ADD¤-metoden. Då får man antingen se till att man fått fram talet ändå från början med strängaritmetik och inte bara använder den på slutet, eller göra just som i inlägg 4110. OBS att rutinen i 4110 inte tar hänsyn till negativa exponenter, det kanske behöver läggas till. I ABC800 begriper strängaritmetiken även exponenter.
- Jörgen Westman <5074> · Text 4110 · w8 · kommentar
  
  1988-02-21 10:17
  
  Ärende: Snygg utskrift av stora tal?
  
  Här kommer ett litet exempel för positiva tal 50 if a<10Ü5 then 120 60 e%=int(log10(a)) 70 a¤=num¤(a/10Üe%) : d%=instr(1%,a¤,'.') : if d%=0% then 120 80 a¤=left¤(a¤,d%-1%)+right¤(a¤,d%+1%) 90 if len(a¤)<=e%+1% then a¤=a¤+'0' : goto 90 100 ;a¤ 110 goto 130 120 ;a 130 rem snutten gör om mantissan till sträng, och tar bort decimalpunkten och fyller ut med nollor. m.v.h J.W