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

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?

Programming - a skill for life!

Student programs to inspire you!