Wolfram Demonstrations Project – High School Computer Science

http://demonstrations.wolfram.com/education.html?edutag=High+School+Computer+Science&limit=20

You can view these interactive demonstrations using the free Mathematica Player.

Here is a good one that shows how computers can model physical systems:

http://demonstrations.wolfram.com/PercolationOnASquareGrid/