Cara Membuat Akun Freenom Domain Gratis (.ga, .tk, .cf dan .ml) 100% Work !!

          Setelah Lama Ga' ngepost . kali saya akan membagikan tutorial membuat akun freenom dan nanti akan dilanjutkan ke cara menghubungkan blogspot ke domain freenom.

Baiklah, berikut adalah langkah-langkah untuk membuat account freenom dan domain gratis di freenom:

1. Sebelumnya, kalian diwajibkan untuk memiliki email (gmail) jika belum punya, silahkan buat email di gmail.com

2. Langkah awal, silahkan visit ke freenom.com

3. Pada kolom pencarian, isi dengan nama domain yang hendak kalian buat dan kalian inginkan. Disini, freenom menyediakan domain gratis yaitu .ga, .tk, .cf, dan .ml. Silahkan pilih salah satunya untuk mendafar, contoh saya buat tsucommunity.ga. Setelah memasukkan domain, silahkan cek Ketersediaan.

4. Jika domain tersedia, makan akan muncul status domain is available. Selanjutnya klik select domain yang diinginkan kemudian klik Pemeriksaan.

5. Selanjutnya, pilih 12 Bulan gratis domain dan klik Continue.

6. Selanjutnya, masukkan email kalian dan verify. Dan cek email kamu.

7. Cek kotak masuk email, dan cek juga Spam, terkadang email masuk di spam. Kemudian klik link konfirmasi.

8. Setelah akun berhasil dikonfirmasi, tahap selanjutnya adalah mengisi form perndaftaran. Isi form sesuai identitas (menggunakan data palsu juga bisa) data asli lebih baik, jangan suka yang palsu-palsu :-D.

Isi data sesuai dengan identitas seperti nama depan, belakang, company isi dengan terserah saja. Masukkan email dan password kalian untuk login akun freenom nantinya. Zip Code = kode Pos. Jangan Lupa centang I Have and Agree....

9. Tahap selanjut klik Complete Order. Maka akun anda berhasil dibuat.

10. Klik Domain --> My Domain untuk melihat daftar domain kalian.

Dalam hal ini, kalian dapat membuat domain lebih dari satu. Dengan cara mengeklik Domain --> Regster New Domain (Daftar Domain Baru). Domain ini di peruntukkan untuk mendaftar Akun Google Adsense nantinya.

untuk tahap keduANYA KLIK LINK MERAH DIBAWAH INI 

MENUJU Link TemaN

Read More

Algoritma & Pemrograman 1 ( Record Pada Pascal )

RECORD (REKAMAN)

Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya (di banding array). Contoh , sebuah record dengan empat buah field.

Cara pendeklarasian dari record adalah sbb:

• Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai),

• Mendefinisikan variabel untuk dilakukan operasi.

Perbedaan Record dan Array

• Elemen record bersifat heterogen, yaitu campuran beberapa tipe data, sedangkan elemen array bersifat homegen
• Elemen record didefisinisikan dengan simbol/identifer sedangkan elemen array diidentifikasi dengan indeks.

Bentuk umum record

type

nama_record = record

identifier_1 : tipe_data_1;

:

:

identifier_n : tipe_data_n;

end;

var variabel : nama_record;

Contoh.

type

Data_mahasiswa = record

Nama : string;

Usia : integer;

Kota : String;

Kodepos : integer;

end;

Var

x: Data_mahasiswa;

Pengaksesan Elemen Record

      Nama variable disertai nama field.

x.Nama

x.Usia

x.Kota

x.Kodepos

Contoh.

program RECORD_INTRO;

type tanggal = record

bulan, hari, tahun : integer;

end;

var waktu : tanggal;

begin

waktu.hari :=25;

waktu.bulan:=09;

waktu.tahun:= 1983;

writeln('hari ini adalah ',waktu.hari,':',waktu.bulan,':', waktu.tahun)

end.

Pengunaan With … do

Pernyataan with untuk lebih menyederhanakan pengaksesan field-field pada record. Pemrograman dapat mengakses field cukup dengan menyebutkan nama field-nya saja. Misalkan pernyataan :

x.Nama

x.Usia

x.Kota

x.Kodepos

menjadi

with x do

Begin

Nama

Usia

Kota

Kodepos

end

Contoh.

program RECORD_INTRO;

type tanggal = record

bulan, hari, tahun : integer;

end;

var waktu : tanggal;

begin {program utama}

with waktu do {mulai with}

begin

hari :=25;

bulan:=09;

tahun:=1983;

writeln('hari ini adalah ',hari,':',bulan,':', tahun)

end {akhir with}

end.

Array dari Record

Suatu array dapat juga berisi record contoh suatu deklarasi record tanggal.

type tanggal = record

bulan, hari, tahun : integer;

end;

var waktu : tanggal;

kemudian kita membentuk suatu array dari record ini, namakan birthdays.

var birthdays : array[1..10] of tanggal;

pernyataan ini akan membentuk suatu array dengan 10 elemen. Dimana tiap elemen adalah sebuah record tanggal, yaitu, terdiri atas bulan, hari, tahun dengan tipe data Integer.

Contoh Pemberian nilai awal dari masing-masing elemen birthdays:

Birthdays[1].hari :=25;

Birthdays[1].bulan:=09;

Birthdays[1].tahun:=1983;

Record di dalam Record

Record bisa berisi record lain sebagai field. Seperti contoh record tanggal dan jam dikombinasikan menjadi sebuah record saat ini,

type tanggal = record

bulan, hari, tahun : integer;

end;

type waktu =record

jam, menit, detik : integer;

end;

type waktu_ini =record

tanggal_ini : tanggal;

waktu_ini : waktu

end;

Kemudian kita perlu membuat variabel kerja

var saat_ini : waktu_ini;

pemberian nilai akan terjadi seperti di bawah ini:

saat_ini.tanggal.bulan:= 11;

saat_ini.tanggal.hari:= 2;

saat_ini.tanggal.tahun:= 1985;

saat_ini.waktu.jam:= 3;

saat_ini.waktu.menit:= 3;

saat_ini.waktu.detik:= 33;

Sekian informasi singkat tentang record pada pascal 

Semoga Bermanfaat

Read More

Algoritma & Pemrograman ( Array Pada Pascal )

Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu elemen array yang merupakan nilai dan endeks array yang merupakan nilai urut untuk mengakses nilai pada array.

Berikut ini contoh array A dengan 10 buah elemen tiap elemen memiliki nilai antara 10 hingga 100.

A[1] A[2] A[3] A[4] A[5] A[6] A[7] A[8] A[9] A[10]
1 2 3 4 5 6 7 8 9 10
10 20 30 40 50 60 70 80 90 100

Bentuk umum dari array adalah:
NamaArray : aray[IndeksAwal..IndeksAkhir] of tipe_data;

Array Satu Dimensi

Array satu dimensi adalah kumpulan elemen-elemen yang identik, yang tersusun dalam satu baris. Elemen tersebut memiliki tipe data yang sama, tetapi isi dari elemen tersebut bisa berbeda.Bentuk Umum:

Var
nama_variabel : Array[ index ] Of Tipe_Data;

Contoh :

Var

Nilai : Array[1..10] Of Integer;

Pada contoh Array dengan nama Nilai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 10 elemen, nilai dari elemen array tersebut diatas harus bertipe integer. Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi variabel, tetapi dapat juga berupa konstanta (const). 

Contoh Program :

Program;
Uses Crt; 
Const 
Tetap : Array[1..4] of Integer=(7,10,21,20); 
Var 
i : Integer; 
Begin 
For i:= 1 to 4 Do 
Writeln('Nilai Konstan array ke ',i:2,' =',Tetap[i]); 
Readln; 

End.

Array Dua Dimensi

Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.Bentuk umum :

Var <NamaVarArray>:
Array [indeksbaris,indekskolom] of TipeData;

Contoh

Array2D : array[1..3, 1..4] of integer;

Contoh Program
Program_Deklarasi_Array_Dua_Dimensi; 
Uses Crt;
Var Tabel : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin 
ClrScr; 
Tabel[1,1]:=1; 
Tabel[1,2]:=2; 
Tabel[2,1]:=3; 
Tabel[2,2]:=4; 
Tabel[3,1]:=5; 
Tabel[3,2]:=6; 
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]); 
End; 
End; 
Readln; 

End.


Array Tiga Dimensi (Dimensi Banyak)

Array ini jarang digunakan, namun hal ini bukan berarti Pascal tidak menyediakan untuk dipakai bagi yang membutuhkan. Array tiga dimensi adalah kumpulan elemen-elemen yang terdiri lebih dari satu baris, seperti array yang memiliki array didalamnya.

Bentuk Umum:
Var <NamaVarArray>:
Array [Indeks1,Indeks2,..,IndeksN] of TipeData;

Read More

Algoritma & Pemrograman 1 ( Latihan - Latihan Penyeleksian Pada Pascal ) "Part 1"

1. Program untuk menghitung sewa sebuah Angkutan yang harga untuk 1 Km pertama Rp.4500 dan  selanjutnya 2000/Km 

    Kemudian untuk membuat programnya ketikkan scrip di bawah ini di pascal

   program Sewa_Angkutan;

     uses crt;

     const

     pertama = 4500;

     lanjut  = 2000;

     var

     jarak,bayar : longint;

     begin

     clrscr;

     writeln('      PROGRAM SEWA ANGKUTAN      ');

     writeln('---------------------------------');

     writeln;

     write('Jarak Tempuh (Km) = ');readln(jarak);

     if jarak > 1 then

        begin

             bayar:=pertama + (jarak * lanjut);

        end

     else

         bayar := pertama;

     writeln('Bayar = Rp. ',bayar);

     readln;

     end.

  jika sudah di ketik maka Hasilnya seperti di bawah ini :

 Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya 

2. Program untuk menentukan bilangan terbesar dari tiga buah bilangan bulat yang dimasukkan melalui piranti masukan. (Asumsi: ketiga bilangan adalah bilangan yang berbeda)

Langsung saja ketikan scrib di bawah in di pascalnya.

   program Mengetahui_Bilangan_Terbesar;
   uses crt;
   var
      bil1,bil2,bil3:longint;
   begin
      clrscr;
      writeln('   MENGETAHUI BILANGAN TERBESAR   ');
      writeln('----------------------------------');
      writeln;
      write('Masukkan Bilangan Pertama : ');readln(bil1);

      write('Masukkan Bilangan Kedua   : ');readln(bil2);

      write('Masukkan Bilangan Ketiga  : ');readln(bil3);

      writeln('----------------------------------');

      writeln;

      if (bil1 > bil2) and (bil1 > bil3) then

      begin

        writeln('Bilangan Yang Terbesar    : ', bil1);

      end

      else if (bil2 > bil1) and (bil2 > bil3) then

      begin

        writeln('Bilangan Yang Terbesar    : ', bil2);

      end

      else if(bil3 > bil1) and (bil3 > bil2) then

      begin

        writeln('Bilangan Yang Terbesar    : ', bil3);

      end;

      writeln;

      writeln('----------------------------------');

   readln;

   end.

     jika sudah di ketik maka Hasilnya seperti di bawah ini :

 Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya 

Read More

Algoritma & Pemrograman 1 ( LAtihan-Latihan penyeleksian Kondisi Pada Pascal ) ''Part 2"

1. Program untuk mengetahui harga dan besar angsurannya jika dikredit selama 10 tahun.
    Adapun daftarnya sebagai berikut.

    Nah langsung saja ketikan scrib dibawah ini di pascal

   Program Kredit_Angsuran_Rumah;
   uses crt;
   var
     tipe, jenis: char;
   begin
     clrscr;
     writeln('   PROGRAM KREDIT ANGSURAN RUMAH   ');
     writeln('-----------------------------------');
     write('Tipe Rumah [A,B,C,D]= ');readln (tipe);
     write('Jenis Pembayaran [T/K]= ');readln(jenis);
     writeln('-----------------------------------');
       case upcase(tipe) of
        'A' : begin
              case upcase(jenis) of
              'T' : writeln('Harga Rumah = Rp. 50.000.000');
              'K' : writeln('Angsuran Per Bulan = Rp. 500.000');
              End;
          End;
        'B' : begin
              case upcase(jenis) of
              'T' : writeln('Harga Rumah = Rp. 65.000.000');
              'K' : writeln('Angsuran Per Bulan = Rp. 650.000');
              End;
          End;
        'C' : begin
              case upcase(jenis) of
              'T' : writeln('Harga Rumah = Rp. 75.000.000');
              'K' : writeln('Angsuran Per Bulan = Rp. 750.000');
              End;
          End;
        'D' : begin
              case upcase(jenis) of
              'T' : writeln('Harga Rumah = Rp. 85.000.000');
              'K' : writeln('Angsuran Per Bulan = Rp. 850.000');
              End;
          End;
      End;
    readln;
    end.

  jika sudah di ketik maka Hasilnya seperti di bawah ini :

  Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya

  

2.  Trus selanjutnya, bagaimana jika kita ingin mengubah program di atas menggunakan            perintah IF,    langsung saja ketikkan scrib di bawah ini

      Program Tugas_3;

      uses crt;

      var

      jenis:char;

      tipe: char;

      begin

      clrscr;

      writeln('   PROGRAM KREDIT ANGSURAN RUMAH   ');

   writeln('-----------------------------------');

   writeln;

   write('Tipe Rumah [A,B,C,D] = ');readln(tipe);

   write('Jenis Pembayaran [T/K] = ');readln(jenis);

   writeln('-----------------------------------');

   writeln;

   if tipe= 'A' then

     begin

        if jenis= 'T' then

        begin

        writeln('Harga Rumah = Rp. 500.000.000 ');

        end

        else if jenis= 'K' then

        begin

        writeln('Angsuran Per Bulan = Rp. 500.000 ');

        end;

     end

     else if tipe= 'B' then

     begin

         if jenis= 'T' then

        begin

        writeln('Harga Rumah = Rp. 650.000.000 ');

        end

        else if jenis= 'K' then

        begin

        writeln('Angsuran Per Bulan = Rp. 650.000 ');

        end;

     end

     else if tipe= 'C' then

     begin

        if jenis= 'T' then

        begin

        writeln('Harga Rumah = Rp. 750.000.000');

        end

        else if jenis= 'K' then

        begin

        writeln('Angsuran Per Bulan = Rp. 750.000');

        end;

     end

     else if tipe= 'D' then

     begin;

        if jenis= 'T' then

        begin

        writeln('Harga Rumah = Rp. 850.000.000');

        end

        else if jenis= 'K' then

        begin

        writeln('Angsuran Per Bulan = Rp. 850.000');

        end;

     end;

     writeln;

     writeln('-----------------------------------');

       readln;

     end.

 

  jika sudah di ketik maka Hasilnya seperti di bawah ini :

 

 Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya

 Trimakasih udah nyimak penjelasannya yaaaa bro / sis :) Join  ...

Read More