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