Program Pascal Memisahkan Huruf Konsonan Dan vokal

Berikut ini adalah program pascal untuk memisahkan mana huruf konsonan dan mana huruf  vokal...

Program vockon;

uses crt;

var kalimat,vokal,konsonan : string;

    a : byte;

begin

clrscr;

writeln('                               created by :  ardidjomi@blogspot.com');

writeln;

writeln('Program Pemisah Huruf Vokal dengan Konsonan');

writeln;

write('masukkan kalimat : ');readln(kalimat);

for a := 1 to length(kalimat) do

begin

if (kalimat[a]='A') or (kalimat[a]='a') or

   (kalimat[a]='I') or (kalimat[a]='i') or

   (kalimat[a]='O') or (kalimat[a]='o') or

   (kalimat[a]='U') or (kalimat[a]='u') or

   (kalimat[a]='E') or (kalimat[a]='e') then

vokal := vokal + kalimat[a]

else

konsonan := konsonan + kalimat[a];

end;

writeln;

writeln('huruf vokal    = ',vokal);

writeln('huruf konsonan = ',konsonan);

readln;

end.

berikut ini penampakan hasil running programnya.....

sekian....

semoga bermanfaat ya....

Continue reading Program Pascal Memisahkan Huruf Konsonan Dan vokal

Program Pascal Unik Untuk Nembak Pacar

Sesuai dengan judulnya, program buat nembak pacar, hehe... ini iseng-iseng aja...


program nembakcewek;
uses crt;
var i,j,n,x:integer;
begin
clrscr;
gotoxy(10,1);writeln ('Sudah lama aku menanti disaat ini');
gotoxy(10,2);writeln ('sungguh aku kaku jika harus');
gotoxy(10,3);writeln ('mengutarakannya secara langsung');
gotoxy(10,4);writeln ('dan inilah kesempatan ku');
gotoxy(10,5);writeln ('Adinda Maukah engkau menjadi sebagian dari hidupku');
gotoxy(10,6);writeln ('menjadi kekasih ku..?');
gotoxy(10,8);writeln ('Jika Ya pilih angka 1');
gotoxy(10,9);writeln ('Jika Ragu pilih angka 2');
gotoxy(10,10);writeln('Jika Tidak pilih angka 3');
gotoxy(10,11);writeln ('Aku menanti jawaban darimu');
gotoxy(10,12);readln(x);
if x=1 then
begin
gotoxy(10,13);writeln('Ya, Sungguh aku tak percaya aku bahagia');
gotoxy(10,14);writeln('engkau telah memilihku dan aku ingin menjadi kekasihmu');
textcolor(red);
n:=3;
for i:=1 to n*3 do
begin
for j:=1 to n*4 do
begin
delay(10);
if (i+j=n+1) or (i>=n) and (i=j+n)
or (i>=n) and (j>=n) and (i+j=n*4+n+1) or (i<=n) and (j>=n*3) and (j=n*3+i)
or (i<=n) and (j>=n) and (j<=n*2) and (i+n=j) or (i<=n) and (j>=n*2) and (j<=n*3)
and (i+j=n*3+1) then
write('*')
else
write(' ');
end;
writeln;
end;
writeln('Terima kasih telah menerima ku :)');

end
else
if x=2 then
writeln('Ragu, oh baiklah aku akan menunggumu')
else
if x=3 then
writeln('Tidak, emangnya aku masih kurang apa sih?');
readln;
end.


Nah ini hasil screenshoot running programnya...
fust for fun... :)

Continue reading Program Pascal Unik Untuk Nembak Pacar

ADA CERITA DI ASRAMA TELKOM UNIVERSITY

Wah, gak terasa sudah selesai tingkat pertama di kampus ini , perasaan ane dulu masih MaBa (Mahasiswa Baru), rasanya baru kemarin ane menginjakan kaki di asrama ini, sekarang sudah mau diusir aja, hehe....

Hampir setahun ane tinggal di asrama, kurang lebih 9 bulan ane menikmati asrama ini. kalau yang ane rasain selama ini cukup nyaman dan aman tinggal diasrama Telkom University ini. Kamarnya cukup lah buat dihuni 4 orang. terus yang paling ane suka dari tempat ini adalah WiFi internet gratissss. Kalo mau lebih kenceng lagi bisa bayar Wifi.id yang sebulannya cukup membayar 50 ribu. tapi dijamin kenceng kalo dipake saat tengah malam hingga pagi hari, karena tetangga kamar pada tidur pas jam segitu, jadi kenceng banget kalau pake pas jam- jam segitu :).
Airnya juga bagus dan lancar, walaupun pernah waktu ane tingal disana airnya mati, namun itu hanya beberapa hari karena sedang ada perbaikan instalasi. Kalo buat listrik, sistemnya prabayar pakai token listrik. Dihitung-hitung sebulannya bisa habis 50-100 ribu, kalo dibagi 4 orang penghuni jadi bayarnya cuma 15-25 ribu sebulan, tergantung pemakaian.

Kekurangannya kalau tinggal di asrama yaitu harga makanan di kantin asrama yang agak mahal menurut ane. Mungkin karena mereka juga harus bayar biaya sewa. Kalau mau beli makanan yang murah harus pergi keluar dulu yang lumayan jauh kalau jalan kaki. Tapi tenang pengelola asrama menyediakan sepeda khusus untuk penghuni asrama dan boleh dipinjam sesuka hati. tapi lebih enak lagi kalo bawa motor atau sepeda sendiri biar enak kemana-mana. Jangan khawatir, sudah disediakan lahan parkir yang luas untuk sepeda dan motor yang lumayan luas, jadi kalo mau bawa kendaraan sendiri silahkan saja.

Disana terdapat 8 gedung untuk putra dan 7 gedung untuk putri, Desain banguannya seperti rumah susun yang terdiri dari 4 lantai, setiap lantainya terdapat lobby untuk sekerdar menonton tv dan belajar bersama. Setiap gedungnya ada helpdesk yang menjaga dan siap melayani penghuni asrama.
dan kalau mau keluar kunci kamar tidak boleh dibawa, harus dititipkan ke helpdesk.
Asrama ditutup pukul 11 malam, jadi kalau lebih dari itu kalian bisa masuk lewat jendela, terus ambil kuncinya di satpam karena helpdesknya udah pulang.

Didalam kamar sudah disediakan ranjang dan kasurnya, bentuk ranjangnya tingkat, jadi dikamar terdapat 2 ranjang, lalu disediakan pula meja belajar dan kursinya, dispenser dan kamar mandi di dalam.

Penampakan asrama putri

Penampakan asrama putra

Oh iya nih ada cerita yang gak pantas ditiru. kebetulan ane tuh dapet gedung 7 gudeng paling pojok dan terpencil udah gitu di lantai 4 lagi, kebayang kan gimana rasanya turun naik tangga tiap hari, tapi lama- kelamaan terbiasa. Oh iya balik lagi ke ceritanya, di sebelah gedung ane tuh ada gedung para bule cewe dari luar negeri yang ikut kuliah disini dan ada juga yang ikut program pertukaran pelajar gitu. gak sengaja ane ngeliat dari lantai 4 ada yang lagi mandi di lantai dua gedung sebelah, ane langsung kaget, ternyata tetangga kamar sebelah sudah memperhatikannya dari kemaren langsung ke kamar ane karena view di kamar ane lebih jelas. kalo ane sih gak sengaja langsung buang pandangan dan gak ngeliat ke sana lagi, hehe..

Bagi yang mau masuk Telkom University ane saranin cobain tinggal di asrama selama setahun, selain diwajibkan bagi Mahasiswa Baru, asrama itu cocok banget buat beradaptasi dengan lingkungan di kampus, selain itu dekat juga dengan kampus, jadi bisa bolak-baik ke asrama kalo ada jam kosong, lumayan buat istirahat sebentar. Harga sewa asrama juga sangat murah kok dibanding harga kost-kostan. Ada pula kegiatan-kegiatan seru tiap bulannya, seperti pelatihan softskill, kerohaniaan dan kegiatan bermanfaat lainnya.

Oh iya sekedar tips buat nambah uang jajan, yaitu dengan berwirausaha kecil-kecilan. Biasanya anak asrama tuh paling butuh yang namanya printer, jadi kalo lu punya printer dirumah, bawa aja dan lu jadiin ladang bisnis, kan lumayan bisa nambah uang jajan.

info lebih lanjut http://telkomuniversity.ac.id/id/campus/dormitory

sekian cerita singkat ini, ane sih cuma mau berbagi pengalaman.
semoga bermanfaat :)

Continue reading ADA CERITA DI ASRAMA TELKOM UNIVERSITY