8 robot buatan indonesia

Robot adalah sebuah alat mekanik yang dapat melakukan tugas fisik, baik menggunakan pengawasan dan kontrol manusia, ataupun menggunakan program yang telah didefinisikan terlebih dulu (kecerdasan buatan) dan siapa bilang yg bisa bikin robot cman negara maju kaya amerika serikat,jepang dll Siapa bilang putra Indonesia tidak mampu menciptakan teknologi perang, seperti produksi Amerika Serikat atau negara maju lainnya.

1. Robot Tempur indonesia dan robot Penjinak Bom Indonesia

Robot tempur

”Ukurannya 1,5 m kali 0,5 m dengan berat sekitar 100 kg. Robot ini memiliki mesin penggerak dua roda,dan mampu mengangkut beban hingga sekitar 150 kg, kecepatan maksimalnya bisa mencapai 60 km/jam,” terangnya. Meski dinyatakan belum sepenuhnya sempurna, namun robot tempur ini memiliki kemampuan yang setara dengan robot tempur impor. Selain dapat dikendalikan secara jarak jauh, robot ini dilengkapi dengan kamera pengintai sebanyak enam unit, dan sensor ultrasonic untuk mengenali setiap hambatan yang dihadapi. ”Kami juga memasang dua senjata perusak pada robot ini, yakni senapan mesin ringan (SMR) jenis Minimi kaliber 5,56 mm, dan roket anti tank Estalansa caliber 90 mm yang bisa dioperasionalkan dari jarak jauh,” keren kan.

Penjinak Bom

Robot pengintai tersebut diberi nama Morolipi v1.0, sebuah mobil robot penjinak bom yang dikembangkan oleh LIPI (Lembaga Ilmu Pengetahuan Indonesia) di tahun 2004, kemudian dilanjutkan hingga tahun 2008. Robot Morolipi v1.0 tersebut dirancang dengan spesifikasi :

Panjang 1 meter dan lebar 1 meter, tinggi 90 cmBobot 80-100 kg. Mampu berjalan di permukaan yang datar ataupun menaiki tangga dengan kecepatan 3 meter per detik tanpa menggunakan energi karena menggunakan kopling elektrik. Memiliki dua ruas lengan dengan panjang 70cm dan dapat bergerak bebas ke lima arah, berputar 360 derajat, juga menekuk, Terdapat gripper sebagai alat penjepit dan pemotong kabel di bagian ujung lengannya, Didukung dengan camera, sensor inframerah, pengontrol artikulator dan artikulator yang dapat mengirimkan detail gambar ke komputer, Dikendalikan dengan jarak maksimal 6km dengan menggunakan atau joystick. Memiliki rangkaian elektronik penggerak mulai kontak dengan roda penggerak, lengan, kopling elektronika mekanisme melewati tangga, serta pengontrol supervisor untuk memudahkan pengoperasian, Dapat memotong kabel berukuran 2 mm yang mengalirkan arus listrik itu sebelum sampai ke bahan peledak. Bahan bakar yang digunakan untuk menggerakkan robot berupa aki listrik, Memiliki 4 roda vespa delapan inci, plus sabuk roda untuk membantu menaiki tangga tanpa terpeleset, Harga lebih murah 50 persen dibanding robot penjinak bom import

2. Robot Pengambil Air minum 

Siswa di SMP Penabur Gading Serpong, Michael Limanto, Gerald Sebastian, dan Patrick Wicaksono, membuat robot Delta Easy Water Supply. "Idenya kan orangtua capai baru pulang kantor. Anak disuruh ngambil air minum mengapa enggak dispensernya jalan aja sih," kata Michael, si pencetus ide awal, kemudian ia bergabung dengan dua temannya untuk membuat implementasinya. 

3. Robot stik eskrim 

Meski terbuat dari stik es krim dan barang bekas lainnya, namun robot-robot tersebut cukup memiliki kemampuan yang luar biasa. Robot dibagi dalam dua kategori, yaitu sumo dan ketapel. Robot sumo merupakan robot aduan, sementara robot ketapel memiliki kemampuan melempar beban terjauh. keren ya den anak Sd Indonesia ane jd bangga 

4. Robot Pemadam api

nah ini mobil pemadam buatan mahasiswa ugm dan UNIKOM gan,,,, untuk mademin api jadi ni robot pny sensor untuk mendeteksi api jd kalo ade api ni mobil lngsung bergerak dan nyari api ntu langsung deh di mademin pake kipas yg ada pada robot ni,,, keren kan den..

Ada jg robot pemadam api buatan indonesia tapi berbeda jenis gan yg ini punya roda gan ada yg seperti bentuk tank tempur dan seperti traktor gan,, 

5. Robot Pemain angklung

Dua siswa SMP dari Bandung--Karismanto Rahmandika, siswa SMP Negeri 14, dan Krisna Diastama, siswa SD Islam Ibnu Sina-menciptakan Klungbot, robot yang bisa memainkan angklung. Robot ini bisa menggantikan sejibun pemain angklung untuk sebuah konser.

Dalam menciptakan robot pemain angklung ini, Krisna menggunakan robot Lego Mindstorm. Untuk membuat si robot bekerja, ia menerjemahkan nada-nada musikal menjadi bahasa program. Ia melakukannya dengan perangkat lunak LeJOS yang biasa digunakan untuk Lego. Bahasa program inilah yang kemudian diterima oleh bagian penerjemah pesan yang terhubung lewat Bluetooth dan selanjutnya ke penggerak.

Ide untul menciptakan klungbot didapatkan ketika ia melihat pertunjukan angklung. Ia berkomentar, betapa rumitnya memainkan angklung itu, butuh sangat banyak orang dan koordinasi yang rumit sehingga ketukan dan nadanya pas. Dengan menggunakan klungbot, musik angklung bisa dinikmati dengan mudah dan tanpa proses yang rumit untuk memainkannya.

Selain menciptakan alat yang diikutkan dalam National Young Inventor Awards di Lembaga Ilmu Pengetahuan Indonesia ini, Krisna juga menciptakan robot pemain alat musik berbahan botol yang diisi air dan robot pemain drum. Kedua alat musik itu juga dapat dimainkan bersamaan dengan angklung sehingga bisa memproduksi suara bak musik simfoni. Hingga kini, Krisna telah membuat beberapa lagu daerah yang sudah siap dimainkan dengan klungbot, seperti "Burung Kakak Tua". 

6. Robot Penari

Penari jaipong

Robot Penari Jaipong,buatan PENS ini sanagan unik Begitu lagu "Bubuy Bulan" diperdengarkan, maka robot bikinan mahasiswa yang diikutkan dalam KRSI itu menari sesuai alunan irama jaipong. lalu, itu pun tampak puas dibuatnya. Robot penari jaipong lomba diletakkan di atas panggung, masing-masing berada di dalam lingkaran putih berdiameter 2.000 mm. Lingkaran ini sebagai batas gerak robot dalam melakukan gerakan tari mengikuti alunan musik jaipong. mantep ya

Penari Pendet

Robot Penari Pendet,yang bernama Putu Ayu dalam ajang KRSI yang diadakan oleh dikti robot ini peringkat kedua,karena keunikannya robot buatanyg juga buatan robotik PENS-ITS Lewat lima mahasiswanya, yakni Endy, Prasetya Hutomo, Andrew, Garry Hadinata, serta Charles Arista Salim, mereka berhasil meraih juara II dalam Melalui berbagai tahap seleksi,Robot yang bernama dewi ini punya kemampuan kemampuan membedakan sensor suara, land tracer, gerakan tari pendet, dan punya 22 sendi .Dan robot ini juga punya kelebihan lain gan Robot ini memiliki beberapa kelebihan. Selain bisa berjalan sembari menari Pendet, ketika berhasil melewati setiap rintangan, selain menari pendet Dewi mampu menarikan tarian khas Bali itu dengan gerakan yang berbeda. 

7. Recorobo robot cerdas bisa bicara

TECHNOVISION dengan bangga mempersembahkan RECOROBO, robot cerdas yang bisa menyapa orang. RECOROBO sangat bersahabat, menyapa kepada setiap pengunjung dengan mengucapkan “selamat datang”, “Silakan mengambil brosur” serta bermacam-macam sapaan lainnya. Robot ini juga sangat sopan. Ketika ada orang menghalangi jalannya, dengan lembut robot ini akan berbicara “permisi, aku akan lewat”. Bahkan ketika RECOROBO kehabisan tenaga, dia pamit ke semua orang disekitarnya “aku istirahat dulu ya..” begitu katanya. RECOROBO pernah sekali tampil di acara PESTA BUKU YOGYAKARTA 2010 bulan Maret 2010 lalu. Begitu bersahabatnya, sehingga tak khayal bila robot ini sangat digemari banyak Pengunjung

RECOROBO merupakan buah karya anak negeri yang hebat. Bila Anda adalah pemilik perusahaan atau saiapa saja yang ingin menawarkan produk dengan cara yang unik, maka RECOROBO siap membantu Anda. Dengan kecerdasan yang dia miliki, siap menawarkan produk baru Anda kepada setiap konsumen.

Bekerja sama dengan Bapak Listiyanto (Penerbit GAVA), RECOROBO diciptakan di markas TECHNOVISION (belakang PERTAMINA Jl. Monjali Yogyakarta), sengaja didesain untuk membantu program promosi sekaligus menarik perhatian pengunjung 

8. Robot Transformer "Made in indonesia"

Kalau Anda pernah menonton film Transformers, ada robot berwarna hijau bernama Skids. Nah, robot tersebut hadir pada ajang IIMS 2010 di JIExpo dan mejeng di booth GM Autoworld Indonesia. Dan Anda pasti mengira benda tersebut didatangkan langsung dari Amerika.

Ternyata, robot Skids Transformers itu buatan putra Indonesia. Kompas.com kebetulan jumpa dengan Martin, Account Director PT Bermuda Communication, yang membuat Skids bersama timnya.

Kami lebih kaget lagi ketika Martin menyebutkan soal lama proses pembuatan. "Hanya sebulan," ucapnya. Ia bungkam ketika ditanya soal biaya pembuatan. Sebelum digarap dengan timnya, ia sudah menawarkan hal itu kepada beberapa supplier. Namun, semuanya sanggup mengerjakan paling cepat tiga bulan.

Martin menjelaskan, tim yang membuat Skids terbagi ke beberapa bagian. "Dimulai dari bagian rangka besi, fiber, resin, dan finishing. Semuanya berjumlah sekitar 15 orang, sudah termasuk dengan pemimpin proyeknya," tambahnya.Dia mengakui, bagian tersulit saat pembuatan robot adalah bagian kepala karena banyak pernik-pernik berukuran kecil.

Instal Ulang Laptop Hanya Rp.30.000 (Windows 7, MS office 2010, dll)

Instal ulang laptop mu di toko komputer mahal??? bahkan sampai Rp.50.000. terbayangkan betapa mahalnya?? tapi tenang kalian bisa instal ulang laptopmu hanya dengan Rp.30.000, kamu bisa menabung 20.000 dari uang kamu jika kamu instal ulang di toko komputer.
hebatnya kalian bisa pilih OS apa yg ingin di instal di laptop kamu seperti di bawah ini:
1. Windows XP
2. Windows 7
3. Windows 8


Dengan program yg lengkap pula seperti di bawah ini:
1. MS office 2010
2. Browser (mozilla, opera, google crome)
3. anti virus (eset full version)
4. dan program pendukung lainnya

bagaimana tertarik? hubungi saja
No. Hp : 087817674409
Pin BB  : 29C85DE6

catatan
# Khusus kota Palangkaraya dan sekitarnya

TIPS MERAWAT HARDISK AGAR AWET

Tips merawat Harddisk tetap awet dan aman mungkin perlu Anda ketahui, agar data Anda tidak hilang atau rusak. Seperti diketahui bahwa Harddisk merupakan komponen vital dalam PC atau laptop, dialah yang berfungsi sebagai penyimpan data penting Anda. Banyak mungkin yang belum paham tentang arti penting menjaga keamanan ini. Mereka tidak paham kalo kesalahan sedikit saja bisa merusak semua file penting yang mungkin sudah tidak bisa didapatkan lagi. Nah, berhati-hatilah dalam memperlakukan Laptop Anda karena dia sangat rawan tergoncang dan mudah rusak. Simaklah Tips merawat Harddisk tetap awet dan aman.

Tips merawat Harddisk tetap awet dan aman berikut ini sangat penting Anda ketahui agar PC atau Laptop tidak cepat rusak:

1. Anda harus mempunyai stabilizer saat menggunakan PC, apa alasannya? Stabilizer ini sangat penting jika sewaktu-waktu terjadi listrik mati, maka benda ini akan menyimpan listrik untuk sementara,sehingga Laptop tidak mati secara mendadak. Perlu diketahui bahwa dengan listrik mati mendadak bisa menyebabkan kerusakan pada harddisk, jadi hati-hatilah.
2. Anda harus selalu membackup file data yang ada di harddisk Anda, untuk menjaga file tetap aman saat terjadi hal yang tidak diinginkan.
3. Anda harus menginstal program pendeteksi virus, perbarui terus deteksi Anda untuk mengawasi virus yang dapat merusak file yang tersimpan di Harddisk .
4. Anda harus melakukan scandisk untuk mengoreksi error pada direktori dan File Allocation Tab. Cek setiap saat untuk antisipasi dan terjadinya error.
5. Mungkin Anda harus tahu juga bahwa , jangan pernah memindahkan saat laptop masih hidup atau selama harddisk sedang berjalan. Ini untuk mengantisipasi guncangan. Harddisk sangat rawan terhadap guncangan yang terjadi, ini dapat membuat harddisk rusak.
6. Anda harus melakukan program perawatan Harddisk. Misalnya Disk Defragmenter dari Windows untuk pengguna OS Windows, yang berfungsi mengelola dan merapikan data-data yang tersimpan di harddisk.
7. Aplikasi yang tidak terpakai, sebaiknya Anda hapus atau uninstall file agar kerja Harddisk tidak berat dan lambat.
8. Anda harus melakukan install password sistem di komputer kerja Anda, ini penting agar orang lain tidak menggunakan komputer Anda secara sembarangan dan aman dari kerusakan file.

Demikian, Tips merawat Harddisk tetap awet dan aman untuk Anda kali ini. Semoga bermanfaat dan bisa Anda terapkan untuk keamanan komputer Anda. Selamat mencoba dan sekian Tips merawat Harddisk tetap awet dan aman, dan yang terpenting adalah backup data penting anda, karena hardisk memiliki umur yg sewaktu-waktu pasti akan rusak, jgn sampai anda menyesal nantinya.

SOLUSI FIREFOX LAMA DI BUKA

Bingung kenapa mozilla loading lama banget waktu pertama kali buka.. karena kamu menginstal banyak plugin?? Benar,. Itu lah penyebabnya, tapi juga ga mau plugin di uninstal karena bagus2 semua?? ada 1 cara sebanyak apapun plugin yang kamu pake, startup mozilla tetap cepat.
SUDAH TERBUKTI MOZILLA 13.0 DENGAN 20 EKSTENSION DAN 20 PLUGINS HANYA BUTUH 2 DETIK.
Caranya bagaimana?
Ikutin cara berikut..
Pertama kamu harus download program berikut, hanya 804kb

Download disini

Setelah itu ikutin cara2 berikut..

1. Instal program tersebut dan pada akhir penginstalan ada tulisan 
"check list launch at startup" di centang aja..
2. Jalankan Firefox anda dan rasakan perbedaannya..
3. Pada saat menggunakan firefox jangan pilih menu File-> Close jika 
ingin kluar dr firefox hanya gunakan File->Exit atau tanda silang di pojok kanan atas

CARA BUAT ASTON 2.0.3 TIDAK TRIAL DAN DOWNLOAD ASTON 2.0.3

Masih ada yang belum tau apa itu Aston? Aston adalah software yang dapat merubah tampilan windows anda menjadi lebih bagus  tentunya. Aston 2.0.3 ini cocok bagi anda yang bosan dengan tampilan windows anda.


ScReEnShOt :

Catatan :

                  Bagi anda yang mempunyai PC/Laptop dengan spesifikasi rendah tidak disarankan untuk menginstall Aston 2.0.3 karena hanya menambah beban PC/Laptop Anda.

Cara Install:

• Matikan Antivirus terlebih dahulu
• Install Aston
• Setelah Install Aston Jangnan di Jalankan Astonnya Apabila sudah terlanjur Matikan dahulu Astonya
• Copas folder dll. yang berada dalam satu paket dengan  Aston ke folder dll. tempat anda menginstall Aston biasanya di c:/program file/aston/dll. 

• Logg of dan jendela aktivasi Aston akan muncul dan kilck Enter License key di pojok kiri bawah

• Buka keygen dan masukkan USER ID terserah anda setelah itu klick generate

• Copas key hasil generate tadi di kotak aktivasi lalu klick next

• Copy USER ID sesuai tanda panah

• Kemudian klick back

• lalu masukan USER ID hasil copy tadi di keygen dan kembali klick generate

• setelah itu masukkan key baru di kotak aktivasi Aston

• Aktivasi selesai

 

DOWNLOAD DENGAN 4SHARED :

Download | Aston 2.0.3

Parkir Mobil Menggunakan Antrian

membuat parkir mobil menggunakan antrian langsung saja ini codingnya:

 

program antrian_mobil;
uses crt;
const
     MAX=5;
     NULL=0;
type
    tipedata=string;
    antrian = record
            data:array[1..MAX]of tipedata;
            rear:integer;
    end;

{procedure untuk memberikan nilai awal antrian kosong}
procedure inisialisasi(var Q:antrian);
var x:integer;
begin
     Q.rear:=Null;
     for x:=1 to MAX do Q.data[x]:='        ';
end;

{procedure untuk melakukan proses delay}
procedure delayed;
var delayTime:integer;
begin
     for delayTime:=1 to 100 do delay(500);
end;

{function untuk memeriksa apakah antrian masih ada ruang kosong}
function kosong(Q:antrian):boolean;
begin
     kosong:=((Q.rear=NULL)or(Q.rear<MAX));
end;

{procedure untuk mencetak tampilan simulasi}
procedure SimScreen(var Q:antrian;status:string);
var
   x,posX:integer;
begin
     clrscr;
     writeln('------------------------------');
     writeln('| Antrian Pada Parkir Mobil  |');
     writeln('------------------------------');writeln;
     writeln('Status: ',status);writeln;writeln;
     if Q.rear=Null then
     begin
          writeln;writeln;
     end
     else
     begin
          writeln('    |Front');
          writeln('    v');
     end;
     writeln('========================================================');
     for x:=1 to MAX do write('\ ',Q.data[x],' ');
     writeln('<');
     writeln('========================================================');
     posX:=5;
     if Q.rear>1 then for x:=2 to Q.rear do posX:=posX+11;
     if Q.rear<>null then
     begin
          gotoxy(posx,13);write('^');
          gotoxy(posx,14);write('|Rear');
     end;
end;

{fungsi untuk memeriksa data ada pada antrian}
function exist(Q:antrian;data:tipedata):boolean;
var
   x:integer;
begin
     exist:=false;
     for x:=1 to MAX do
     if Q.data[x]=data then
     begin
          exist:=true;
     end;
end;

{procedure untuk menambahkan data pada akhir antrian}
procedure Enqueue(var Q:antrian; data:tipedata);
begin
     if kosong(Q) then
     begin
          Q.rear:=Q.rear+1;
          Q.data[Q.rear]:=data;
     end;
end;

{procedure melakukan perulangan sampai ditemukan data yang cocok pada antrian pertama dan selanjutnya dihapus}
procedure Dequeue(var Q:antrian; data:tipedata);
var
   temp:tipedata;
   x,y,rear_temp:integer;
   hapus:boolean;
begin
     if exist(Q,data) then
     begin
          rear_temp:=Q.rear;
          for x:=1 to rear_temp do
          begin
               hapus:=false;
               if Q.data[1]=data then
               begin
                    Q.data[1]:='        ';
                    Q.rear:=Q.rear-1;
                    hapus:=true;
               end;
               if hapus then
               begin
                    temp:=Q.data[1];
                    for y:=1 to Q.rear do
                        Q.data[y]:=Q.data[y+1];
                    Q.data[rear_temp]:=temp;
                    rear_temp:=rear_temp-1;
               end
               else
               begin
                    temp:=Q.data[1];
                    for y:=1 to rear_temp-1 do
                    begin
                         Q.data[y]:=Q.data[y+1];
                    end;
                    Q.data[y+1]:=temp;
               end;
               SimScreen(Q,'Mengganti posisi.');
               delayed;
          end;
     end;
end;

{Procedure Untuk menampilkan menu}
procedure ShowMenu(var Q:antrian;var pil:char);
var
   inputMobil:string;
   x:integer;
begin
     if kosong(Q) then
     begin
          gotoxy(1,16);
          write('1. Mobil Masuk');
          gotoxy(1,17);
          write('2. Mobil Keluar');
     end
     else
     begin
          gotoxy(1,17);
          write('2. Mobil Keluar');
     end;
     gotoxy(1,18);
     write('3. Exit');
     gotoxy(1,19);
     write('Pilihan: ');pil:=readkey;
     if (pil='1')or(pil='2') then
     begin
          SimScreen(Q,'Sukses! Menunggu input...');
          gotoxy(1,16);
          write('No. Kendaraan: ');
          readln(inputMobil);
          for x:=1 to length(inputMobil) do inputMobil[x]:=upcase(inputMobil[x]);
          if pil='1' then
          begin
               Enqueue(Q,inputMobil);
               SimScreen(Q,'Sukses! Data telah masuk.');
          end
          else if pil='2' then
          begin
               Dequeue(Q,inputMobil);
               SimScreen(Q,'Sukses! Data telah dihapus.');
          end;
     end;
end;

{Program Utama}
var
   Q:antrian;
   pil:char;
begin
     inisialisasi(Q);
     SimScreen(Q,'Inisialisasi...');
     delayed;
     SimScreen(Q,'Sukses! Menunggu input...');
     repeat
     ShowMenu(Q,pil);
     until pil='3';
end.

Stack dan Queue pada bahasa pascal

1.         Array

 Array atau disebut juga dengan larik adalah sebuah struktur data yang terdiri atas banyak variable yang mempunyai tipe data sama. Tipe data disebut elemen atau komponen array. Untuk mengoperasikan array ini digunakan pemilih elemen  array yang disebut index, yang dapat berupa variable, konstanta ataupun ungkapan. Index diletakkan dalam tanda kurung dan titik setelah nama array yang di operasikan.

2.         Stack ( Tumpukan )

Stack adalah kumpulan data dengan gambaran seperti sebuah tumpukkan (misalnya tumpukkan piring, tumpukkan buku). Sifat khusus yang dimiliki oleh stack ialah penambahan data selalu diletakkan pada bagian atas dan pengambilan data selalu dilakukan pada data yang terletak di atas tersebut. Data pada bagian atas stack disebut TOP . Dengan sifat tersebut maka aturan stack dikenal juga istilah LIFO (Last In First Out).

Berdasarkan sifat khusus stack, maka ada 2 operasi terhadap stack, yaitu pengambilan data dilakukan pada top, yang di sebut sebagai POP dan penambahan data dilakukan pada top, yang disebut sebagai PUSH.

Dengan menggunakan tipe data array, stack di definisikan :

Const

         NMAX  = ....;            {ukuran maksimum stack}

         NULL   = 0;       {penunjuk stack kosong}

Type

         tipedata = ....; {tipe data yang disimpan dalam stack}

         Stack = record

              Tabelemen : array[1 .. NMAX] of tipedata

              Top : NULL ... NMAX; {top dari stack}

End;

Tipe data dapat berupa tipe data dasar, seperti integer, real, karakter atau string, juga dapat berupa tipe data bentukan seperti record, set dan array.

Procedure Inisialisasi (var S : stack);

Begin

              S.Top := Null;

End;

Procedure Push (var S : stack; data tipedata);

{IS : S adalah stack yang belum penuh,data terdefinisi}

{FS : data menjadi elemen top dari stack 8}

Begin

              S.Top := S.Top + 1;

              S.tebelemen[S.Top] := data;

End;

            

Procedure POP (var S : stack; var data :tipedata);

{IS : S adalah stack yang tidak kosong}

{FS : elemen top dari stack 8 dihapus dan disimpan didata}

Begin

              Data := S.tabelemen[S.Top];

              S.Top := S.Top – 1;

End;

Definisi prosedur PUSH seperti diatas hanya berlaku jika stack S belum penuh, jika stack S sudah penuh tidak bisa lagi dilakukan penambahan data. Penambahan data pada posisi dimana stack telah penuh disebut stack Overflow. Untuk dengan memperhitungkan seleksi apabila stack S sudah penuh.

Demikian juga untuk prosedur POP, hanya berlaku untuk stack yang tidak kosong. Pengambilan data dimana stack telah kosong disebut Underflow. Bila stack telah kosong maka tidak dapat dilakukan operasi POP.

Variasi lain untuk prosedur PUSH dan POP dengan mempertimbangkan seleksi awal terhadap kondisi stack adalah seperti dibawah ini:

Procedure Inisialisasi (var S : stack);

Begin

         S.Top := NULL;

End;

Function Empty (S : stack): Boolean;

{mengirim nilai true jika S adalah stack kosong}

Begin

         Empty := (S.Top=NULL);

End;

Function Full (S : stack):Boolean;

{mengirim nilai true juka S sudah penuh)

Begin

         Empty := (S.Top=NMAX);

End;

Procedure Push (var S : stack; data tipedata);

{IS : S adalah stack yang belum penuh,data terdefinisi}

{FS : data menjadi elemen top dari stack 8}

Begin

              if Not Full (S) then

              begin

              S.Top := S.Top + 1;

              S.tebelemen[S.Top] := data;

              End;

End;

Procedure POP (var S : stack; var data :tipedata);

{IS : S adalah stack yang tidak kosong}

{FS : elemen top dari stack 8 dihapus dan disimpan didata}

Begin

              if Not Empty (S) then

              begin

              data := S.tabelemen[S.Top];

              S.Top := S.Top – 1;

              End;

End;

Begin

              if Not Empty (S) then

              begin

              data := S.tabelemen[S.Top];

              S.Top := S.Top – 1;

              End

              Else

              data:=..; {isi suatu nilai yang kemungkinan bukan data}

end;

3.                                 Antrian ( Queue )

            Antrian adalah kumpulan data dengan penanda pada elemen pertama dan terakhir. Elemen pertama disebut sebagai Front dan elemen terakhir disebut Rear. Penambahan data dilakukan pada akhir elemen, sedangkan penghapusan data dilakukan pada elemen pertama. Sifat antrian tersebut dikenal denga istilah FIFO (First In Forst Out).

            Berdasarkan sifatnya, maka ada 2 operasi terhadap queue, yaitu penambahan data pada elemen akhir queue, disebut Enqueue dan penghapusan data pada elemen pertama queue, disebut Dequeue.

Procedure Inisialisasi (var Q : queue);

{IS : -}

{FS : Q didefinisikan sebagai queue kosong}

Begin

              Q.front := NULL;

              Q.rear := NULL;

End;

Function EmptyQ (Q : queue) : Boolean;

{Mengirim nilai true jika q adalah queue kosong}

Begin

              EmptyQ := ((Q.front=Null) and (Q.rear=Null));

End;

Procedure Enqueue (var Q : queue; data : tipedata);

{IS : Q adalah queue yang belum penuh, data terdefinisi}

{FS : data menjadi elemen terakhir dari queue Q}

Begin

              If EmptyQ (Q) Then

              Begin

                     Q.front := 1;

                     Q.rear := Q.rear+1;

                     Q.tabelemen[Q.rear] := data;

              End;

End;

Procedure Dequeue (var Q: queue; var data : tipedata);

{IS : queue Q adalah tidak kosong}

{FS : elemen pertama queue Q dihapus dan disimpan di data, queue Q mungkin menjadi kosong}

Begin

              data := Q.tabelemen[Q.front];

              Q.front := Q.front + 1;

              If(Q.front > Q.rear) Then {queue menjadi kosong}

              Begin

                     Q.front := NULL;

                     Q.rear := NULL;

              End;

End;  

Apabila ingin diketahui bahwa pada saat penambahan data apakah queue sudah penuh atau belum, maka perlu diperhitungkan jumlah elemen data pada queue. Sebuah queue penuh jika Q.rear = NMAX. Namun demikian tidak selamanya kondisi Q.rear = NMAX menunjukkan bahwa queue telah penuh. Kondisi Q.rear = NMAX akan menunjukkan queue telah penuh bila selama proses pengoperasian queue belum pernah ada data yang keluar (Dequeue).

Bila telah pernah terjadi operasi Dequeue maka akan terjadi pergeseran penanda front sebanyak data yang telah keluar. Hal ini terjadi karena operasi Dequeue dengan array hanya memindahkan index penanda front ke index yang diatasnya. Dalam hal ini penghapusan elemen didepan mengakibatkan array pada index awal menjadi kosong dan tidak terpakai. Jika hal ini terjadi maka perlu dilakukan konsolidasi (setup ulang index front) dengan memindahkan semua data kebagian awal dari tabel.

Untuk operasi Dequeue, apabila dikehendaki pengecekan apakah queue dalam keadaan kosong atau tidak, maka perlu ada perubahan terhadap prosedur Dequeue dan Enqueue. Dibawah ini adalah prosedur baru Dequeue dan Enqueue :

Procedure Consolidate (var Q : queue);

{IS : Q.rear = NMAX dan Q.front <>1}

{FS : Q.front = 1 dan Q.rear = banyaknya data}

Var

              i, j : integer;

begin

              j := 1;

              for i:=Q.front to Q.rear do

              begin

                     Q.tabelemen[j]:=Q.tabelemen[i];

                     j:=j+1;

              end;

Q.front := 1;

Q.rear := j;

End;

Procedure Enqueue (var Q : queue; data : tipedata);

{IS : Q adalah queue, data terdefinisi}

{FS : data menjamin elemen terakhir queue Q jika Q belum penuh}

Begin

              If EmptyQ(Q) Then

                     Q.front := 1;

              If Q.rear <> NMAX Then

              Begin

                     Q.rear := Q.rear + 1;

                     Q.tabelemen[Q.rear] := data;

              End

              Else   {ada kemungkinan Q penuh}

              If Q.front <> 1 Then

              Begin

                     Consolidate(Q);

                     Q.rear := Q.rear+1;

                     Q.tabelemen[Q.rear] := data;

              End;   {else terjadi overflow}

End;

Procedure Dequeue (var Q :queue; var data : tipedata);

{IS : queue Q terdefinisi}

{FS : elemen pertama queue Q dihapus jika tidak kosong dan disimpan di data, queue Q mungkin menjadi kosong}

Begin

              If not Empty(Q) Then

              Begin

                     data:=Q.tabelemen[Q.front];

                     Q.front:=Q.front+1;

              If (Q.front>Q.rear) Then {queue menjadi kosong}

              Begin

                     Q.front:=NULL;

                     Q.rear:=NULL;

              End;

              Else   {ada kemungkinan Q penuh}

Data :=...;          {isi suatu nilai yang kemungkinan bukan data}

End;

lihat contoh nya

1. Membuat Tumpukan Kata Dengan Push dan Pop    
2. Parkir Mobil Menggunakan Antrian