DataMuseum.dk

top - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »SOEG.PAS«

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »SOEG.PAS« 

TextFile

      PROGRAM soeg;
        
        (* SEARCH                             *)
        (* Programmet undersøger, om et givet *)
        (* tal findes i en vektor af tal      *)
        
        CONST
          antal = 200;
        
        TYPE
          vektor = ARRAY(.1 .. antal.) OF INTEGER;
        
        VAR
          v : vektor;
          i, tal, nr : INTEGER;
          fundet : BOOLEAN;
        
        BEGIN
          RANDOMIZE;
          WRITE(CLRHOM ,'Vi fabrikerer en vektor:');
          WRITELN;
          FOR i := 1 TO antal DO
            v(.i.) := RANDOM(1000);
          FOR i := 1 TO antal DO
            WRITE(v(.i.) : 4);
          WRITELN;
          WRITE('Tast det givne tal: '); READLN(tal);
          WRITELN;
          fundet := FALSE;
          i := 0;
          REPEAT
            i := i + 1;
            IF tal = v(.i.)
              THEN
                BEGIN
                  nr := i;
                  fundet := TRUE;
                END;
          UNTIL (i = antal) OR fundet;
          IF fundet
            THEN WRITELN(tal, ' står som nr. ', nr, ' i vektoren')
            ELSE WRITELN(tal, ' findes ikke blandt tallene i vektoren');
        END.
 «eof»