|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »CHECK2.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─⟦this⟧ »CHECK2.PAS«
└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
└─⟦this⟧ »CHECK2.PAS«
PROGRAM check2;
FUNCTION laestal(min, max : INTEGER) : INTEGER;
TYPE
str5 = STRING(.5.);
VAR
streng : str5;
ok : BOOLEAN;
heltal, test, i : INTEGER;
BEGIN (* laestal *)
REPEAT
BUFLEN := 5;
READ(streng);
VAL(streng, heltal, test);
ok := (test = 0) AND (min <= heltal) AND (heltal <= max);
IF NOT ok (* slet svaret *)
THEN
FOR i := 1 TO LEN(streng) DO
WRITE(CHR(8), ' ', CHR(8));
UNTIL ok;
WRITELN;
laestal := heltal;
END; (* laestal *)
BEGIN (* check2 *)
WRITE('Tast et tal fra 10 til 500: ');
WRITELN(laestal(10, 500));
END. (* check2 *)
«eof»