Postingan

Menampilkan postingan dari 2015

program biodata

hai gays berikut saya akan mencoba membuat aplikasi program biodata maklum baru pemula dalam pembuatan program, ya agak sedikit tidak rapi. mudah2an bermanfaat buat teman2. program biodata; uses crt; var nama, alamat : string; umur : integer; begin clrscr; writeln('=========================================='); writeln('Biodata'); writeln('=========================================='); write('Nama   : '); readln(nama); write('Umur   : '); readln(umur); write('Alamat : '); readln(alamat); writeln('--------------'); writeln('Jadi data Saya : '); writeln('Nama Saya  :',nama,'. Umur saya : ',umur,' tahun. Saya tinggal di :',alamat,'.'); writeln; readkey; end.

Belajar Membut Aplikasi Dengan Pascal

Gambar
Program Gaji_Karyawan Uses crt Var Gp,gb,pjk,js,tis,ta,tjb:real; Nik         :string[10]; Nk          :string[27]; Sts          :string[9]; Jb            :string[15]; Ja            :byte;                 Begin Clrscr; Write(‘Nomor Induk Karyawan:’); Readln(Nik); Write(‘Nama Karyawan:’); Readln(Nk); Write(‘Status:’); Readln(Sts); Write(‘Jumlah Anak:’); Readln(Ja); Write(‘Gaji Pokok:’); Readln(Gk); Write(‘apakah mau di ulang lagi (y/n) :’); If sts=’menikah’ then begin Tis:=0.1*gp; End Else end Tis:=0; End;                 If ja<=3 Then begin Ta:=0.02*gp*ja;                 End else                 If ja >3 then begin ta:=0.058g*3;                 End else                 Begin                 Ta:=0;                 End;                                 If  jb=’manager’ then begin                                 Tjb:=2000000;                                 End else If  jb=’supevisor’ then begin       

10 Hal Kecil Ini Akan Membuat Hidup Kamu Bahagia

Rosmawi Ada sebuah pepatah mengatakan “Jangan mengajarkan anakmu untuk menjadi kaya, tetapi ajarkan ia untuk menjadi bahagia”. Di tengah kehidupan modern ini, kebanyakan orang menjadi susah untuk bahagia. Hal ini mungkin karena sejak kecil kita tidak benar-benar diajarkan bagaimana caranya untuk menjadi bahagia. Padahal, dalam hidup yang hanya sekali ini apa sih yang layak kita kejar selain kebahagiaan? Standar kebahagiaan masing-masing orang memang berbeda, tetapi untuk mencapai kebahagiaan itu nggak sulit kok sebetulnya. Percaya deh, bahagia itu sederhana kok. Sesederhana  10 cara hidup bahagia  ini: 1. Tertawa Why so serious? Menyikapi masalah dalam hidup nggak melulu harus serius. Terkadang, nggak ada salahnya loh menertawakan kobodohan diri sendiri dari pada menyesalinya berlarut-larut. Banyak tertawa memberikan efek yang lebih positif pada hidup kita. Nggak heran kalau pasangan yang lebih banyak tertawa dan menertawakan kesalahan-kesalahan mereka sendiri jauh lebih