DataMuseum.dk

top - download

    Length: 1792 (0x700)
    Types: TextFile
    Names: »INTERHYP.PAS«

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »INTERHYP.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »INTERHYP.PAS« 
└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
    └─ ⟦this⟧ »INTERHYP.PAS« 
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
    └─ ⟦this⟧ »INTERHYP.PAS« 

TextFile

PROGRAM interhyp;
  
  CONST
    maxantal = 200;
  
  TYPE
    tabeltype = ARRAY(.1 .. maxantal.) OF INTEGER;
  
  VAR
    tabel : tabeltype;
    min, max, intervalbredde : INTEGER;
  
  PROCEDURE findtal(VAR tabel : tabeltype);
  
    VAR
      i, x, y, z : INTEGER;
    
    BEGIN
      FOR i := 1 TO maxantal DO
        BEGIN
          x := RANDOM(47) + 30;
          y := RANDOM(32) + 20;  (* Ret tilfældigt valgt! *)
          z := RANDOM(11) + 40;
          tabel(.i.) := x + y + z;
          WRITE(tabel(.i.) : 4);
        END;
      WRITELN;  
    END;
    
  PROCEDURE minmax(VAR min, max : INTEGER; VAR tabel : tabeltype);
  
    VAR
      i : INTEGER;
    
    BEGIN
      min := tabel(.1.);
      max := tabel(.1.);
      FOR i := 1 TO maxantal DO
        BEGIN
          IF tabel(.i.) < min
            THEN min := tabel(.i.);
          IF tabel(.i.) > max 
            THEN max := tabel(.i.);
        END;
    END;
  
  PROCEDURE ud(min, max, bredde : INTEGER; VAR tabel : tabeltype);
  
    VAR
      hyp : tabeltype;
      i, nr : INTEGER;
    
    BEGIN
      FOR i := 1 TO maxantal DO
        hyp(.i.) := 0;
      FOR i := 1 TO maxantal DO
        BEGIN
          nr := (tabel(.i.) - min) DIV bredde + 1;
          hyp(.nr.) := hyp(.nr.) + 1;
        END;
      FOR i := 1 TO (max - min) DIV bredde + 1 DO
        WRITELN('(', min + bredde * (i - 1) : 4, ',',
                min + bredde * i - 1 : 4, ') : ', hyp(.i.) : 4);
    END;
  
  BEGIN
    (* Vi lader datamaten finde nogle tal til os *)
    findtal(tabel);
    minmax(min, max, tabel);
    WRITE('Tast intervalbredden: '); READLN(intervalbredde);
    ud(min, max, intervalbredde, tabel);
  END.
«eof»