In[]:=
celsius=10;F[x_]:=1.8*x+32;wertfahrenheit=F[celsius];wertfahrenheit2=N[wertfahrenheit];Framed[Labeled[wertfahrenheit,"Temperatur in °Fahrenheit",Top]]Framed[Labeled[wertfahrenheit2,"Temperatur in °Fahrenheit",Top]]
Out[]=
Out[]=