Animasi Teks Sederhana Menggunakan For ... To ... Do ... | Turbo Pascal

Buatlah Algoritma, Flowchart dan Bahasa Pemrograman Turbo Pascal untuk menampilkan huruf A bergerak dari kiri ke kanan sebanyak 25 langkah. .

Menggunakan Struktur Pengulangan For ... to ... do .... positif dan goto XY.


Penyelesaian :

Bahasa Pemrogramannya  | Turbo Pascal 

program Animasi_teks;
uses crt;
Var
   C,F:integer;
begin
     Clrscr;
     F:=0;
     for C:=1 to 25 do
     begin
          writeln('Teks Berjalan oleh Efri Harefa ');
          writeln('============================== ');
          F:=F+1;
          gotoXY(C,3); Writeln(F:2,'). A ');
          delay(1000); clrscr;
     End;
     writeln('Teks berjalan telah berakhir');
     Readln;
end.


selengkapnya download disini.