DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦46b3062cb⟧ TextFile

    Length: 1152 (0x480)
    Types: TextFile
    Names: »PRIMTAL.PAS«

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »PRIMTAL.PAS« 
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─ ⟦this⟧ »PRIMTAL.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »PRIMTAL.PAS« 
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
    └─ ⟦this⟧ »PRIMTAL.PAS«

TextFile

PROGRAM primtal;

  (* Programmet undersøger, om et opgivet tal er et primtal *)
  
  VAR
    tal , graense, divisor : INTEGER;
    primtal : BOOLEAN;
  
  BEGIN
    WRITE(CLRHOM);
    WRITE('Hvilket heltal skal undersøges: '); READLN(tal);
    primtal := FALSE;
    IF tal > 1
      THEN
        BEGIN
          primtal := TRUE;
          graense := TRUNC(SQRT(tal)+1);
          IF (tal MOD 2 = 0) AND (tal > 2)
            THEN
              BEGIN
                primtal := FALSE;
                WRITELN(tal, ' er et lige tal');
              END;
          divisor := 1;
          IF (tal <> 3) AND (tal > 2)
            THEN
              WHILE primtal AND (divisor <= graense) DO
                BEGIN
                  divisor := divisor +1;
                  IF (tal MOD divisor) = 0
                    THEN primtal := FALSE;
                  IF NOT primtal
                    THEN WRITELN(tal, ' har ', divisor, ' som divisor');
                END;
        END;
    IF primtal
      THEN WRITELN(tal, ' er et primtal')
      ELSE WRITELN(tal, ' er ikke et primtal');
  END.
«eof»