\(為替相場とマーケッ  ト\)
\(1\ \ 円とドルとユーロ\)
\(2\ \ 為替相場の推移\)
\(3\ \ 平均株価と出来高のグラフ\)

\(1\ \ 円とドルとユーロ\)
   Doller = 111.31 Yen
   Euro = 1.0492 Doller

Doller = 111.31;
Euro = 1.0492;
x = Input["Doller"];
Print[x, "\:30c9\:30eb\:306f", 
      x*Doller, "\:5186\:3067\:3059"]

\(2\ \ 為替相場の推移\ \ \ {日付，円ドル相場，ＴＯＰＩＸ}\)

newspaper = {{"8/27", 120.16, 1155.17}, {"8/28", 120.42, 
            1150.25}, {"8/29", 119.97, 1126.86}, {"8/30", 119.72, 
            1114.58}, {"8/31", 118.90, 
            1103.67}};
d1 = Map[#[[1]] &, newspaper]
d2 = Map[#[[2]] &, newspaper]
d3 = Map[#[[3]] &, newspaper]
g2 = 
        ListPlot[d2, PlotJoined -> True, 
          PlotLabel -> "\:5186\:3068\:30c9\:30eb", 
          DisplayFunction -> Identity];
g3 = 
        ListPlot[d3, PlotJoined -> True, PlotLabel -> "TOPIX", 
          DisplayFunction -> Identity];
Show[GraphicsArray[{g2, g3}]]

\(3\ \ 平均株価と出来高のグラフ\)

\(\(dat3 = {{"7/29", 17870, 5.11}, {"7/30", 17862, 
            5.12}, 
		\ \ \ \ \ \ \ \ \ \ \ {"8/02", \ 17826, 
            4.37}, {"8/03", 17970, 
            4.91}, 
		\ \ \ \ \ \ \ \ \ \ \ {"8/04", 17685, 
            4.72}, {"8/05", 17358, 
            4.94}, 
		\ \ \ \ \ \ \ \ \ \ \ {"8/06", 17084, 
            4.63}};\)\)
dat31 = Table[dat3[[k]][[1]], {k, 1, 7}];
dat32 = Table[dat3[[k]][[2]], {k, 1, 7}];
dat33 = Table[dat3[[k]][[3]], {k, 1, 7}];

<< Graphics`Master`
<< Statistics`Master`

b1 = BarChart[dat32, BarLabels -> dat31]

l1 = ListPlot[dat33, PlotJoined -> True]

DisplayTogetherArray[{BarChart[dat32, BarLabels -> dat31], 
        l1 = ListPlot[dat33, PlotJoined -> True]}]