DataMuseum.dk

top - download

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

└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─ ⟦this⟧ »VAREPOST.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »VAREPOST.PAS« 

TextFile

PROGRAM varepost;

  CONST
    max = 100;
  
  TYPE
    str30 = STRING(.30.);
    str5 = STRING(.5.);
    vare = RECORD
             nummer : INTEGER;
             navn : str30;
             pris : REAL;
             antal : INTEGER;
           END;
    varekartotek = ARRAY(.1 .. max.) OF vare;
  
  VAR
    artikel : varekartotek;
    antal, i, test1 : INTEGER;
    streng : str5;
  
  BEGIN
    WRITE(CLRHOM);
    WRITELN('Indtast oplysninger til varekartoteket:');
    i := 0;
    REPEAT
      i := i + 1;
      WRITELN;
      WITH artikel(.i.) DO
        BEGIN
          REPEAT
            WRITE('Tast varenummer (^ stopper): ');
            BUFLEN := 5;
            READLN(streng);  
            VAL(streng, nummer, test1);
          UNTIL (test1 = 0) OR (streng = '^');
          IF streng <> '^' 
            THEN
              BEGIN
                WRITE('Tast varenavn:               ');
                READLN(navn);
                REPEAT
                  WRITE('Tast enhedspris:             ');
                  READLN(streng);
                  VAL(streng, pris, test1);
                UNTIL (test1 = 0) AND (pris > 0);
                REPEAT
                  WRITE('Tast varebeholdning:         ');
                  BUFLEN := 5;
                  READLN(streng);
                  VAL(streng, antal, test1);
                UNTIL test1 = 0;
              END;
        END;
    UNTIL (streng = '^') OR (i = max);
    (* Nu udskrives kartoteket *)
    IF streng = '^'
      THEN antal := i - 1
      ELSE antal := max;
    FOR i := 1 TO antal DO
      WITH artikel(.i.) DO
        BEGIN
          WRITELN;
          WRITELN('Artikelnummer: ', nummer);
          WRITELN('Artikelnavn:   ', navn);
          WRITELN('Artikelpris:   ', pris : 7 : 2);
          WRITELN('Artikelantal:  ', antal);
        END;
  END.
«eof»