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

⟦d06858c54⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »UD6.PAS«

Derivation

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

TextFile

PROGRAM ud6;

(* Programmet viser indlæsning via tastaturet *)
(* og udlæsning på printeren                  *)

VAR
  antal: INTEGER;
  enhedspris: REAL;
  varenavn: STRING(.25.);
    
BEGIN
  WRITE(CLRHOM, 'Tast varens navn: ');
  READLN(varenavn);
  WRITE('Tast antal enheder: ');
  READLN(antal);
  WRITE('Tast varens enhedspris: '); READLN(enhedspris);
  WRITELN;
  WRITELN(LST, 'Varenavn:',varenavn : 22);
  WRITELN(LST, 'Antal varer:         ', antal : 10);
  WRITELN(LST, 'Varens enhedspris:   ', enhedspris : 10 : 2);
  WRITELN(LST, 'Samlet pris:         ',antal * enhedspris : 10 : 2);
END.
«eof»