Mimpi

Obralan kecil dikamar menjadi inspirasi tulisan ini dibuat. Pembicaraan tentang MIMPI.

Sekarang gue Tanya, apa pernah kalian bermimpi? Gue tebak kalo semua orang pasti pernah bermimpi akan sesuatu. Entah memimpikan tentang dirinya sendiri atau orang lain.

Atau bermimpi jika suatu saat gue punya ini gue pasti akan bla bla bla.

Tapi kasusnya apa pernah saat semuanya yang kalian bayangkan itu datang mimpi kalian yang dulu itu kalian lakukan? Contoh kecilnya saat kalian bermimpi “kalo suatu saat nanti gue bisa internetan 24jam dikamar gue. Gue akan begini, ngelakuin ini dan begini begini begini..” tapi setelah lo dapat hal itu semua apa lo kerjain semua yang udah lo impiin kemarin?

Balik lagi ke orangnya sebenernya, tapi yang gue liat selama ini adalah Cuma sedikit orang yang melakukan apa yang diimpikannya tersebut dan sisanya hanya terbawa oleh mimpi yang mereka buat sendiri.

Contohnya lagi saat lo beli HP saat lo beli lo mau di hp lo ada MP3, video, GPRS, dan semua kecanggihannya ada di HP lo. Tapi setelah lo beli dan waktu berjalan 7bulan atau 1tahun lebih apa kalian masih mengagumkan semua piranti yang ada di HP kalian beli itu? pasti semua kembali ke hakikat HP tersebut pertama kali di produksi HANYA UNTUK KOMUNIKASI entah itu sms atau tlp aja.

Iah kan?

Jadi intinya kalo sekarang kalian punya mimpi, sejauh apapun mimpi itu kalian catat dalam kertas semua mimpi itu dan nanti saat mimpi itu datang dan terwujud kalian ambil lagi kertas tersebut dan kalian BACA semua yang akan kalian lakukan saat mimpi itu datang. apakah yang ingin anda lakukan dalam mimpi kalian dulu  sudah kalian lakukan?

Read more..

pengubah notasi posfit :)

uses crt;

const max_elemen = 255;

type s255 = string [max_elemen];
tumpukan = record
rinci : s255;
atas : 0..max_elemen
end;

var infix : s255;
lagi : char;

function valensi (tanda_op : char) : integer;
begin
case tanda_op of
'^' : valensi := 3;
'*', '/' : valensi := 2;
'+', '-' : valensi := 1;
'(' : valensi := 0
end
end;

procedure push (var t : tumpukan; elemen : char);
begin
t.atas := t.atas +1;
t.rinci[t.atas] := elemen
end;

function pop (var t : tumpukan) : char;
begin
pop := t.rinci[t.atas];
t.atas := t.atas - 1
end;

procedure konversi_cetak (infix : s255);
var i : integer;
operator : set of char;
temp, kar : char;
t : tumpukan;
test : boolean;
begin
operator := ['^']+['*']+['/']+['+']+['-'];
for i := 1 to length (infix) do
begin
kar := infix[i];
if kar = '(' then push (t, kar)
else if kar = ')' then
begin
while t.rinci[t.atas] <> '(' do
write (pop(t) : 2);
temp := pop(t)
end
else if kar in operator then
begin
while (t.atas <> 0 ) and (valensi(kar)
<= valensi (t.rinci[t.atas])) do write (pop(t) : 2); push (t, kar) end else if kar <> ' ' then
write (kar : 2)
end;

if t.atas <> 0 then
repeat
write (pop(t):2)
until t.atas = 0
end;

begin
clrscr;
writeln ('Mengubah Notasi Infix Menjadi Postfix');
writeln ('Dengan Memanfaatkan Struktur Tumpukan');
writeln ('-------------------------------------');
writeln ;
repeat
write ('Masukkan Ungkapan Infix : ');
readln (infix); writeln;
write ('Ungkapan Postfix : ');
konversi_cetak (infix);
writeln; writeln;
write ('Akan Mencoba Lagi ? y(a) / t(idak) : ');
readln (lagi);
writeln
until not (lagi in ['Y', 'y'])
end. Read more..

Tugas SOD2- menggunakan paskal.

uses crt;
var
a,b,c,d,e : integer;
pilihan : byte;
x,y,str1,str2: string[99];
z:char;
label o,n,m;
begin
clrscr;
o:writeln(‘<<

>>’);
writeln(’1.Input String’);
writeln(’2.Mencari Panjang String’);
writeln(’3.Menggabungkan String’);
writeln(’4.Menyisipkan String’);
writeln(’5.Exit’);
writeln;
writeln(‘Ketik Pilihan Anda’);
readln(pilihan);
case pilihan of
1 : begin
clrscr;
writeln(‘Masukan 2 String yang ingin di proses : ‘);
writeln(‘String 1: ‘);
readln(x);
writeln(‘String 2: ‘);
readln(y);
readln;
goto o;
end;
2 : begin
clrscr;
writeln(‘Masukan String yang ingin di hitung panjangnya: ‘);
readln(a);
if a = 1 then
begin
writeln(‘Panjang String 1: ‘,length(x));
end
else
if a = 2 then
begin
writeln(‘Panjang String 2: ‘,length(y));
end
else
begin
writeln (‘Maaf string yang di maksud tidak tersedia’);
end;
readln;
clrscr;
goto o;
end;

3: begin
clrscr;
n:writeln(‘Untuk String 1 ke string 2 (y/n) : ‘);
readln (z);
if z = ‘y’ then
begin
writeln(‘Hasil penggabungan : ‘,concat(x,y));
readln;
goto o;
end
else if z = ‘n’ then
begin
writeln(‘Untuk String 2 ke string 1 (y/n): ‘);
readln(z);
if z = ‘y’ then
begin
writeln(‘Hasil penggabungan : ‘,concat(y,x));
readln;
goto o;
end
else
writeln(‘Ingin Kembali ke Menu utama ? (y/n) :’);
readln(z);
if z = ‘y’ then
begin
clrscr;
goto o;
end
else
goto n;
end;
end;
4: begin
clrscr;
writeln(‘Masukan nomor string yang akan di sisipkan :’);
readln(b);
writeln(‘Masukan nomor string sebagai penyisip: ‘);
readln(c);
writeln(‘Masukan posisi String untuk di sisipkan: ‘);
readln(d);
if b = 1 then
begin
write(‘Hasilnya : ‘);
insert(x,y,d);
writeln(y);
readln;
goto o;
end
else if b = 2 then
begin
write(‘Hasilnya : ‘ );
insert(y,x,d);
writeln(x);
readln;
clrscr;
goto o;
end;
end;
5: begin
end;
end;
end. Read more..