contoh Program Mencari Luas Dengan Menggunakan Pascal

USES CRT;
VAR alas,tinggi:integer;
LUAS:REAL;
BEGIN
CLRSCR;
gotoxy(25,3);
WRITE('nilai alas :');
gotoxy(25,4);
WRITE('nilai tinggi:');
gotoxy(25,5);
write('luasnya :');
gotoxy(40,3);
READLN(alas);
gotoxy(40,4);
READLN(tinggi);
LUAS:=alas*tinggi/2;
gotoxy(48,5);
WRITE(LUAS:10:2);
READLN;
END.

MEMBUAT ANIMASI BLAND

1. Buat bojek menggunakan auto shape
2. Buat tulisan Pikmi (perhatikan gambar di bawah ini )


3. Lakukan bland obek terhadap text pikmi sehingga hasilnya seperti berikut
4. Klik Movie
5. klik Create Sequence From Bland

6. Jalankan animasi dengan menekan tombol play