This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Kamis, 10 Januari 2013

huft... cape rasa na capek diem-dieman trus , dicuekin habis-habisan mending akhiri saja dari pada sakit ha...

Selasa, 08 Januari 2013

menghitung gaji karyawan dengan case pada turbo pascal

program gajicase;uses crt;vara,b:longint;tampil:char;nama:string[50];jamkerja1:longint;jamkerja:longint;golongan:char;golongan1:longint;beginjamkerja1:=48;tampil := 'y';while (tampil = 'y') or (tampil = 'Y') dobeginclrscr;gotoxy(22,1);writeln('Program Gaji Karyawan by Nurul Hidayah');gotoxy(22,2);writeln('===============================================');gotoxy(30,3);write('* Masukan Nama Pegawai : ');Readln(nama);gotoxy(23,4);write('* Masukan jam kerja selama satu minggu : ');Readln(jamkerja);gotoxy(30,5);write('* Masukan golongan A,B,C,D ');readln(golongan);gotoxy(25,6);writeln('----------------------------------');case...

kalkulator sederhana dengan case

uses crt;varx,y,hasil:real;lagi : char;beginlagi :='y';while(lagi = 'y') or (lagi= 'Y')dobegintextcolor(7);textbackground(1);beginclrscr;       write('Selamat Datang di Kalkulator Saya');       writeln;       write ('masukan angka ke-1:');readln (x);       write ('operator (+)/(-)/(*)/(/) = ');readln (lagi);       write ('masukan angka ke-2:');readln (y);beginif (lagi='+')thenhasil:=x+yend;beginif...

menghitung luas persegi dengan case

uses crt;varpanjang:real;luas:real;lebar:real;keliling:real;diagonal:real;pilihan:longint;tampil:char;begintampil := 'y';while (tampil = 'y') or (tampil = 'Y') dobegintextcolor(7);textbackground(1);textmode(80);beginclrscr;gotoxy(19,1);writeln('---PROGRAM PERSEGI PANJANG BY NURUL HIDAYAH---');gotoxy(19,2);writeln('--------------1 Menghitung Luas---------------');gotoxy(19,3);writeln('-----------2 menghitung keliling--------------');gotoxy(19,4);writeln('--------3 menghitung diagonal persegi---------');gotoxy(19,5);write('pilihan:');readln (pilihan);case...

menghitung gaji dengan if dalam turbo pascal

uses crt;varnama:string[60];tampil:char;jamkerja:longint;jamnormal:longint;golongan:char;upahperjam:longint;beginjamnormal:=48;tampil := 'y';while (tampil = 'y') or (tampil = 'Y') dobegintextcolor(7);textbackground(1);clrscr;write('Program Gaji Karyawan by Nurul Hidayah');writeln;write('Masukan Nama Pegawai : ');readln (nama);write('Masukan Jam Kerja selama satu minggu : ');readln (jamkerja);write('Masukan Golongan A,B,C,D : ');readln (golongan);if (golongan = 'A') or (golongan = 'a') then upahperjam := 4000else if (golongan = 'B') or (golongan...

looping dengan turbo pasacal penggunaan for to do uses wincrt; var I : integer; begin for I:=1 to 5 do writeln('testing',I); readln; end. penggunaan for downto do uses wincrt; var I : integer; begin for I:=5 downto 1 do writeln('testing',I); readln; end. penggunaan repeat until uses wincrt; var i : integer; begin i:=0; repeat i:=i+1; writeln('testing',i); until i=5; readln; end. penggunaan while do uses wincrt; var I : integer; begin clrscr; while I<=5 do begin writeln('testing',I); I:=I+1; ...

Minggu, 06 Januari 2013

rasa na hari ini adalah hari terakhir kau menggantungkan diriku ,,,dan mungkin ini keputusan mu yang sangat singkat.. kejar aja impian mu...q jga ga kan berharap sesuatu apapun dari kmu... q kan berusaha sendiri meski q terjatuh berulang-ulang...meski itu sakit tapi memeng ini resiko q..harus begini.. kan da ahmad, mas budi dan teman" yang lain na ... bsa bantu q,,dalam apapun.. dan q ga mw mengandalkan dirimu lagi...