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.

Showing posts with label Algoritma (STMIK AKBA MAKASSAR). Show all posts
Showing posts with label Algoritma (STMIK AKBA MAKASSAR). Show all posts

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

Algoritma & Pemrograman 1 (Latihan-Latihan Penyeleksian Kondisi Pada PascaL)''Part 3''

         Sebelumnya saya sudah posting mengenai Algoritma & Pemrograman 1 (Latihan-Latihan Penyeleksian Kondisi Pada PascaL)''Part 2''. Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya :



1. Program untuk menghitung gaji Karyawan pada PT. XYZ jika yang diinput adalah namadan Kode jabatan dan mengeluarkan jabatan dan perincian gajinya ditetapkan berdasarkan jabatan denga ketentuan sebagai berikut:
           
Kode Jabatan
Jabatan
Gaji Pokok
Tunj. Transport
Tunj. Makan
DR
Direktur
Rp 3000000
Rp 850000
Rp 500000
WD
Wakil Direktur
Rp 2500000
Rp 800000
Rp 500000
MN
Manajer
Rp 2000000
Rp 800000
Rp 450000
AS
Asisten
Rp 1500000
Rp 700000
Rp 400000
KW
Karyawan
Rp 1000000
Rp 500000
Rp 300000

    Berikut scriptnya ketikkan di turbo pascalnya.
   program PT_XYZ;
   uses crt;
   var
     kj:String;
     GP,TT,TM:longint;
     Total:longint;
     nama:string[30];
     Jabatan:string [20];
   begin
     clrscr;
     writeln('           PROGRAM GAJI PEGAWAI           ');
     writeln('------------------------------------------');
     writeln;
     write('Masukkan Nama Karyawan: ');readln(nama);
     write('Masukkan Kode Jabatan [DR,WD,MN,AS,KW]: ');readln(kj);
     if kj= 'DR' then
       begin
       Jabatan:= 'Direktur';
       GP:= 3000000;
       TT:= 850000;
       TM:= 500000;
       end
     else if kj='WD' then
       begin
       Jabatan:= 'Wakil Direktur';
       GP:= 2500000;
       TT:= 800000;
       TM:= 500000;
       end
     else if kj='MN' then
       begin
       Jabatan:= 'Manajer';
       GP:= 2000000;
       TT:= 800000;
       TM:= 450000;
       end
     else if kj='AS' then
       begin
       Jabatan:= 'Asisten';
       GP:= 1500000;
       TT:= 700000;
       TM:= 400000;
       end
     else if kj='KW' then
       begin
       Jabatan:= 'Karyawan';
       GP:= 1000000;
       TT:= 500000;
       TM:= 300000;
       end;
       Total:=GP + TT + TM;
       writeln('------------------------------------------');
       writeln;
       writeln('Jabatan             = ', Jabatan);
       writeln('Gaji Pokok          = Rp. ', GP);
       writeln('Tunjangan Transaksi = Rp. ',TT);
       writeln('Tunjangan Makan     = Rp. ', TM);
       writeln('Total Gaji          = Rp. ',Total);
       writeln;
       writeln('------------------------------------------');;
       readln;
   end.
   jika sudah di ketik maka Hasilnya seperti di bawah ini :








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






2. Kali ini adalah kita akan membuat program dengan cerita sebagai berikut.
    "PDAM Kota Makassar menetapkan tariff pemakaian air bersih per m3-nya ditentukan secara per golongan dimana golongan ditentukan otomatis berdasarkanjumlah pemakaian. Untuk pemakaian 50 m3  pertama dikenakan biaya Rp 1500. 51-75 m3  dikenakan biaya Rp. 1750. 76-100 m3  dikenakan biaya Rp 2000 dan lewat dari 100 m3   dikenakan biaya Rp. 2250. Buatlah program untuk menghitung jumlah yang harus di bayar pelanggan jika volume air diinput dari keyboard ?"
Bingung bagaimana programnya...? Baiklah untuk membuat program seperti cerita di atas, ketikkan scrib di bawah ini di pascalnya yaa..
       program PDAM_Kota_Makassar;
   uses crt;
   label mulai;
   var
     pmkn:longint;
     jumlah:longint;
     hrg1,hrg2,hrg3,hrg4:longint;
     mau:char;
   begin
     clrscr;
     writeln('    PROGRAM PDAM KOTA MAKASSAR    ');
     writeln('----------------------------------');
     writeln;
     mulai:
     write('Masukkan Jumlah Pemakaian  = ');readln(pmkn);
     writeln('----------------------------------');
     if pmkn<= 50 then
          hrg1:=1500 * pmkn
     else if  pmkn<=75 then
     begin
          hrg1:=1500*50;
          hrg2:=1750* (pmkn-50);
     end
     else if pmkn<=100 then
     begin
          hrg1:=1500*50;
          hrg2:=1750*25;
          hrg3:=2000*(pmkn-75);
     end
     else if pmkn>100 then
     begin
         hrg1:=1500*50;
         hrg2:=1750*25;
         hrg3:=2000*25;
         hrg4:=2250*(pmkn-100);
     end;
     jumlah:=hrg1+hrg2+hrg3+hrg4;
     writeln('Tarif');
     writeln('    Golongan I   = Rp. ',hrg1:7);
     writeln('    Golongan II  = Rp. ',hrg2:7);
     writeln('    Golongan III = Rp. ',hrg3:7);
     writeln('    Golongan IV  = Rp. ',hrg4:7);
     writeln('----------------------------------');
     writeln('    Total Bayar  = Rp. ',jumlah:7);
     write('Masih Mau Menghitung [y/t]: ');
     readln(mau);
     if(mau='y') or (mau='Y') then goto mulai
   
   end.

 
   jika sudah di ketik maka Hasilnya seperti di bawah ini :




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