SAMPLE PROGRAM PERSEGI

PROGRAM persegi;
USES crt;
VAR
n,i,j:integer;
BEGIN
clrscr;
writeln('MEMBENTUK BANGUN PERSEGI DENGAN LOOP');
writeln('====================================');
write('Masukkan ukuran persegi : ');readln(n);
writeln;
FOR i:=1 TO n DO
    write('* ');
writeln;
FOR j:=1 TO n-2 DO
    BEGIN
    write('* ');
    FOR i:=1 TO n-2 DO
        write('  ');
    write('*');
    writeln;
    END;
FOR i:=1 TO n DO
    write('* ');
readln;
END.

SAMPLE PROGRAM FOR SEGITIGA

PROGRAM bintang;
USES crt;
VAR
   i,j,k,n,m,baris:integer;
BEGIN
clrscr;
write('Masukkan jumlah level : ');readln(n);
writeln;
baris:=n-1;
FOR i:=1 TO n DO
BEGIN
     FOR m:=1 TO 5 DO
         write('  ');
     FOR k:=1 TO baris DO
         write(' ');
     FOR j:=1 TO i DO
          write('# ');
  baris:=baris-1;
  writeln;
END;
readln;
END.

TUGAS UNTUK SISWA YANG MEMILIKI NILAI KOSONG

TUGAS BERIKUT HARUS DIKERJAKAN OLEH SISWA YANG PERNAH TIDAK MASUK PELAJARAN TIK DAN MEMILIKI NILAI KOSONG DI DAFTAR NILAI.

TUGAS PALING LAMBAT DIKUMPULKAN PADA :
HARI JUMAT, 5 OKTOBER 2012 JAM 2 SIANG

KERJAKAN PADA KERTAS A4 DENGAN DI TULIS TANGAN.

Berikut ini hasil running programnya :