In[]:=
daten={{0,1.6},{27,2},{50,2.53},{60,3.03},{70,3.69},{80,4.45},{90,5.32},{100,6.13},{110,6.92},{115,7.35},{116,7.44}}​​tabelle2=Grid[{{"Jahre nach 1900","Weltbevölkerung in Mrd."},{0,1.6},{27,2},{50,2.53},{60,3.03},{70,3.69},{80,4.45},{90,5.32},{100,6.13},{110,6.92},{115,7.35},{116,7.44}},AlignmentLeft,Spacings{3,1},Dividers{{False,True},{False,True}}]​​punkte=ListPlot[daten]​​kurve=ListPlot[daten,JoinedTrue]​​TableForm[daten];​​​​​​
Out[]=
{{0,1.6},{27,2},{50,2.53},{60,3.03},{70,3.69},{80,4.45},{90,5.32},{100,6.13},{110,6.92},{115,7.35},{116,7.44}}
Out[]=
Jahre nach 1900
Weltbevölkerung in Mrd.
0
1.6
27
2
50
2.53
60
3.03
70
3.69
80
4.45
90
5.32
100
6.13
110
6.92
115
7.35
116
7.44
Out[]=
Out[]=