Welcome To My Site

Terima kasih anda masih setia mengunjungi blog kami ,

Just Sharing Bro N Sis

Menerima Penginstalan PC / Laptop Untuk Daerah Makassar ,, Harga Murah Dan Terjangkau Khususnya Bagi Pelajar Dan Mahasiswa Daerah Makassar Dan Sekitarnya Alamat : Jl.AbubakarLambogo No 178 Pettarani Makassar Jl.Aspol Toddopuli Blok C20 Contact person : +628524138771 (Fh14n)

Tips Dan Trik Komputer

Komputer Sangat Banyak Yang bisa Kita pelajari dan banyak hal didalam komputer yang belum ketahui, Ayo ketahui Sekarang !.

Belajar Internet

Internet Begitu luas, ayo pelajari sekarang jangan sampai kita GaptekK ,, hahaha

Ngasal Aja Bro tapi Pas Kena Di Hati ,, hahaha

Jika cinta itu Sistem Operasi, maka, tak akan kubiarkan cinta ini terkena virus yang bisa mengganggu stabilitas dan eksistensinya sebagai sistem operasi yang tangguh. kalau perlu akan kugunakan sistem operasi yang kebal virus.

Tuesday, November 8, 2016

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.
freenom-1

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

5. Selanjutnya, pilih 12 Bulan gratis domain dan klik Continue.
freenom-3
freenom-4
6. Selanjutnya, masukkan email kalian dan verify. Dan cek email kamu.
freenom-5

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

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.
freenom-7
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.
freenom-8
10. Klik Domain --> My Domain untuk melihat daftar domain kalian.
freenom-9
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




Monday, January 12, 2015

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

Algoritma & Pemrograman ( Array Pada Pascal )

http://fhianpoetra.blogspot.com/2015/01/algoritma-pemrograman-array-pada-pascal.htmlArray 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;

Friday, January 9, 2015

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 




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  ...