DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »FLADE.PAS«

└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
    └─⟦this⟧ »FLADE.PAS« 

TextFile

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»