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