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

⟦09cb43a99⟧ TextFile

    Length: 2816 (0xb00)
    Types: TextFile
    Names: »FAKTURA.PAS«

Derivation

└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
    └─⟦this⟧ »FAKTURA.PAS«

TextFile

PROGRAM faktura;

  CONST
    max = 200;
    momspct = 22;
  
  TYPE
    str30 = STRING(.30.);
    tabint = ARRAY(.1 .. max.) OF INTEGER;
    tabreal = ARRAY(.1 .. max.) OF REAL;
    tabstr = ARRAY(.1 .. max.) OF str30;
  
  VAR
    i, antal_varer : INTEGER;
    varenummer, vareantal : tabint;
    varenavn : tabstr;
    varepris : tabreal;
    kundenavn : str30;
    sum, moms : REAL;
  
  PROCEDURE ind(VAR kunde : str30; VAR postantal : INTEGER; 
                VAR nummer : tabint; VAR navn : tabstr; 
                VAR antal : tabint; VAR pris : tabreal);
    VAR
      i, nr : INTEGER;
    
    BEGIN
      WRITE(CLRHOM);
      i := 0;
      WRITE('Kunde: '); READLN(kunde);
      REPEAT
        i := i + 1;
        WRITELN;
        WRITE('Tast varens nummer (0 stopper): '); READLN(nr);
        IF nr <> 0
          THEN
            BEGIN
              nummer(.i.) := nr;
              WRITE('Tast varens navn:   '); READLN(navn(.i.));
              WRITE('Tast antal enhede := 1 TO antal_varer DO
      sum := sum + vareantal(.i.) * varepris(.i.);
    moms := sum * momspct / 100;
    skriv(kundenavn, antal_varer, varenummer, varenavn, vareantal, varepris,
          sum, moms);
  END.
«eof»