DataMuseum.dk

top - metrics - download

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

└─⟦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« 

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»