Program Pengubah Notasi Infix Menjadi Notasi Postfix

•December 11, 2009 • Leave a Comment

program infix_postfix;

uses crt;

const maxelemen = 255;

type

read = string[maxelemen];

stack = record

isi: read;

atas: integer;

end;

var

notasiinfix: read;

lagi: char;

(*/fungsi untuk menentukan derajat operator/*)

function derajat(operator: char): integer;

begin

case operator of

‘^’ : derajat := 3;

‘*’,’/’ : derajat := 2;

‘+’,’-‘ : derajat := 1;

‘(‘ : derajat := 0;

end;

end;

(*/prosedur untuk memasukkan elemen ke dalam stack/*)

procedure push(var t:stack; elemen:char);

begin

if t.atas = maxelemen then

writeln(‘Stack Penuh’)

else begin

t.atas := t.atas + 1;

t.isi[t.atas] := elemen;

end;

end;

(*/fungsi untuk mengeluarkan elemen dari dalam stack/*)

function pop(var t: stack): char;

begin

if t.atas = 0 then

writeln(‘Stack Kosong’)

else begin

pop := t.isi[t.atas];

t.atas := t.atas – 1;

end;

end;

(*/prosedur untuk mengkonversikan notasi infix menjadi notasi postfix/*)

procedure konversiinfix(infix: read);

var

i : integer;

t : stack;

operatorsign: set of char;

kar, temp : char;

test : boolean;

begin

operatorsign := [‘^’] + [‘*’] + [‘/’] + [‘+’] + [‘-‘];

for i := 1 to length(infix) do

begin

kar := infix[i];

if kar = ‘(‘ then

push(t,kar)

else if kar = ‘)’ then

begin

while t.isi[t.atas] <> ‘(‘ do

write(pop(t):2);

temp := pop(t);

end

else if kar in operatorsign then

begin

while (t.atas <> 0) and (derajat(kar) <= derajat(t.isi[t.atas])) do

begin

write(pop(t):2);

end;

end;

push(t,kar);

end else

if kar <> ‘ ‘ then write(kar:2);

end;

if t.atas <> 0 then

begin

repeat

write(pop(t):2);

until t.atas = 0;

end;

end;

(*/program utama/*)

begin

repeat

clrscr;

writeln(‘  Mengubah Notasi Infix menjadi Postfix ‘);

writeln(‘  Dengan memanfaatkan Struktur Stack ‘);

writeln;

write(‘ Masukkan notasi Infix: ‘); readln(notasiinfix);

writeln;

write(‘ Hasil notasi Postfix: ‘);

konversiinfix(notasiinfix);

writeln; writeln;

write(‘ Coba Lagi (Y/T): ‘); readln(lagi);

until lagi in [‘T’,’t’,’N’,’n’];

end.

Advertisements

TEKNOLOGI PC TAHUN 2010

•December 11, 2009 • Leave a Comment

Sudah kita ketahui bahwa setiap tahun, bahkan setiap bulan atau minggu akan bermunculan teknologi baru baik itu untuk PC Desktop maupun Notebook. Ada saja teknologi PC baru yang diluncurkan atau sekedar perbaikan dari teknologi sebelumnya. Lalu, teknologi PC apa saja yang akan muncul pada tahun 2010?

Processor

Dari perusahaan Intel. Processor desktop yang paling cepat saat ini, yaitu Intel Core i7 yang berharga mahal, sudah bisa didapatkan dengan harga yang sangat terjangkau. Processor tersebut berkode nama Lynnfield. Lynnfield menggunakan microarchitecture yang sama dengan Intel Core i7 yang berkode nama Bloomfield. Namun, keduanya terdapat perbedaan, yaitu jumlah pin yang dimilikinya. Tentunya kedua processor tersebut akan menggunakan socket motherboard yang berbeda pula. Lynnfield akan menggunakan LGA1156 dan Bloomfield menggunakan LGA1366. Untuk lebih jelas klik sini.

Lalu, bagaimana dengan AMD? Saat ini AMD sedang mengembangkan processor yang rencananya akan diluncurkan pada tahun 2011 dengan pabrikasi 32 nm. Untuk processor kelas High-End, AMD akan membuat chip dengan kode nama Orochi. Sedangkan untuk processor mainstream, AMD berencana meluncurkan Llano, yang memiliki 4 MB cache.

Video Card

Saat ini Microsoft sedang mengembangkan teknologi Microsoft Direct3D 11 graphics API atau lebih dikenal dengan DirectX11. DirectX11 memiliki 3 fitur terbaru, yaitu Tessellation, Multi-Threading, DirectCompute. Untuk lebih jelasnya klik sini. Dengan adanya directX11 ini akan bermunculan Video Card yang mendukung teknologi tersebut.

Dari perusahaan AMD. AMD sudah menyiapkan teknologi barunya yang dibangun pada pabrikasi 40 nm, sama seperti Radeon HD 4890. GPU ini akan menghadirkan semua teknologi yang ada di DirectX11. GPU ini akan diberikan kode nama Evergreen yang diperkirakan akan memiliki lebih dari 1 miliar transistor.

Nvidia sendiri sudah menyiapkan produk yang berteknologi sama, yaitu mendukung teknologi yang ada di dalam DirectX11. Chipset GPU yang akan digunakan adalah GT300, dimana ia akan menggunakan pabrikasi 40 nm.

Media Penyimpanan

Saat ini, sudah ada storage dengan kapasitas 2 TB. Kecepatan rata-rata yang dipakai seperti biasa. Untuk ukuran 2.5” adalah 5400 rpm dan 3.5” adalah 7200 rpm. Berbeda dengan harddisk external yang memiliki interface. Harddisk external tidak hanya menggunakan koneksi USB dan e-Sata, tetapi juga akan menggunakan koneksi Firewire. Untuk berikutnya mungkin akan hadir storage dengan kapasitas 3 TB.

Untuk SSD (Solid State Drive), diperkirakan akan hadir kapaitas antara 320 GB sampai dengan 500 GB.

USB 3.0

Ini adalah teknologi yang paling ditunggu. Kecepatan transfer rate USB 3.0 akan meningkat 10 kali lipat dari USB 2.0. Jika pada USB 2.0 memiliki transer 480 Mb/s, maka pada USB 3.0 akan memiliki transfer rate sebesar 4.8 Gb/s.

usb3_diagram

Sumber: Artikel Majalah PC Media edisi 1/2010

Cara mencompile di COBOL

•December 11, 2009 • Leave a Comment

Pastikan anda memiliki cobol compiler telebih dahulu. Untuk menuliskan porgram cobol, anda dapat menggunakan editor sperti notepad, notepad++, dll. Coba anda ketikkan program seperti di bawah.

0001   IDENTIFICATION DIVISION.
0002   PROGRAM-ID. HELLO.
0003   AUTHOR. NAMAMU.
0004   ENVIRONMENT DIVISION.
0005   DATA DIVISION.
0006   SCREEN SECTION.
0007   01 HAPUS-LAYAR.
0008      02 BLANK SCREEN.
0009   PROCEDURE DIVISION.
0010   MULAI.
0011         DISPLAY HAPUS-LAYAR.
0012         DISPLAY “HELLO WORLD!!!”.
0013         STOP RUN.

File harus disimpan di dalam folder Cobol. Simpan dengan format [namafile.cob]. Pada contoh saya menyimpannya dengan nama HELLO.COB. Untuk mengcompilenya, anda dapat menggunakan Command Line. Pilih Run, lalu ketikkan cmd. Masuklah ke dalam direktori Cobol melalui command line. misalkan direktori Cobol anda berada di drive C: maka ketikkanlah cd cobol. Jika anda sudah berada dalam direktori cobol, C:\COBOL>. Ketikkan COBOL HELLO.COB, lalu tekan enter tiga kali dan akan muncul pesan seperti dibawah.

GAMBAR2

Jika tertulis No errors or warnings, maka selamat anda telah berhasil. Sampai disitu saja? ya, cukup sampai disitu aja. Jika anda ingin melihat hasilnya, ketikkan RUNCOB HELLO (tidak perlu menggunakan .cob lagi).

Output:

GAMABAR3

Hello world!

•December 11, 2009 • 1 Comment

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!