|
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: 1920 (0x780)
Types: TextFile
Names: »CPRDATO2.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »CPRDATO2.PAS«
FOR j := 1 TO 6 DO
IF (str(.j.) < '0') OR ('9' < str(.j.))
THEN ok := FALSE;
UNTIL ok;
FOR j := 1 TO 6 DO
cif(.j.) := ORD(str(.j.)) - ORD('0');
datosum := cif(.1.) * 4 + cif(.2.) * 3 + cif(.3.) * 2
+ cif(.4.) * 7 + cif(.5.) * 6 + cif(.6.) * 5;
WRITELN;
FOR g := 0 TO 9 DO
BEGIN
gsum := datosum + g * 4;
FOR h := 0 TO 9 DO
BEGIN
hsum := gsum + h * 3;
FOR i := 0 TO 9 DO
BEGIN
isum := hsum + i * 2;
FOR check := 0 TO 9 DO
IF (isum + check) MOD 11 = 0
THEN WRITE(str, '-', g, h, i, check, ' ');
END;
END;
END;
WRITELN;
END.
«eof»