|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 896 (0x380)
Types: TextFile
Names: »TREGRUP.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─⟦this⟧ »TREGRUP.PAS«
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»