Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Kelvin - temperature.pas

temperature.pas

Caricato da: Poggi Marco
Scarica il programma completo

  1. unit Temperature;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils;
  9.  
  10. type gradi=class
  11.   private
  12.     k:double;
  13.     function cifra(x:double; cifre,decimali:word):string;
  14.   public
  15.     constructor crea;
  16.     function aCelsius(t:double):string;
  17.     function aKelvin(t:double):string;
  18. end;
  19.  
  20.  
  21. implementation
  22.  
  23. constructor gradi.crea;
  24. begin
  25.   k:=273.15;
  26. end;
  27.  
  28. function gradi.aCelsius(t:double):string;
  29. var risultato:double;
  30. begin
  31.   risultato:=t-k;
  32.   if risultato>(0.0-k) then
  33.    aCelsius:=cifra(risultato, 4, 2)+' °C'
  34.   else
  35.    aCelsius:='Temperatura inesistente';
  36. end;
  37.  
  38. function gradi.aKelvin(t:double):string;
  39. var risultato:double;
  40. begin
  41.   risultato:=t+k;
  42.   if risultato>=0.0 then
  43.    aKelvin:=cifra(k+t, 4, 2)+' K'
  44.   else
  45.    aKelvin:='Temperatura inesistente';
  46. end;
  47.  
  48. function gradi.cifra(x:double; cifre,decimali:word):string;
  49. var risultato:string;
  50. begin
  51.   str(x:cifre:decimali, risultato);
  52.   cifra:=risultato;
  53. end;
  54.  
  55. end.