|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »FLADE.PAS«
└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
└─ ⟦this⟧ »FLADE.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─ ⟦this⟧ »FLADE.PAS«
└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
└─ ⟦this⟧ »FLADE.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─ ⟦this⟧ »FLADE.PAS«
PROGRAM flade;
VAR
bredde, laengde, hoejde, overflade : REAL;
BEGIN
WRITE(CLRHOM);
WRITELN('Programmet finder overfladen af en kasse, når man indtaster');
WRITELN('kassens højde, længde og bredde.');
WRITELN;
WRITE('Indtast kassens bredde: '); READLN(bredde);
WRITE('Indtast kassens længde: '); READLN(laengde);
WRITE('Indtast kassens højde: '); READLN(hoejde);
overflade := (bredde * laengde + bredde * hoejde + laengde * hoejde) * 2;
WRITELN;
WRITELN('Bredden: ', bredde : 8 : 2, ' cm');
WRITELN('Længden: ', laengde : 8 : 2, ' cm');
WRITELN('Højden: ', hoejde : 8 : 2, ' cm');
WRITELN('Overfladen ', overflade : 8 : 2, ' cm2');
WRITELN;
END.
«eof»