Computer Science Blog Comments http://gudeg.blogsome.com Computer Science Blog Tue, 08 Dec 2009 13:13:23 +0000 http://wordpress.org/?v=1.5.1-alpha by: hertzz http://gudeg.blogsome.com/2007/06/12/program-konversi-bilangan-desimal-ke-biner/#comment-11 Tue, 30 Sep 2008 06:09:13 +0100 http://gudeg.blogsome.com/2007/06/12/program-konversi-bilangan-desimal-ke-biner/#comment-11 coding di bahasa c gmana? coding di bahasa c gmana?

]]> by: pung http://gudeg.blogsome.com/2007/06/12/tutorial-firebird-constraint-part-3/#comment-10 Mon, 12 May 2008 01:00:32 +0100 http://gudeg.blogsome.com/2007/06/12/tutorial-firebird-constraint-part-3/#comment-10 OK OK

]]> by: mba_dica http://gudeg.blogsome.com/2007/06/12/program-konversi-bilangan-desimal-ke-biner/#comment-9 Thu, 17 Apr 2008 09:04:51 +0100 http://gudeg.blogsome.com/2007/06/12/program-konversi-bilangan-desimal-ke-biner/#comment-9 minta tolong dunk konversi bilangan yan lengkap,misalnya dari biner e hexadecimal dan oktal ke hexadecimal. Tolong y mas Terima Kasih minta tolong dunk konversi bilangan yan lengkap,misalnya dari biner e hexadecimal dan oktal ke hexadecimal.

Tolong y mas

Terima Kasih

]]> by: theodolite http://gudeg.blogsome.com/2007/06/26/procedure-dalam-pascal/#comment-8 Wed, 26 Mar 2008 20:53:05 +0000 http://gudeg.blogsome.com/2007/06/26/procedure-dalam-pascal/#comment-8 salam kenal, informasi yang menarik. thanx :) salam kenal, informasi yang menarik.

thanx :)

]]> by: theodolite http://gudeg.blogsome.com/2007/06/26/procedure-dalam-pascal/#comment-7 Wed, 26 Mar 2008 20:52:00 +0000 http://gudeg.blogsome.com/2007/06/26/procedure-dalam-pascal/#comment-7 salam kenal, informasi yang menarik. thanx :) salam kenal, informasi yang menarik.

thanx :)

]]> by: hendri http://gudeg.blogsome.com/2007/06/12/tutorial-firebird-part-1/#comment-6 Tue, 11 Dec 2007 06:35:41 +0000 http://gudeg.blogsome.com/2007/06/12/tutorial-firebird-part-1/#comment-6 hi...saya pemula, thks hi…saya pemula, thks

]]> by: dezie http://gudeg.blogsome.com/2007/06/12/hanging-out-bareng-2-x-urang/#comment-5 Tue, 12 Jun 2007 14:53:29 +0100 http://gudeg.blogsome.com/2007/06/12/hanging-out-bareng-2-x-urang/#comment-5 eh... tuh yang naik ayunan Zhantickhh amat zeeh... tapi kayanya yang satunya butuh diet tuch :D makanya jangan sering-sering diajak ke kantin ya.. BTW n'tar juga kuyus cendili...kalo tiap ali dikacih tugas ma pak docen qt.. moga2 yang hanging out lulus cemua dech!! sebelum hanging out kan.. PR nya dah celecay cemua...hehe ;p eh… tuh yang naik ayunan Zhantickhh amat zeeh… tapi kayanya yang satunya butuh diet tuch :D makanya jangan sering-sering diajak ke kantin ya..
BTW n’tar juga kuyus cendili…kalo tiap ali dikacih tugas ma pak docen qt.. moga2 yang hanging out lulus cemua dech!! sebelum hanging out kan.. PR nya dah celecay cemua…hehe ;p

]]> by: aridhanyati http://gudeg.blogsome.com/2007/06/12/program-chaesar-chiper/#comment-4 Tue, 12 Jun 2007 08:13:41 +0100 http://gudeg.blogsome.com/2007/06/12/program-chaesar-chiper/#comment-4 program tadi, gak selalu benar, jika dimasukkan kata yang mengandung huruf z, maka enkripsinya tidak jadi huruf, malah ke karakter lain; perbaikkannya jadi sbb: Program kata_sandi; uses wincrt; var kata,sandi:string; i,n,key,key2:byte; begin write ('Masukkan Kata Yang Akan Disandikan:'); readln(kata); write ('Setelah dienkripsi Menjadi:'); key:=5; key2:=26; for i:=1 to length(kata) do {panjang kata} if (kata[i] in ['v'..'z']) {or (kata[i] in ['V'..'Z'])} then begin kata[i]:= chr(ord(kata[i])+key-key2); write (kata[i]); end else if kata[i] in ['V'..'Z'] then begin kata[i]:= chr(ord(kata[i])+key-key2); {krn batas yg mungkin utk maju 5 langkah hanya sampai 'U', maka agar kembali ke 'a..z', hrf -26} write (kata[i]); end else begin kata[i]:= chr(ord(kata[i])+key); {maju ke huruf berikutnya 5 langkah} write (kata[i]); end ; end. program tadi, gak selalu benar, jika dimasukkan kata yang mengandung huruf z, maka enkripsinya tidak jadi huruf, malah ke karakter lain; perbaikkannya jadi sbb:

Program kata_sandi;

uses wincrt;
var
kata,sandi:string;
i,n,key,key2:byte;

begin

write (’Masukkan Kata Yang Akan Disandikan:’); readln(kata);
write (’Setelah dienkripsi Menjadi:’);
key:=5;
key2:=26;
for i:=1 to length(kata) do {panjang kata}

if (kata[i] in [’v’..’z']) {or (kata[i] in [’V’..’Z'])} then
begin
kata[i]:= chr(ord(kata[i])+key-key2);
write (kata[i]);
end
else
if kata[i] in [’V’..’Z'] then
begin
kata[i]:= chr(ord(kata[i])+key-key2); {krn batas yg mungkin utk maju 5 langkah hanya sampai ‘U’,
maka agar kembali ke ‘a..z’, hrf -26}
write (kata[i]);
end
else
begin
kata[i]:= chr(ord(kata[i])+key); {maju ke huruf berikutnya 5 langkah}
write (kata[i]);
end ;

end.

]]> by: dezie http://gudeg.blogsome.com/2007/06/12/hanging-out-bareng-2-x-urang/#comment-3 Tue, 12 Jun 2007 07:29:23 +0100 http://gudeg.blogsome.com/2007/06/12/hanging-out-bareng-2-x-urang/#comment-3 T..O..P.. B..G..T..Lha... T..O..P..
B..G..T..Lha…

]]> by: E-ed http://gudeg.blogsome.com/2007/06/12/hanging-out-bareng-2-x-urang/#comment-2 Tue, 12 Jun 2007 06:02:10 +0100 http://gudeg.blogsome.com/2007/06/12/hanging-out-bareng-2-x-urang/#comment-2 UeebaaaT.. euy, yang nampang gantenk n' cantik2, trus info materinya membantu sekali, thx to Admin. Keep going like that oce.. :p UeebaaaT.. euy, yang nampang gantenk n’ cantik2, trus info materinya membantu sekali, thx to Admin. Keep going like that oce.. :p

]]>