HavE yOu aLreAdY KnoW ??

Kamis, 25 Juni 2009

KALENDER GREGORIAN

Pertama, buatlah file dengan nama lahir.txt seperti berikut :

chyntia 15 1 1990
dauz 19 1 1990
mobed 7 12 1988
fina 23 5 1988
ilham 11 1 1990
angga 24 7 1988
yanuar 29 9 1990
sandra 25 4 1988
tyo 17 12 1990
andre 24 12 1988
widi 12 7 1986
ojik 14 1 1988
dicky 28 12 1990
anez 29 2 1988
putra 16 1 1990

Lalu, buat lagi file dengan nama cara.txt yang berisi :

{
thn=$4-1;
bln=$3-1;
thk=thn/4;
if(thn%4==1){b=0.25}
if(thn%4==2){b=0.50}
if(thn%4==3){b=0.75}
d=thk-b;
thb=thn-d;

if(bln==0 && $4%4!=0){a=0}
if(bln==1 && $4%4!=0){a=31}
if(bln==2 && $4%4!=0){a=59}
if(bln==3 && $4%4!=0){a=90}
if(bln==4 && $4%4!=0){a=120}
if(bln==5 && $4%4!=0){a=151}
if(bln==6 && $4%4!=0){a=181}
if(bln==7 && $4%4!=0){a=212}
if(bln==8 && $4%4!=0){a=243}
if(bln==9 && $4%4!=0){a=273}
if(bln==10 && $4%4!=0){a=304}
if(bln==11 && $4%4!=0){a=334}

if(bln==0 && $4%4==0){a=0}
if(bln==1 && $4%4==0){a=31}
if(bln==2 && $4%4==0){a=60}
if(bln==3 && $4%4==0){a=91}
if(bln==4 && $4%4==0){a=121}
if(bln==5 && $4%4==0){a=152}
if(bln==6 && $4%4==0){a=182}
if(bln==7 && $4%4==0){a=213}
if(bln==8 && $4%4==0){a=244}
if(bln==9 && $4%4==0){a=274}
if(bln==10 && $4%4==0){a=305}
if(bln==11 && $4%4==0){a=335}

jum=(thb*365)+(d*366)+a+$2;

if(jum%7==1){print $0," ","Lahir pada hari Minggu"}
if(jum%7==2){print $0," ","Lahir pada hari Senin"}
if(jum%7==3){print $0," ","Lahir pada hari Selasa"}
if(jum%7==4){print $0," ","Lahir pada hari Rabu"}
if(jum%7==5){print $0," ","Lahir pada hari Kamis"}
if(jum%7==6){print $0," ","Lahir pada hari Jumat"}
if(jum%7==0){print $0," ","Lahir pada hari Sabtu"}
}

Selanjutnya, masuklah ke terminal dan ketikkan instruksi berikut :

kingdom@kingdom-desktop:~$ awk -f cara.txt lahir.txt

Hasil dari instruksi di atas ialah :

chyntia 15 1 1990 Lahir pada hari Senin
dauz 19 1 1990 Lahir pada hari Jumat
mobed 7 12 1988 Lahir pada hari Rabu
fina 23 5 1988 Lahir pada hari Senin
ilham 11 1 1990 Lahir pada hari Kamis
angga 24 7 1988 Lahir pada hari Minggu
yanuar 29 9 1990 Lahir pada hari Sabtu
sandra 25 4 1988 Lahir pada hari Senin
tyo 17 12 1990 Lahir pada hari Senin
andre 24 12 1988 Lahir pada hari Sabtu
widi 12 7 1986 Lahir pada hari Sabtu
ojik 14 1 1988 Lahir pada hari Kamis
dicky 28 12 1990 Lahir pada hari Jumat
anez 29 2 1988 Lahir pada hari Senin
putra 16 1 1990 Lahir pada hari Selasa

posted by Innocentia @ 01.59

0 Comments:

Posting Komentar

<< Home

About Me

Name: Innocentia
Home: surabaya, jawa timur, Indonesia
About Me: aq tuh anagh na cute, baek hati, jujur, tidak sombong, dan rajin menabung.... opo tho yo??! www.eepis-its.edu
See my complete profile