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, December 23, 2014

Algoritma & Pemrograman 1 (Cara Menjalankan Turbo Pascal di Windows 7 32bit)

Cara Menjalankan Turbo Pascal di Windows 7 32bit

Cara Menjalankan Turbo Pascal di Windows 7 32x. Kali ini saya membagi lagi pengetahuan saya yaitu bagaimana cara menjalanka turbo pascal di windows 7. Untuk menjalankan turbo pascal yang harus kita lakukan adalah....
  1. Download dulu softwarenya (aplikasi) di sini 
  2. Setelah di download extract file ke dictory pc anda sesuai keinginan misalnya: D:\Turbo Pascal 7.0
  3. Sebelum menjalankan TP 7.0 diperlukan DosBox untuk membukanya
  4.  Jika anda menyimpan file Turbo Pascal 7.0 di dictory D:\ maka ketikkan Perintah seperti gambar di bawah ini
  5. setelah mengetikkan D:\TP7\BIN>TPX tekan enter pada keyboard.
  6. Setelah itu muncullah tampilan turbo pascal 7.0 yang siap dipakai

Semoga Artikel Ini bermanfaat buat Anda ,,,   Salam Suksesssss :)

Wednesday, December 17, 2014

Algortima & Pemrograman 1 ( menghitung Panjang sisi miring pada segitiga menggunakan pascal )

menghitung Panjang sisi miring pada segitiga menggunakan pascal

Bnyak hal yang bisa dibuat oleh program pascal, salah satunya adalah  program penghitung panjang sisi Miring pada segitiga . pada program ini  bisa digunakan untuk menghitung sisi miring apabila kita masukkan alas dan tinggi segitiga , karena pada segitiga menggunakan rumus phytagoras yaitu sisi kuadrat = panjang alas kuadrat x tinggi segitiga kuadrat
ini dia sricpt penghitung panjang sisi miring pada segitiga siku-siku menggunakan rumus phytagoras

Program phitagoras;
uses wincrt;
var alas,tinggi,miring : real ;

Begin
clrscr;
writeln('----aplikasi menghitung sisi miring pada segitiga siku-siku----');
writeln('---------------tekan enter dan masukkan nilai------------------');
readln;
write('Panjang alas =');
readln(alas); 
write('tinggi segitiga =');
readln(tinggi);
miring:=sqrt((alas*alas)+(tinggi*tinggi));
writeln('panjang sisi miring =',miring:2:2);
readkey;
writeln(' ');
write('jadi panjang sisi miring segitiga dengan alas',' ',alas:2:2,' ','dan tinggi',' ',tinggi:2:2,' ','adalah =',miring:2:2);
end.


dan output nya akan terlihat jika kita masukkan angka 3 pada panjang alas dan 4 pada tinggi segitiga

----aplikasi menghitung sisi miring pada segitiga siku-siku----
---------------tekan enter dan masukkan nilai------------------

Panjang alas = 3
tinggi segitiga = 4
panjang sisi miring =5,00

Jadi panjang sisi miring segitiga dengan alas 3,00 dan tinggi 4,00 adalah =5,00




Pascal program pitagoras menghitung sisi miring segitiga

screbshott script pascal

Pascal program pitagoras menghitung sisi miring segitiga



screenshot ketika program dijalankan

itulah Program Penghitung Panjang sisi Miring pada segitiga siku-siku menggunakan Pascal
semoga artikel ini bisa bermanfaat. terimakasih :)
\
 
Nama : Alfian
Nim   : 20142205090

Algoritma & Pemrograman 1 ( Fungsi Case of dan contoh Program Pada Pascal )

Fungsi Case of dan contoh Program Pada Pascal

Dalam fungsi yang berkaitan dengan logika adalah fungsi if, selain fungsi isi terdapat fungsi case of yaitu suatu ungkapan logika yang disebut selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.
Statement yang mempunyai case label yang bernmilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainnya tidak.
Bentuk struktur case of :

Case Variabel Kondisi Of
  case-labe 1 : Statement 1;
  case-label 2: tatement 2;
  case-label 3: Statement 3;
  case-label 4: Statement 4;
  .....
  ...
  Case-label : Statement n ;
end;   {end dari case}


Daftar case label dapat berupa konstanta, range dari konstanta yang bukan bertipe real.

Contoh Program;

program nilaihuruf;
uses crt;
var  nilai : char;
begin
clrscr;
write ('Masukkan Nilai Huruf : ');
readln(nilai);
case nilai of
'A': Writeln('sangan Baik');
'B': Writeln('Baik');
'C': Writeln('Kurang);
'D': Writeln('Sangat kurang');
'E': Writeln('Buruk Sekali');
end;
Readln;
end.



----------------,------------------------------------------------------
Program Fotokopi ,
Program ini untuk memenuhi tugas Algoritma dan pemrograman,
cara kerja program fotokopi ini yaitu kita harus menginput kode kertas, yaitu H untuk HVS, Q untuk Quarto, dan P untuk polio,
setelah kita masukkan kode kertas dan kita tekan enter maka akan keluar lah jenis kertas dan juga harganya perlembar, kemudian masukkan jumlah yang difotokopi , setelah diinput maka tekan entek maka keluarlah jumlah yang harus dibayar.

kode : ____________________________________________________


Program Fotokopi
uses crt;
var
    kode : char;
    kertas : string;
    harga,jumlah,bayar : integer;
begin
clrscr;
writeln ('program fotokopi');
Write ('Masukkan Kode Kertas : ');
readln(kode);
case kode of
'H':begin
 kertas:='HVS';
 harga:=125;
 end;
'Q':begin
 kertas:='Quarto';
 harga:=150;
 end;
'P':begin
 kertas:='Polio';
 harga:=175;
 end;
else
kertas:='Tidak ada'
end;
Writeln('Menggunakan kertas : ',kertas);
Writeln('Harga perlembar : ',harga);
Write('Jumlah Yang difotokopi : ');
readln(jumlah);
bayar:=jumlah*harga;
Writeln('Yang Harus dibayar : ',bayar);
readkey;
end.


 ___________________________________________________


screenshot program

 

































































































Koding

Ketika dijalankan


Ketika di input



ya itu lah program fotokopi menggunakan pascal dengan fungsi case of, semoga tulisan saya ini bisa bermanfaat bagi kita semua.. aminn

Nama : Alfian
Nim   : 20142205090

Tuesday, December 16, 2014

Algoritma & Pemrograman 1 (Contoh Program Komputer Pengambilan Keputusan dengan fungsi IF)

Contoh Program Komputer Pengambilan Keputusan dengan fungsi IF

Untuk dapat mengerti  contoh program komputer berikut, maka diharapkan anda telah mempelajari teori proses pengambilan keputusan.

Contoh Program Komputer adalah sebagai berikut :

1.    Contoh IF  dengan Satu Pilihan

Contoh-1

Buatlah program dengan nilai 2 buah nilai awal x = 0 dan y = 100. Data masukan 1 buah data yaitu n. Jika n>x, maka  x = n. Jika n
Algoritma:

•    Mulai
•    Deklarasikan variabel dan konstanta
•    Masukkan data n
•    Jika n>x,  kerjakan  x = n
•    Jika n•    Cetak  x dan y
•    Selesai

Flowchart

Kode Program

  Program Contoh1;

  Uses crt;
  Var  x,y,n : real;

  Begin
      x:= 0; y:=100;
      clrscr;
      write('Masukkan bilangan n = ');
      readln(n);
      writeln;

      if n>x then x:=n;
      if y
     writeln(' Nilai  x = ',x:6:2);
     writeln(' Nilai  y = ',y:6:2);

     readln;
  End.

Penjelasan :


Proses pengambilan keputusan dilakukan denan membandingkan n dengan x dan n dengan y. Jika n>x, maka simpan nilai n ke variabel x, kemudian lanjutkan untuk membandingkan y dengan n. Jika tidak (nn) maka langsung lanjutkan ke langkah selanjutkan. Pada baris terakhir terdapat perintah readln; fungsinya adalah untuk menghentikan tampilan hasil program di layar. Dengan menekan salah satu tombol keyboard, maka proses akan dilanjutkan.

Hasil Program


2.   Contoh IF dengan 2 Pilihan

Contoh-2

Buatlah program komputer dengan sebuah data masukan n. Jika data masukan n lebih lebih besar dari 0, maka tampilkan pesan “ Anda memasukkan bilangan positip’. Sebaliknya, jika n lebih kecil dari 0, maka tampilkan pesan “Anda memasukkan bilangan negatip”.

Algoritma:

•    Mulai
•    Deklarasikan variabel  n
•    Masukkan data n
•    Cek data n, apakah n>=0
•    Jika Ya, Tampilkan pesan “Anda memasukkan bilangan positip”
•    Jika Tidak, tampilkan pesan “Anda memasukkan bilangan negatip”
•    Print Hasil.
•    Selesai.

Flowchart


Kode Contoh Program Komputer

  Program Contoh2;

  Uses crt;

  Var  n : integer;

  Begin
      clrscr;
      write('Masukkan bilangan n = ');
      readln(n);writeln;

      if n>=0 then
              writeln('Anda memasukkan bilangan positip') {titik koma tidak boleh}
      else
              writeln('Anda memasukkan bilangan negatip');

      readln;
  End.

Penjelasan :

Proses pengambilan keputusan hanya dilakukan satu kali dengan cara melakukan pengujian apakah n>=0. Jika hasilnya benar, maka kerjakan pernyataan di setelah  IF – then, jika tidak maka kerjakan pernyataan setelah kata kunci else.

Baris pernyataan sebelum kata kunci else tidak boleh menggunakan titik koma, karena titik koma berarti mengakhiri bari pernyataan akibatnya  else tidak dapat mengenali baris pernyataan sebelumnya untuk dibandingkan dengan baris pernyataan di bawahnya.

Hasil Program

Contoh-3

Buatlah program  dengan masukan 2 buah data yaitu x dan y. Jika x >  y, hitung  z = x + y. Jika  y>x, hitung z = y – x.

Algoritma :

•    Mulai
•    Deklarasikan variabel x,y,dan z
•    Masukkan data x dan y.
•    Cek apakah  x>y
•    Jika Ya, hitung z = x + y
•    Jika Tidak, hitung z = y – x.
•    Cetak hasil
•    Selesai

Flowchart


Kode Program

  Program Contoh3;

  Uses crt;

  Var  x,y,z : integer;

  Begin
      clrscr;
      write('Masukkan bilangan x = ');
      readln(x);
      write('Masukkan bilangan y = ');
      readln(y);
      writeln;

      if x>y then
             z:= x + y
      else
            z:= y - x;

         writeln(' Nilai  z = ',z);

      readln;
  End.

Penjelasan :

Pengambilan keputusan dilakukan dengan menguji apakah x>y. Jika Ya, maka kerjakan pernyataan di bahwanya yaitu  z:= x + y. Jika Tidak maka kerjakan pernyataan setelah else yaitu z := y – x.

Hasil  Program


3.  Contoh  IF  dengan 3 Pilihan atau Lebih

Sebuah Toko menyediakan Hadiah bagi pembeli dengan syarat Total Belanja sebagai berikut :
Total Belanja/TB (Rp.)                                           Hadiah
     50.000 < TB <=  150.000                                    Pepsodent 60 gr
     150.000 < TB <=  250.000                                  Rinso 500 gr
     250.000 < TB <=  350.000                                  Rinso 700 gr
     350.000 < TB <=  450.000                                  Rinso 1000 gr
     TB  > 450.000                                                      Rinso 2500 gr

Buatlah program untuk menentukan hadiah tiap pembeli. Data masukan adalah Total Belanja.     Jika nilai TB tidak memenuhi syarat, tampilkan pesan “Anda belum beruntung”

Algoritma :

•    Mulai
•    Deklarasikan variabel
•    Masukkan data Total Belanja (TB).
•    Cek TB sbb :
•    Jika  50.000 < TB <=  150.000, tampilkan informasi Hadiah    “Pepsodent 60 gr”
•    Jika  150.000 < TB <=  250.000, tampilkan informasi Hadiah  “Rinso 500 gr”
•    Jika  250.000 < TB <=  350.000, tampilkan informasi Hadiah  “Rinso 700 gr”
•    Jika  350.000 < TB <=  450.000, tampilkan informasi Hadiah “Rinso 1000 gr”
•    Jika TB> 450.000, tampilkan informasi hadiah “Rinso 2500 gr”
•    Jika tidak memenuhi syarat, tampilkan pesan “Anda belum beruntung”
•    Selesai

Flowchart


Kode Program:

Contoh Program Komputer

Uses crt;
var TB: longint;

Begin
   clrscr;writeln;
   write('Input Total Belanja = ');
   readln(tb);writeln;writeln;
   if (50000 <=tb) and (tb<=150000) then
              writeln('Selamat!. Anda mendapatkan Hadiah : Pepsodent 60 gr')
   else  if (150000                writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 500 gr')
   else  if (250000                writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 700 gr')
   else  if (350000                writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 1000 gr')
   else  if (tb > 450000) then
               writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 2500 gr')
   else
               writeln('Anda belum beruntung !!!');
  readln; {untuk menghentikan tampilan hasil program}
End.

Penjelasan :
  • Tipe variabel TB bukan int tetapi longint karena data masukan adalah data integer yang besar. Lihat tipe data integer pada pembahasan sebelumnya.
  • Proses pengambilan keputusan dilakukan dengan melakukan pengujian sebanyak 5 kali dengan 6 pernyataan.  Tiap pengujian dalam fungsi  if menggunakan operator logika AND karena kedua syarat harus benar untuk menghasilkan nilai Benar. Misalnya  Hadiah Pepsodent diberikan dengan syarat Total belanja antara 50.000 hingga 150.000. Bentuk matematikanya adalah   50.000 < TB <=  150.000 dibuat menjadi  kode program  dengan menggunakan operator AND dengan bentuk  (50000 <=TB) AND (TB<=150000).

Hasil Program


Dengan Contoh Program Komputer Pengambilan Keputusan dengan fungsi IF, anda dapat menambah ilmu komputer anda. Selamat belajar.

Berikan komenter dan saran jika anda punya pertanyaan.

Semoga bermanfaat

Algoritma & Pemrograman 1 (Contoh Pemrograman Dasar Komputer Dengan Pascal)

Contoh Pemrograman Dasar Komputer Dengan Pascal

Pada bagian Pemrograman dasar pascal, kita akan membahas Contoh Program Komputer tentang perhitungan matematika dasar.  Dalam perhitungan matematika, kita menggunakan operator aritmatika sebagai berikut :

Penjelasan :

Operator tanda kurung adalah priorotas pertama, artinya bagian yang berada dalam tanda kurang akan dikerjalan pertama kali, kemudian diikuti oleh operator dengan prioritas kedua yaitu kali dan bagi (*dan /), kemudan tambah dan kurang . Dalam  perhitungan matematika, tanda sama dengan menggunakan tanda  := (titik dua sama dengan) untuk menyatakan nilai.

 Operator Div digunakan untuk membagi 2 bilangan  bulat (integer) kemudian mengambil  hasil bagi dan sisanya dibuang. Sedangkan operator Mod digunakan untuk membagi 2 bilangan bulat (integer) kemudian mengambil sisanya dan hasil baginya dibuang. 

Misalnya : 7 dibagi 2. Hasil baginya 3 dan sisanya 1.
X:= 7 div 2, hasilnya 3
X:= 7 mod 2, hasilnya 1

Tipe Data

1.  Integer    : untuk menyatakan bilangan bulat. Misalnya : 1, 2, 3, dst. Tipe Integer terdiri dari dari 5 macam  yaitu :
2.  Real        : untuk menyatakan bilangan desimal. Misalnya : 1.45, 5.76, dst. Pemisah tanda desimal menggunakan  titik bukan  koma. Tipe real dibagi menjadi 4 macam yaitu   :

 
Format Output Tipe Real

Output dari variabel bertipe real berupa bilangan desimal dengan 10 angka di belakang koma dan E+0n, dimana n =1,2,3, dst. Misalnya 1.6000000000E+02, artinya sama dengan 1.6 x 10 pangkat 2.
Untuk menampilkan output yang rapi, maka perlu diformat dengan bentuk sbb:

V:N:D dimana V adalan nama variabel, N adalah jumlah digit, dan D adalah jumlah desimal.

Contoh : X:6:2

artinya nilai variabel x terdiri dari 6 digit dan 2 angka dibelakang koma. Misalnya  094.32 tetapi 0 tidak dicetak sehingga tampilan output adalah 94.32.

3.  Char        : untuk menyatakan huruf, karakter dan tanda baca

Tipe data tunggal yang berhubungan dengan tombol-tombol di keyboard. Char adalah semua tombol yang terdapat pada keyboard atau lebih lengkapnya semua karakter yang terdapat pada kode ASCII.
Apabila data Char ingin dijadikan sebagai konstanta maka karakter yang harus diapit dengan tanda kutip satu.   Misalnya  :Huruf := ’A’

4.  String   : untuk menyatakan kata atau kalimat

String (adalah kumpulan type data yang berbentuk karakter). Tipe data string digunakan untuk menampung nilai dalam bentuk huruf, dimana batas maximal adalah sebanyak 255 karakter. Apabila data string ingin dijadikan sebagai konstanta maka data string yang harus diapit oleh tanda kutip satu.   Misalnya  : data:= ’Program Komputer’

5. Boolean    : untuk menyatakan benar(true) atau salah (false)

Mempunyai nilai benar / salah. Operator yang penghubung untuk tipe boolean adalah : =, > , <, <=, =>, <>;. Boolean akan menghasilkan false jika nilai = 0 dan akan menghasilkan true jika nilai = 1. Tipe boolean biasanya digunakan dalam operasi kondisional pada saat pengambilan keputusan Ya atau Tidak dengan menggunakan fungsi IF – Then – else.

Variabel 

Dalam perhitungan matematika, variabel adalah komponen yang sangat penting untuk digunakan. Karena itu, setiap masalah harus dianalisa dengan baik agar dapat menentukan jenis variabel dan tipe data yang akan digunakan. Variabel yang akan digunakan harus dideklarasikan lebih dahulu pada bagian deklarasi variabel.

Contoh Deklarasi Variabel :

Var       
a,b      : integer;
X,y,z     : real;
Huruf     : char;
Kata     : string[25]; artinya panjang kata atau kalimat maksimum 25 karakter. Jika tidak disebutkan maka panjangnya 255 karakter.

 Contoh Program  Komputer Untuk Perhitungan Matematika Sederhana

Contoh-1

Buatlah program dengan persaman  matematika :   Y = 2x + (8x – 25)

Jawab :

Dari persamaan di atas terdiri dari 2 buah variabel yaitu x dan y. Variabel  x adalah variabel  input dan y adalah variabel output. Tipe variabel boleh  integer atau real. Seperti pada pembahasan sebelumnya bahwa Langkah pertama adalah membuat algoritma, kemudian flowchart, dan membuat kode program.

Algoritma :
  •     Mulai
  •     Deklarasikan variabel
  •     Tentukan nilai x
  •     Hitung nilai Y
  •     Cetak x dan y.
  •     Selesai

Flow Chart


Kode Contoh Program Komputer

Program Contoh1;
uses crt;

var x,y : integer;

Begin
     clrscr;
     write('Input Nilai x = ');
     readln(x);
     y:= 2*x + (8*x -25);
     writeln;
     writeln(' Y = ',y);
     readln;
End.

Output Program:

Contoh 2

Buatlah program untuk mencari nilai a dari persamaan  a = (b + 3c)b – bcd

Jawab :

Persamaan di atas terdiri dari 4 buah variabel yaitu a,b,c,dan d. Gunakan tipe data integer jika input datanya berupa bilangan bulat saja. Jika ada input data berupa bilangan desimal, maka harus menggunakan tipe data real.

Algoritma :
  •     Mulai
  •     Deklarasikan variabel
  •     Input nilai b,c,d
  •     Hitung nilai a
  •     Cetak nilai a,b,c,d.
  •     Selesai
Flowchart

Kode Contoh Program Komputer

Program Contoh2;
uses crt;

var a,b,c,d : real;

Begin
     clrscr;
     write('Input Nilai b = ');readln(b);
     write('Input Nilai c = ');readln(c);
     write('Input Nilai d = ');readln(d);
     a:= (b + 3*c)*b - b*c*d;
     writeln;clrscr;
     writeln(' b = ',b:6:2,'   c = ',c:6:2,'  d = ',d:6:2);
     writeln;
     writeln(' Hasil Perhitungan, a = ',a:6:2);
     readln;
End.

Ouput Program


Contoh-3

Buatlah program untuk menghitung persamaan    y= □(√(a^2+b^2 )/4b)

Jawab :

Persamaan di atas terdiri dari 3 buah variabel yaitu y, a, dan b. Variabel y harus bertipe real karena y akan menyimpan hasil pembagian bilangan, dimana hasil pembagian akan berbentuk bilangan desimal. Sedangkan variabel a dan b, bisa bertipe real atau integer. Artinya jika integer, maka a dan b hanya dapat menerima bilangan bulat saja.

Algoritma :

  • Mulai
  • Deklarasikan variabel
  • Input nilai a dan b
  • Hitung nilai  x= √(a^2+b^2 )
  • Hitung nilai  y=x/4b
  • Cetak Nilai  y
  • Selesai
Flowchart


Dalam program Pascal terdapat fungsi :
Sqrt (x)  :  digunakan untuk menghitung nilai akar pangkat dua dari x
Sqr(x)    :  digunakan untuk menghitung nilai pangkat dua dari x

Kedua fungsi tersebut akan kita gunakan dalam program untuk menyelesaikan persamaan.

Kode Contoh Program Komputer

Program Contoh3;
uses crt;

var y,x,a,b : real;

Begin
     clrscr;
     write('Input Nilai a = ');readln(a);
     write('Input Nilai b = ');readln(b);

     x := sqrt(sqr(a) + sqr(b));
     y := x/(4*b);

     writeln;writeln;
     writeln(' a = ',a:6:2,'   b = ',b:6:2);
     writeln;
     writeln(' Y = ',y:6:2);
     readln;
End.

Hasil  Program:

Contoh Program Komputer-4

Buatlah program untuk membagi 2 bilangan bulat dengan operator Div dan Mod.

Jawab :

Div dan Mod hanya dapat membagi bilangan bulat, sehingga variabel yang digunakan harus bertipe integer.

Algoritma :
  • Mulai
  • Deklarasikan variabel  x,y,n,m
  • Input 2 bilangan bulat
  • Hitung  n = x mod y dan m = x div y
  • Cetak hasilnya
  • Selesai

Flowchart : sama dengan contoh di atas.

Kode Contoh Program Komputer


Program Contoh4;
uses crt;

var y,x,n,m : integer;

Begin
     clrscr;
     write('Input Nilai x = ');readln(x);
     write('Input Nilai y = ');readln(y);

     n:= x mod y;
     m := x div y;

     writeln;writeln;
     writeln(' x = ',x,'   y = ',y);
     writeln;
     writeln(' x mod y = ',n);
     writeln(' x div y = ',m);
     readln;
End.

Hasil Program:

Contoh Program Komputer-5:

Buatlah program untuk menampilkan huruf, kata atau kalimat.

Jawab :

Untuk menampilkan huruf, maka tipe variabelnya adalah char sedangkan kata atau kalimat tipe variabelnya adalah string.

Algoritma :
    Mulai
    Deklarasikan Variabel
    Inpit huruf dan kata/kalimat
    Tampilkan/cetak hasilnya
    Selesai

Kode Contoh Program Komputer


Program Contoh5;
uses crt;

var huruf : char;
    kata  : string;

Begin
     clrscr;
     write('Input Huruf        = ');readln(huruf);
     write('Input Kata/Kalimat = ');readln(kata);

     writeln;writeln;
     writeln(' Data Char   = ',huruf);
     writeln(' Data String = ',kata);
     readln;
End.

Hasil Program

Algoritma & Pemrograman 1 (Tutorial Menjalankan Turbo Pascal di Windows XP, Vista, dan 7 64-bit)

Tutorial Cara Menjalankan Turbo Pascal di Windows XP, Vista, dan 7 64-bit


Pernahkah kalian mendengar tentang Turbo Pascal?  Apa itu Turbo Pascal? Dan apa pula fungsinya? Turbo Pascal adalah salah satu bahasa pemrograman Pascal paling popular di dunia hingga saat ini. Perangkat lunak ini mulai dibuat oleh Borland International, Inc. pada tahun 1983 sebagai pengembangan dari perangkat-perangkat lunak sejenis lainnya yang sudah ada pada waktu itu. Dengan cara penggunaannya yang cukup mudah dan sederhana serta dapat digunakan secara cuma-cuma alias gratis (freeware). Program Turbo Pascal menjadi pilihan terbaik bagi pelajar dan mahasiswa untuk mengenal konsep dasar bahasa pemrograman tingkat tinggi. Program Turbo Pascal banyak digunakan sebagai mata pelajaran Dasar Pemrograman Komputer karena mudah dipelajari dibandingkan dengan bahasa pemrograman yang lain, mis bahasa C++ dan Java.

Meskipun Demikian, hingga versi terakhirnya yaitu versi 7.1 yang dirilis pada tahun 1997, bahasa pemrograman ini hanya dapat berjalan di Windows 32-bit (x86), baik itu Windows XP, Vista, maupun 7. Lalu bagaimana cara menyetting Turbo Pascal agar dapat berjalan di Windows 64-bit (x64)?

Berikut langkah-langkah yang harus dilakukan*1):

1. Persiapkan terlebih dahulu perangkat lunak bernama DOSBox. Perangkat lunak inilah yang akan kita fungsikan sebagai media perantara dalam menjalankan Turbo Pascal di Windows 64-bit. Jika belum memiliki, kalian dapat men-download versi terbarunya DI SINI.

2. Persiapkan pula perangkat lunak Turbo Pascal-nya. Jika belum memiliki, kalian dapat men-download versi terbarunya DI SINI. Password Mediafire: princinata

3. Setelah kedua perangkat lunak selesai dipersiapkan, lakukan instalasi untuk DOSBox-nya dan ekstraksi untuk Turbo Pascal-nya (klik kanan pada file >> pilih Extract Here). Untuk lebih mempermudah dalam melakukan penyetingan, kalian dapat meletakkan file-file ekstraksi Turbo Pascal-nya di partisi C (C:\). Sekarang kita dapat memulai proses pengonfigurasian keduanya.

4. Jalankan perangkat lunak DOSBox-nya. Setelah terbuka, ketikkan sintaks berikut pada jendela yang muncul:
MOUNT C C:\TP      
..(tunggu sampai proses mounting telah berhasil)..
C:                               
BIN\TPX.exe            
Untuk lebih jelasnya, perhatikan gambar berikut:


5.    Jika berhasil, maka secara otomatis tampilan awal pada perangkat lunak Turbo Pascal akan segera terbuka. Seperti pada gambar berikut ini:


6.    Klik OK atau tekan ENTER untuk memulai mengetikkan sintaks.

SELAMAT!! Sekarang kalian dapat menggunakan perangkat lunak Turbo Pascal di Windows 64-bit kalian.

NB :
+ Lakukan hal yang sama setiap kali kalian ingin menggunakannya kembali.      
+ Ketika ingin menjalankan program, sebaiknya kalian menggunakan pointer untuk menuju perintah RUN, bukan dengan Ctrl+F9. Hal ini dilakukan untuk menghindari terjadinya kesalahan pada saat menjalankan program.

*1) : Untuk memperoleh hasil yang diharapkan, saya merekomendasikan kalian untuk men-download perangkat lunak yang dibutuhkan di BLOG INI.

Nah, itulah tutorial menjalankan Turbo Pascal di Windows 64-bit (x64) dari saya. Semoga dapat bermanfaat untuk kalian..

Selamat mencoba.

Saturday, December 13, 2014

Cara setting ClearOs Squid External Proxy Mikrotik

Cara setting ClearOs Squid External Proxy Mikrotik



Transparent Proxy adalah Proxy yang tidak terlihat oleh Client. Dengan menggunakan Transparent Proxy client dipaksa untuk memakai Proxy tanpa melakukan setting-an di browser. Squid adalah salah satu jenis Proxy yang paling umum dipakai.
  • Ip address Mikroik:
    • Ether0 =192.168.1.2------------------Ke internet
    • Ether1 =192.168.2.1------------------Ke Client
    • Ether2 =192.168.3.1------------------Ke Squid External ClearOs
  • Ip Address ClearOs:
    eth0 =192.168.3.2------------------ip ClearOs
  • Set Mikrotik Untuk interface Mikrotik:
/interface set 0 name=internet
/interface set 1 name=client
/interface set 2 name=squid
  • Untuk ip address Mikrotik:
/ip address add address=192.168.1.2 netmask=255.255.255.0 \
interface=internet
/ip address add address=192.168.2.1 netmask=255.255.255.0 \
interface=client
/ip address add address=192.168.3.1 netmask=255.255.255.0 interface=squid
  • Untuk Gateway Mikrotik:
/ip route add gateway=192.168.1.1
  • Untuk DNS Mikrotik:
/ip dns set primary-dns=203.130.193.74,203.130.206.250 allow-remote-requests=yes
  • Untuk Nat Mikrotik:
/ip firewall nat add chain=srcnat out-interface=internet \
action=masquerade
/ip firewall nat add chain=dstnat \
src-address=!192.168.3.0/24 protocol=tcp dst-port=80 action=dst-nat \
to-addresses=192.168.3.2 to-ports=3128 comment="" disabled=no
  • Set ClearOs
  • Install ClearOS Server Standalone Mode – No Firewall
  • edit file /etc/firewall, cari dan ganti parameter berikut
SQUID_TRANSPARENT="off"
ubah menjadi :
SQUID_TRANSPARENT="on"
#service squid restart
  • edit file /etc/resolv.conf, tambahkan nameserver (DNS) ISP anda
cat resolv.conf
nameserver 203.130.193.74
  • pastikan gateway proxy sudah ke IP PROXY Mikrotik,lihat file ifcfg-eth0 ada di direktory /etc/sysconfig/network-scripts
cat
ifcfg-eth0
DEVICE=eth0
TYPE="Ethernet"
ONBOOT="yes"
USERCTL="no"
BOOTPROTO="static"
IPADDR="192.168.3.2"
NETMASK="255.255.255.0"
HWADDR="00:80:da:24:6c:73"
GATEWAY="192.168.3.1"
  • Jalankan Webproxy di ClearOS, yang ada pada menu Gateway>Web Proxy Klik Start dan buat Automatic
Selamat Mencoba---