Program Loop

procedure ulang(n : integer);
begin
   if n > 1 then
    ulang(n-1);

    writeln(n)
end;

Luas Segitiga










var

 a:longint;

 t:longint;

 l:real;

Bebek Untuk Teman













var

 a,b,n:word;

 m:word;

A Tambah B

var

 A: byte;

 B: byte;

 C: byte;

begin

Program Pertama Ku!!!

var

 a:string[100];

Transpos Matrik




var

 n , m : byte;

 a:array[1..9,1..9] of byte;

IF THEN ELSE













var

 N: longint;

IF THEN










var

 n:longint;

IF THEN MULTI CONDITION













var

 n : longint;







Case





var

 n : longint;

Jarak Manhattan










var

 x1,x2 : longint;

 y1,y2 : longint;

 jarak : longint;

Floor And Ceiling













var

 floor , ceiling : longint;

 n : real ;

Nilai Kalimat Matematika













var

A, B : integer;

sp, op : char;







For

var




jbil, i, jml, bil : integer;

Break, Continue, Exit













var

 

 n: integer;

 i: integer;

 

POLA II













var

 

n:byte;

j, i ,cnt: byte;

 

POLA I













var

 

n:byte;

j, i : byte;

 

Dua Pangkat










var

 

n : integer;

 

While













var

 

kal: string;

 

While + Counter










var

 

 bil: integer;

 jml: integer;

 

PALINDROM

var

 bil : integer;
 i : byte;
 st, balikan : string[12];

PALINDROM 2

procedure cekpalindrom(bil:longint);

var

        i:byte;
        st,balikan:string[12];

Membalikkan Kata Input

var

n : integer;
k : string ;

Nomor Urut menggunakan Array

type
 carnivora=(Singa,Puma,Macan,Beruang,Serigala,Musang,Kucing);

var
 bb: carnivora;
 x:array[singa..kucing] of byte;

Menebak Angka

var

tebakan, disimpan : byte;

Cinta

Cinta merupakan Anugrah terindah

Karna tanpa cinta hidup seseorang akan terasa hampa

Cinta juga bisa membuat orang menjadi sisi yang berbeda

Dapat merubah sikap orang yang dulunya masih kekanakan menjadi lebih dewasa

Tanpa cinta hidup akan terasa hampa

Karna cinta merupakan warna di dalam kehidupan

Akan tetapi cinta bukan hal yang indah saja

Cinta juga dapat menghancurkan seseorang

Banyak orang hancur karna cinta

Apa itu PHP dalam Bahasa Pemograman??

PHP adalah teknologi yang diperkenalkan tahun 1994 oleh Rasmus Lerdorf. Beberapa versi awal yang tidak dipublikasikan digunakan pada situs pribadinya untuk mencatat siapa saja yang mengakses daftar riwayat hidup onlinennya. Versi pertama digunakan oleh pihak lain pada awal tahun 1995 dan dikenal sebagai Personal Home Page Tools. Terkandung didalamnya sebuah parser engine (mesin pengurai) yang sangat disederhanakan, yang hanya mampu mengolah macro 

Nevelostos

Futsal ,, (?)

saya awal ny bermain futsal hanya iseng" saja , ketika suatu masalah yang mengakibatkan saya di skor dalam di SMA saya , semenjak itu lah saya menyukai yang nama ny FUTSAL ...

Akhir ny saya menjadikan Futsal ini sebagai HOBY baru saya :) ...

Mungkin dalam permainan saya sebagai kipper cukup menarik bagi teman" saya , jadi saya di ajak gabung kedalam Tim mereka , awal ny mereka jga baru membuat tim dan belum menentukan nama Tim futsal saya tersebut , dengan hasil kesepakatan nama tim pun di bentuk yaitu : NEVELOSTOS , Neve = Tidak Pernah, Lostos = Kalah , jadi Nevelostos yang berarti Tidak Pernah Kalah dan ide nama tersebut berasal dari Futra Ardiansyah dan Deniza Muliana.

Sejarah Futsal

Futsal adalah permainan bola yang dimainkan oleh dua tim, yang masing-masing beranggotakan lima orang. Tujuannya adalah memasukkan bola ke gawang lawan, dengan memanipulasi bola dengan kaki. Selain lima pemain utama, setiap regu juga diizinkan memiliki pemain cadangan. Tidak seperti permainan sepak bola dalam ruangan lainnya, lapangan futsal dibatasi garis, bukan net atau papan.

Futsal turut juga dikenali dengan berbagai nama lain. Istilah "futsal" adalah istilah internasionalnya, berasal dari kata Spanyol atau Portugis, futboldan sala.

Kelebihan Dan Kekurangan BlackBerry

Kelebihan Blackberry

Features

System full backup/recover sebagian maupun sepenuhnya mempermudah user dalam membackup data2 penting

Ketika mengganti unit blackberry baru, anda cukup menggunakan fungsi change device dan data-data penting beserta setting dan 3rd party software (jika compatible) tercopy dengan mudah ke device blackberry baru.

Fungsi Autotext, anda tinggal mendefine keyword lalu mengasosiasikan dengan isi pengganti yang biasanya berisi text/character yang panjang, dan digunakan dengan mengetikan keyword, maka isi pengganti akan menggantikan keyword tersebut.

semisal, anda mendefine autotext home, ketika anda ketik, digantikan dengan alamat lengkap, rt-rw,phone,kodepost dlsb yang anda inginkan.

fungsi search sangat powerfull untuk menemukan di field manapun dari nama, subject bahkan content, sehingga membantu kita menemukan hal yang kita cari.

profile pada blackberry sangat flexible, untuk setiap account email, sms,mms,phone,facebook dlsb dapat diatur ringtone/vibrate dan led signnya

feature speed dial pada blackberry qwerty sebanyak pilihan a-z,dikurangi default key. Membantu sekali dalam melakukan telepon cepat