In[]:=
Fmin=0;Fmax=20;schritt=2;c[F_]:=(10*F-320)/18;liste=Table[{F,c[F]},{F,Fmin,Fmax,schritt}];liste2=Table[{F,N[c[F],4]},{F,Fmin,Fmax,schritt}];liste3=Prepend[liste,{"Temperatur in °Fahrenheit","Temperatur in °Celsius"}];liste4=Prepend[liste2,{"Temperatur in °Fahrenheit","Temperatur in °Celsius"}];Grid[liste3,Dividers{{False,True},{False,True}}]Grid[liste4,Dividers{{False,True},{False,True}}]
Out[]=
Temperatur in °Fahrenheit | Temperatur in °Celsius |
0 | - 160 9 |
2 | - 50 3 |
4 | - 140 9 |
6 | - 130 9 |
8 | - 40 3 |
10 | - 110 9 |
12 | - 100 9 |
14 | -10 |
16 | - 80 9 |
18 | - 70 9 |
20 | - 20 3 |
Out[]=
Temperatur in °Fahrenheit | Temperatur in °Celsius |
0 | -17.78 |
2 | -16.67 |
4 | -15.56 |
6 | -14.44 |
8 | -13.33 |
10 | -12.22 |
12 | -11.11 |
14 | -10.00 |
16 | -8.889 |
18 | -7.778 |
20 | -6.667 |