In[]:=
cmin=0;​​cmax=20;​​schritt=2;​​F[c_]:=1.8*c+32;​​liste=Table[{c,F[c]},{c,cmin,cmax,schritt}];​​liste2=Prepend[liste,{"Temperatur in °Celsius","Temperatur in °Fahrenheit"}];​​Grid[liste2,Dividers{{False,True},{False,True}}]​​​​​​​​​​​​
Out[]=
Temperatur in °Celsius
Temperatur in °Fahrenheit
0
32.
2
35.6
4
39.2
6
42.8
8
46.4
10
50.
12
53.6
14
57.2
16
60.8
18
64.4
20
68.
In[]:=
​