DataMuseum.dk

top - metrics - download

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

└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─⟦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»