DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦d02c615f9⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »TREGRUP.PAS«

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »TREGRUP.PAS« 
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─ ⟦this⟧ »TREGRUP.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »TREGRUP.PAS«

TextFile

PROGRAM tregrup;

  TYPE
    str6 = STRING(.6.);
  
  VAR
    streng1, streng2 : str6;
    i, laengde, n, nkopi : INTEGER;
    fortegn : BOOLEAN;
    
  BEGIN
    WRITE(CLRHOM);
    REPEAT
      WRITE('Indtast et heltal (0 stopper): '); READLN(n);
      nkopi := n;
      fortegn := n < 0;
      n := abs(n);
      STR(n, streng1);
      laengde := LEN(streng1);
      streng2 := '';
      FOR i := 1 TO laengde DO
        BEGIN
          streng2 := streng1(.laengde + 1 - i.) + streng2;
          IF (i = 3) AND (laengde > 3)
            THEN streng2 := ' ' + streng2;
        END;
      WRITE(nkopi, ' kan skrives således: ');
      IF fortegn
        THEN WRITE('-');
      WRITELN(streng2);
      WRITELN;
    UNTIL nkopi = 0;
  END.
«eof»