|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC700 "Piccolo" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC700 "Piccolo" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 640 (0x280)
Types: TextFile
Names: »UD6.PAS«
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
└─⟦this⟧ »UD6.PAS«
PROGRAM ud6;
(* Programmet viser indlæsning via tastaturet *)
(* og udlæsning på printeren *)
VAR
antal: INTEGER;
enhedspris: REAL;
varenavn: STRING(.25.);
BEGIN
WRITE(CHR(12),'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»