rizky achmad kurnia

halo kawan kawan sebangsa dan setanah air, tadi gw lagi belajar while...do... di freepascal, dan abis itu gw kepikiran buat bikin animasi sederhana dengan freepascal. animasi ini dibuat dengan  metode while...do...
jadi harap dimaklumi apabila animasinya sangat sederhana, karena gw sendiri masih newbie hehe...

oke deh, langsung aja ke source codenya

uses wincrt;
var x :integer;
begin
        x := 1;
        while x = 1 do
        begin
                writeln (' l                   o                            ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                   o                            ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('  l   _\|/_                                       ');
                writeln (' l     /|\                                        ');
                writeln ('  l     o                                         ');
                writeln (' l                                                ');
                writeln ('  l     o                                         ');
                writeln (' l                                                ');
                writeln ('  l                                               ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                    o                            ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l               o o o                             ');
                writeln (' l               \ /                              ');
                writeln ('l                 |                               ');
                writeln (' l                                      \O/       ');
                writeln ('l                                        T        ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                 Space War Rizky ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                                                ');
                writeln ('l                                                 ');
                writeln (' l                 __\|/__                        ');
                writeln ('l                     o                           ');

                delay (50);
        end;
end.

nih hasilnya:































silahkan mencoba, dan mohon dikoreksi apabila ada kesalahan
posting selanjutnya ada lah membuat animasi pascal dengan GOTOXY, tapi kalo gw udah pelajarin ya hehe ^^