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

Read More

menghitung gaji karyawan dengan case pada turbo pascal

program gajicase;
uses crt;
var


a,b:longint;
tampil:char;
nama:string[50];
jamkerja1:longint;
jamkerja:longint;
golongan:char;
golongan1:longint;

begin
jamkerja1:=48;
tampil := 'y';

while (tampil = 'y') or (tampil = 'Y') do
begin
clrscr;
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 golongan of
'a','A':golongan1 :=4000;
'b','B':golongan1 :=5000;
'c','C':golongan1 :=6000;
'd','D':golongan1 :=7500;
 end;
 if jamkerja > jamkerja1 then
begin
gotoxy(25,7);writeln('Gaji Atas Nama : ',nama);
gotoxy(25,8);writeln('Gaji Lembur    : ',jamkerja-jamkerja1,' X 3000 = ',(jamkerja-jamkerja1)*3000);
gotoxy(25,9);writeln('Gaji Normal    : ',jamkerja1,' X ',golongan1,' = ',jamkerja1*golongan1);
gotoxy(25,10);writeln('-----------------------------------+');
gotoxy(25,11);writeln('Total Gaji per minggu      = ',(jamkerja-jamkerja1)*3000 + (jamkerja1*golongan1));
gotoxy(25,12);writeln('----------------------------------');
gotoxy(25,13);write('Kembali ke Menu Gaji (y/n)');readln(tampil);
end;
case golongan of
'a','A':golongan1 :=4000;
'b','B':golongan1 :=5000;
'c','C':golongan1 :=6000;
'd','D':golongan1 :=7500;
 end;

if jamkerja <= jamkerja1 then
begin
gotoxy(25,7);writeln('Gaji Atas Nama : ',nama);
gotoxy(25,8);writeln('Gaji Lembur    : ',jamkerja1-jamkerja1,'  X 3000 = ',(jamkerja1-jamkerja1)*3000);
gotoxy(25,9);writeln('Gaji Normal    : ',jamkerja,'  X ',golongan1,' = ',jamkerja*golongan1);
gotoxy(25,10);writeln('-----------------------------------+');
gotoxy(25,11);writeln('Total Gaji per minggu      = ',jamkerja*golongan1);
gotoxy(25,12);writeln('----------------------------------');
gotoxy(25,13);write('Kembali ke Menu Gaji (y/n)');readln(tampil);
end;
end;
end.

Read More

kalkulator sederhana dengan case

uses crt;
var
x,y,hasil:real;
lagi : char;
begin
lagi :='y';
while(lagi = 'y') or (lagi= 'Y')do
begin
textcolor(7);
textbackground(1);
begin
clrscr;
       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);
begin
if (lagi='+')then
hasil:=x+y
end;
begin
if (lagi='-')then
hasil:=x-y
end;
begin
if (lagi='*')then
hasil:=x*y
end;
begin
if (lagi='/')then
hasil:=x/y
end;
write ('hasil = ',hasil :12:0);
writeln;
write('Mau hitung lagi apa tidak ....? (y/t)');
readln(lagi);
end;
end;
end.

Read More

menghitung luas persegi dengan case

uses crt;
var
panjang:real;
luas:real;
lebar:real;
keliling:real;
diagonal:real;
pilihan:longint;
tampil:char;
begin
tampil := 'y';
while (tampil = 'y') or (tampil = 'Y') do
begin
textcolor(7);
textbackground(1);
textmode(80);
begin
clrscr;
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 pilihan of
1: begin

gotoxy(19,6);write('masukan panjang = '); readln(panjang);
gotoxy(19,7);write('masukan lebar   = '); readln(lebar);
luas :=panjang*lebar;
gotoxy(19,8);writeln ('luas         = ',luas :12:0);readln;
gotoxy(19,9);write('Mau menghitung lagi atau tidak...? (y/n)');readln(tampil);
end;
2: begin

gotoxy(19,10);write('masukan panjang = '); readln(panjang);
gotoxy(19,11);write('masukan lebar   = '); readln(lebar);
keliling :=2*(panjang+lebar);
gotoxy(19,12);writeln ('keliling     = ',keliling :12:0);
readln;
gotoxy(19,13);writeln ('mau menghitung (y/n)');readln(tampil);
end;
3: begin

gotoxy(19,14);write ('masukan panjang ='); readln(panjang);
gotoxy(19,15);write ('masukan lebar   ='); readln(lebar);
diagonal :=sqrt(sqr(panjang)+sqr(lebar));
gotoxy(19,20);writeln ('diagonal      = ',diagonal :12:0);
readln;
writeln ('mau menghitung (y/n)');readln(tampil);
end;
end;
end;
end;
end.

Read More

menghitung gaji dengan if dalam turbo pascal

uses crt;
var
nama:string[60];
tampil:char;
jamkerja:longint;
jamnormal:longint;
golongan:char;
upahperjam:longint;
begin
jamnormal:=48;
tampil := 'y';

while (tampil = 'y') or (tampil = 'Y') do
begin
textcolor(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 := 4000
else if (golongan = 'B') or (golongan = 'b') then upahperjam :=5000
else if (golongan = 'C') or (golongan = 'c') then upahperjam :=6000
else if (golongan = 'D') or (golongan = 'd') then upahperjam :=7500;

     if jamkerja > jamnormal then
begin
writeln('Gaji atas Karyawan : ',nama);
writeln('Gaji Lembur        : ',jamkerja-jamnormal,' X 3000 = ',(jamkerja-jamnormal)*3000);
writeln('Gaji Normal        : ',jamnormal,' X ',upahperjam,' = ',jamnormal*upahperjam);
writeln('Total Gaji Karyawan per minggu = ',(jamkerja-jamnormal)*3000 + (jamnormal*upahperjam));
writeln('kembali ke menu gaji (y/n)');readln(tampil);
end;


if jamkerja <= jamnormal then

begin
writeln('Gaji atas Karyawan : ',nama);
writeln('Gaji Lembur        : ',jamnormal-jamnormal,' X 3000 = ',(jamnormal-jamnormal)*3000);
writeln('Gaji Normal        : ',jamkerja,' X ',upahperjam,' = ',jamkerja*upahperjam);
writeln('Total Gaji Karyawan per minggu = ',(jamkerja*upahperjam));
writeln('kembali ke menu gaji (y/n)');readln(tampil);
end;
end;
end.

Read More

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;
end;
readln;
end.

 

Read More

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...

Read More