|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300) Types: TextFile Names: »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»