Minggu, 23 Februari 2014

Singkat pertemuan 1

Hay , hari ini aku akan menceritakan sebuah kisah yang munkin kamu-kamu menganggapnya sebagai kisah yang tidak jelas. Namun dari kisah ini saya menemukan sebuah pelajaran yang berharga. Pelajaran yang membuatku bisa melupakan masa laluku yang suram .

oke aku mulai yah ceritanya , hahahha ..... siap!!!

Dahulu kala ada seorang gadis yang menemui seorang pria ditengah hujan yang deras. Pria itu tengah duduk di bawa pohon besar. Tanpa ragu wanita itu langsung menyapa nya dengan ramah. kalian tahu apa yang dikatakna wanita itu ? ternyata wanita itu berkata, "Hay, kamu". Tetapi, pria yang tengah duduk tersebut, acuh dan tak menghiraukan apa yang dikatakan oleh wanita itu. Dengan PD (Percaya Diri) wanita itu memukul punggung si pria. "Hey, kamu. Kenapa tak menjawab sapaanku? kamu bisu atau memang sok tidak dengar?". Dengan memperlihatkan wajah yang tengah kedinginan, si pria langsung menjawab sapaan wanita itu, "maaf, ada apa yah?". wanita itu bingung, kenapa si pria ini ada di bawah pohon yang besar ditengah-tengah rintikan hujan yang begitu deras menghatam bumi. wanita itu terus menatap dalam-dalam mata si pria tersebut. Hingga mata mereka bertemu satu sama lain. seperti selayaknya wanita itu ingin mencium si pria. hahahahahah....... (MUNGKIN)!

CONTOH PROGRAM OPERASI STRING PADA PASCAL

1. BUATLAH PROGRAM DENGAN KETENTUAN SEBAGAI BERIKUT :
- MENCARI PANJANG DARI SEBUAH STRING
- MENGGABUNGKAN ISI DARI 2 BUAH STRING
- MENYISIPKAN ISI DARI SEBUAH STRING KEDALAM STRING LAIN
- PROGRAM BERBENTUK PILIHAN MENU

DALAM MEMBUAT PROGRAM INI SAYA MENGGUNAKAN PASCAL PROGRAM

BERIKUT INI ADALAH SINTAKS NYA :


program cobastring;
uses crt;
var
(*pendeklarasian tipe data variable*)
pil,hasil:integer;
s,s1,s2,hasilconcat,x1,x2:string;
(*string merupakan tipe data yang mengalokasikan ruang untuk 256 karakter*)
a,x:integer;
jawab: char;

begin
clrscr;
repeat
(*repeat untuk pengulangan yang akan terus di lakukan apabila kondisi yg di definisikan masih bernilai false*)
writeln('----------------MENU-----------------');
writeln('1. Mencari panjang dari sebuah string');
writeln('2. Menggabungkan isi dari 2 buah string');
writeln('3. Menyisipkan isi dari sebuah string kedalam string lain');
writeln;
writeln;
write('masukkan nomer menu yang anda pilih : ');readln(pil);