Jumat, 12 Oktober 2012

Pembuatan Form

Ordered Form

First Name :
Last Name :

Enter your email :
Re-enter your email:

I am :
Male
Female

Ordered :
DVD-CD (Album) version A
DVD-CD (Album) version B
DVD-CD (Album) version C
DVD (Holiday in Saipan)
DVD (Mirotic Concert)

Where are you from?


Your Account Number:

Your comment:


Kamis, 05 Januari 2012

Program Suhu

Program suhu;
uses wincrt;
var
celcius,kelvin:integer;
fahrenheit:real;
begin

Program Rata - Rata

program rata;
uses wincrt;
var i, n: integer;
    x, sum, mean: real;
begin
     writeln ('banyaknya data= ');
     readln (n);
     for i:=1 to n do

Program Menghitung Umur

program menghitung_umur;
uses wincrt;
var nama: string;
umur,TL: integer;
begin

Program Bintang

program persegi;
uses winCrt;
procedure gb (brs,kol:integer);
var i,j:integer;
begin
for i:=1 to brs do
    begin
    for j:=1 to kol do

Program Segitiga Pascal (II)

program segitiga_pascal;
uses wincrt;
var input,i,j:word; isi:array[0..20,0..21] of word;
begin
writeln('Masukkan berapa tingkat segitiga pascal !');
readln(input);

Program Segitiga Pascal (I)

program segitiga_pascal;
uses wincrt;
function faktorial(n:byte):real;
var i,z:word;
begin
if n = 0 then faktorial:=1 else