PROGRAM ANIMASI HURUF BERJALAN

uses crt;

var
kata: string;
a,i: integer;
x: char;
lagi,y: char;
begin
clrscr;
  repeat
  begin
  clrscr;
  write('masukan kata: ');readln(kata);
  a:=length(kata);

PROGRAM PROSEDUR MENGHITUNG LUAS

uses crt;
var pil : string;

PROCEDURE LUAS_TABUNG ;
var luas : real ;
    r, t : integer;
begin
write ('jari-jari : '); readln (r);
write ('tinggi : '); readln (t);
luas := 3.14*r*r*t;
write ('luas tabung : ',luas:0:0);
end;

PROCEDURE LUAS_SEGIEMPAT ;
var luas4, s : integer;

PROGRAM MEMBALIK HURUF DALAM SEBUAH KATA

uses crt;
var x, l : string;
a, b, c , d, e, i , j, k : integer;
begin
clrscr;
repeat
begin
clrscr;

write ('masukkan kata atau kalimat : ');readln (x);
a :=length (x);
b := 0;
for i := 1 to a do
begin
if x[i]=' ' then

PROGRAM ANIMASI HURUF JATUH

uses crt ;
var kalimat,kopian,x : string ;
     i,j : integer ;
begin
begin
clrscr;
writeln ( 'masukkan kata atau kalimat' );
readln ( kalimat );
 CLRSCR ;
 WRITELN (kalimat);

for i := 1 to length ( kalimat )do
 begin
  kopian := copy (kalimat,i,1);
  for j  := 2 to 19 do
  begin
   gotoxy ( i,j );
   write ( kopian );
   gotoxy ( i,j-1 ) ;
   write ('  ');
   delay (10000);
  end;
end;

 begin
x:= kalimat + '                                                                    ' ;
clrscr ;
 repeat
 x := copy (x , 2 , length ( x ) - 1 ) + copy ( x,1,1 );
 gotoxy (1,19);
 write (x);
 delay (10000);
 until
keypressed;
 end;
end;
readkey;
end.