4.01.2011

Langkah - langkah Open SSL (Linux Red Hat 7.3)Valhalla

Link download openssl-too-open.tar disni
Link download ptrace-kmod.c dsni
Rule bisa download dsni

Thank's...

11.02.2010

Perancangan & Implementasi Jaringan Komputer

Membuat Webserver pada Linux Fedora :

Nih langkah - langkah untuk membuat webserver pada Lunix Fedora 8 :

  • Download langkah - langkah nya di sini.
Keep your Smile...

10.28.2010

Perancangan & Implementasi Jaringan Komputer

Membuat DNS pada Fedora8 :


Hi, kawan-kawan ini adalah langkah - langkah menginstall fedora 8 pada Vmware v.6

Langkah - langkahnya bisa di donlot di sni :

  • VmWare 6.0.4 -->Download disni
  • Install Fedora 8 --> Download disni
Have a nice day..

10.02.2009

Program Cek kelulusan dalam bahasa Pascal

ɐʎu ʞıʇǝƃu ǝdɯɐ ɥıu lǝƃǝd ˙˙˙ɐʎu ƃuıpoɔ ɐʎ ɐƃnɾ ʞɐʎuɐq ´ɥınʍ ˙˙˙ʞıʇǝƃuǝɯ ʇɐɯɐlǝs

program cek_kelulusan_siswa;
uses crt;
var
nama : string[25];
kelas : string[5];
no_absen : string[3];
n_tugas : byte;
n_u_hari : byte;
n_u_umum : byte;
rerata : real;
lulus : boolean;
predikat : string[20];
begin
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln('Input Data Siswa');
writeln('----------------');
write('Nama : '); readln(nama);
write('Kelas : '); readln(kelas);
write('No Absen : '); readln(no_absen);
write('Nilai Tugas : '); readln(n_tugas);
write('Nilai Ulangan Harian : '); readln(n_u_hari);
write('Nilai Ulangan Umum : '); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln(' Siswa dengan');
writeln('----------------');
writeln('Nama : ',nama);
writeln('Kelas : ',kelas);
writeln('No Absen : ',no_absen);
writeln('Nilai Tugas : ',n_tugas);
writeln('Nilai Ulangan Harian : ',n_u_hari);
writeln('Nilai Ulangan Umum : ',n_u_umum);
writeln('Rata - rata : ',rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:='memuaskan'
else if rerata <90 then predikat:='sangat memuaskan'
else predikat:='dengan pujian';
writeln('Dinyatakan Lulus dengan ',predikat);
end
else
writeln('Dinyatakan Tidak Lulus');
readln;
end.