DataMuseum.dk

top - download

    Length: 1920 (0x780)
    Types: TextFile
    Names: »CPRDATO2.PAS«

└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
    └─⟦this⟧ »CPRDATO2.PAS« 

TextFile

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»