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 - metrics - download

⟦18fa0e65a⟧ TextFile

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

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─⟦this⟧ »CELSIUS.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─⟦this⟧ »CELSIUS.PAS« 
└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
    └─⟦this⟧ »CELSIUS.PAS« 
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
    └─⟦this⟧ »CELSIUS.PAS«

TextFile

PROGRAM celsius;

  VAR
    celsius, fahrenheit, reamur : REAL;
  
  BEGIN
    WRITE(CLRHOM);
    WRITELN('Programmet udskriver REAMUR- og FAHRENHEIT-gradtallene,');
    WRITELN('når man indtaster gradtallet for CELSIUS');
    WRITELN;
    WRITE('Indtast CELSIUS: '); READLN(celsius);
    reamur := celsius * 0.8;
    fahrenheit := celsius * 1.8 + 32;
    WRITELN;
    WRITELN('Celsius:    ', celsius : 7 : 2);
    WRITELN('Reamur:     ', reamur : 7 : 2);
    WRITELN('Fahrenheit: ', fahrenheit : 7 : 2);
    WRITELN;
  END.
«eof»