Rocket
by Alkesh Gajjar: L6 Age 17
Introduction
This program shows how vertical acceleration can be achieved simply but effectively using a console application. Who can resist from experimenting with it?
The program is now also available in Python, which you can run online.
The Program
program Rocket; {$APPTYPE CONSOLE} { Copyright (c) 2010 Alkesh Gajjar Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License, as described at http://www.apache.org/licenses/ and http://www.pp4s.co.uk/licenses/ } uses SysUtils; var i, SleepTime: integer; begin Writeln (' /*\ '); Writeln (' /***\ '); Writeln (' /*****\ '); Writeln (' |*******| '); Writeln (' |*******| '); Writeln (' |*******| '); Writeln (' |*******| '); Writeln (' |*******| '); Writeln (' |*******| '); Writeln (' |*******| '); Writeln (' |*******| '); Writeln (' |*******| '); Writeln (' / \ '); Writeln (' / \ '); Writeln (' /_____\ '); Writeln (' *** '); Writeln (' (*****) '); Writeln (' {*******} '); Writeln; for i:= 1 to 100 do Begin SleepTime:= Round(1000/i); Sleep(SleepTime); Writeln; End; Readln end.
Remarks
Can you think of a program like this that you could write?