3 Resep Ramuan Mujarab Penghilang Selulit

Posted by Belajar Pascal Winnie (1311100121)

Tak perlu pusing lagi mencari krim yang ampuh untuk mengatasi selulit di paha, perut, dan bokong Anda. Ternyata Anda bisa dengan mudah meracik sendiri 'obatnya'. Bahan utamanya: ampas kopi!
Tak peduli berapa umur Anda, apa jenis kulit Anda, dan berapa berat badan Anda, selulit selalu jadi musuh besar. Ia biasanya muncul di paha, perut, dan bokong, yang membuat kulit kita terlihat bergaris-garis kasar bak kulit jeruk. Selama bertahun-tahun, wanita di seluruh dunia mencari berbagai krim dan obat untuk menghilangkan selulit. Padahal, hanya berbekal serbuk kopi, kita bisa meracik ramuannya sendiri, lho.

Salah satu metode yang paling ampuh untuk menghilangkan selulit adalah pijat. Dengan pijat, sirkulasi darah jadi lebih lancar, dan sel-sel lemak bisa lebih mudah dihancurkan.

Sementara itu, penelitian menunjukkan bahwa krim antiselulit yang dianggap paling ampuh adalah yang mengandung kafein. Ternyata kafein bisa melebarkan pembuluh darah, sehingga sirkulasi dan aliran darah menjadi lebih lancar. Kafein juga bisa mengurangi kadar penimbunan air, yang merupakan salah satu penyebab terdorongnya lemak ke kulit dan menjadi selulit.

Dua fakta ini jadi cukup bukti untuk meyakinkan kita bahwa salah satu solusi paling ampuh menghadapi selulit adalah pijat dengan ramuan yang mengandung kafein. Ini resepnya.

Resep 1
1 cangkir ampas kopi yang masih baru
1 putih telur
1 sendok makan minyak zaitun
Campurkan bahan-bahan di atas dan gunakan untuk memijat bagian tubuh Anda yang berselulit. Pijat dengan gerakan memutar, kemudian bilas. Ramuan ini juga bisa dioleskan ke selulit, kemudian 'bungkus' bagian tersebut dengan plastik dan diamkan selama 5-10 menit. Untuk hasil yang optimal, lakukan ritual ini 3 kali seminggu.

Resep 2
1/4 cangkir ampas kopi hangat
1 sendok makan minyak zaitun
Campurkan bahan-bahan di atas, kemudian balurkan ke atas loofah atau handuk wash lapsebelum memijat bagian yang berselulit. Lakukan 2 kali seminggu.

Resep 3
Campurkan ampas kopi dengan sabun cair atau body lotion. Balurkan ke tubuh, diamkan beberapa menit, lalu bilas. Lakukan setiap hari.

Category: 1 comments

6 Makanan Penting Untuk Mencerahkan Kulit

Posted by Belajar Pascal Winnie (1311100121)

Percuma saja menghabiskan ratusan ribu rupiah untuk produk pencerah kulit jika tak melakukan perawatan dari dalam. Dengan nutrisi yang baik, kulit jadi sehat dan otomatis terlihat lebih cerah. Makanan apa saja yang wajib dikonsumsi supaya kulit tak lagi gelap dan kusam.
1. Jeruk
Semua jenis buah jeruk, termasuk jeruk bali, merupakan sumber vitamin C yang memiliki banyak manfaat untuk kulit. Vitamin C meningkatkan produksi kolagen dan elastin dalam tubuh kita, yang berfungsi untuk mengurangi kerutan dan menghambat penuaan kulit. Ia juga dipercaya dapat memperlambat produksi melanin, pigmen yang membuat kulit terlihat lebih gelap. Usahakan mengkonsumsi jeruk segar satu kali dalam sehari. Selain jeruk, tomat juga merupakan buah yang kaya vitamin C.

2. Sayuran berwarna merah dan hijau
Bayam, wortel, brokoli, dan kawan-kawannya mengandung banyak beta-carotene yang berfungsi sebagai antioksidan untuk kulit. Selain mencegah kerusakan sel, beta-carotene juga akan diubah oleh tubuh menjadi vitamin A yang berguna untuk memerangi jerawat, memproduksi sel kulit baru, dan membuat warna kulit terlihat cerah dan muda. Akan lebih baik jika vitamin A kita dapatkan langsung dari makanan dan bukan dari suplemen vitamin, karena kelebihan vitamin A justru dapat mengganggu kesehatan kita.

3. Ikan
Makhluk air ini kaya akan asam lemak Omega-3 yang merupakan resep utama untuk kulit yang cerah cemerlang. Selain itu, mengkonsumi sarden, tuna, atau salmon yang kaya protein dapat membantu melindungi kulit dari paparan sinar matahari dan polusi. Protein yang terkandung di dalamnya membantu reproduksi sel dan membuat kulit terlihat bercahaya.

4. Alpukat
Alpukat adalah sumber vitamin E. Ia berguna untuk menghambat penuaan dan membersihkan kulit dari segala noda seperti bekas jerawat, flek hitam, dan masalah lain. Mengonsumsi alpukat secara teratur juga akan mencegah kulit menjadi kendur seiring bertambahnya usia.

5. Gandum
Bisa didapat dalam bentuk sereal maupun roti, gandum mengandung biotin yang berfungsi membantu sel tubuh memproses lemak. Kekurangan biotin dapat menyebabkan kulit kering dan terlihat kusam.

6. Minyak zaitun
Makanan paling sehat untuk kulit? Salad buah dan sayuran yang diperciki minyak zaitun sebagai penyedap. Minyak ini mengandung asam lemak yang esensial untuk membuat kulit terlihat cerah, bercahaya, dan sehat.

Category: 0 comments

Ketika SMS Jadi Sumber Konflik Cinta

Posted by Belajar Pascal Winnie (1311100121)

Ilustrasi dok: Thinkstock
Hampir semua pasangan kini berkomunikasi melalui antara lain berkirim pesan — SMS, BlackBerry Messenger, WhatsApp dan sebagainya. Tetapi di samping membuat hubungan lebih mesra, pesan singkat juga bisa jadi sumber konflik percintaan.

Penggunaan yang salah akan membuat teknologi yang bermanfaat ini malah membawa bencana. Hati-hati!

Detektif dadakan 
Ponsel pasangan yang tergeletak sering menggoda untuk diselidiki. Sasarannya, melihat SMS, aktivitas BBM, dan berbagai pesan masuk lainnya. Biasanya ini dilakukan tanpa sepengetahuan pemilik.

Jika menemukan sesuatu yang mencurigakan, konflik pun tak terhindarkan. Anda curiga dengan aktivitas pasangan, sementara pasangan pun tak kalah emosi karena ponselnya diperiksa tanpa izin. Sungguh sangat tidak perlu.

Daripada terus saling curiga, sebaiknya bangun komunikasi yang baik dengan pasangan. Ketika bertemu, tinggalkan ponsel masing-masing dan saling bertukar cerita tentang apa yang dilakukan hari ini. Membangun kepercayaan dengan dasar komunikasi yang sehat lebih baik daripada terus menggerogoti hubungan dengan rasa curiga dan cemburu yang berlebihan.

Emosi dan ekspresi 
Salah paham karena hilangnya elemen ekspresi atau emosi sering timbul. Emoticon atau beberapa kata yang menandakan Anda bercanda atau serius bisa membantu mengurangi masalah ini. Tak ada salahnya menambahkan emoticon senyum atau sedih untuk menegaskan maksud dari ucapan Anda agar salah paham bisa terhindarkan.

Begitu juga dengan kata-kata. Usahakan untuk tidak terlalu sering menggunakan singkatan jika tidak perlu. Tidak semua orang mengerti kalau 'X' merupakan pengganti 'nya' atau 'W' merupakan pengganti dari 'gue'. Begitu juga dengan singkatan seperti BRB, LOL, dan lainnya. Kenali siapa lawan bicara Anda sebelum mengirim pesan dengan kata-kata yang tidak umum. Jangan sampai terjadi salah pengertian hanya karena Anda cuek menggunakan bahasa singkat atau lupa menggunakan emoticon untuk menegaskan maksud pesan.

Si penggoda
Ponsel dan Internet memudahkan kita berhubungan dengan banyak orang. Mulai dari teman lama ketika SD sampai teman baru yang dikenal hanya dari jejaring sosial. Terkadang komunikasi yang dilakukan lewat medium digital ini sering dianggap lebih santai. Saling menggoda atau flirting dianggap hal yang sah karena hanya dilakukan di dunia maya saja.

Namun pasangan Anda belum tentu sependapat. Perilaku Anda yang mudah menggoda teman di BBM atau jejaring sosial bisa jadi menimbulkan konflik baru. Tak ada salahnya membicarakan masalah ini dengan pasangan. Ketahui perasaannya dan usahakan untuk tidak menyakiti hatinya. Jangan hanya karena godaan sesaat Anda berisiko kehilangan hubungan yang telah dibangun dengan baik selama ini. Pilih baik-baik prioritas Anda.

Pemeran pengganti 
Ponsel merupakan alat komunikasi, bukan pengganti Anda dalam komunikasi yang seharusnya dilakukan secara langsung. Pembicaraan untuk memutuskan hubungan cinta atau bahkan bercerai sebaiknya tidak dilakukan melalui pesan singkat. Label pengecut dan negatif sudah pasti menempel, jika Anda melakukan hal tersebut lewat SMS atau pesan singkat lainnya.

Hubungan cinta ada manis dan pahit. Jangan hanya senang menikmati manisnya dan menghindari pahitnya. Selesaikan baik-baik hubungan Anda lewat pembicaraan yang baik. Pasangan Anda juga berhak menerima penjelasan dan bertanya tentang keputusan Anda. Bagaimanapun Anda pernah melewati masa indah dengannya, sebaiknya akhiri juga hubungan Anda dengan baik.

Si responsif 
Terlalu cepat merespon pesan-pesan singkat di ponsel bisa jadi tidak baik untuk Anda. Pertama, kebiasaan tersebut akan sangat menggangu konsentrasi bekerja. Kedua, jika Anda dalam fase pendekatan, sebaiknya jangan terlalu mudah memberikan respon. Aturan lama dalam pendekatan tetap berlaku. Terlalu cepat merespon apa saja yang dia kirim membuat Anda terkesan hanya memikirkan dia dan tidak ada kehidupan lain. Buat pria, kadang-kadang hal tersebut membuat mereka kurang merasa tertantang.

Untuk hal-hal penting memang tak ada salahnya merespon dengan cepat. Tapi kalau Anda terus terfokus pada ponsel, pekerjaan yang lain bisa jadi terbengkalai. Jika sudah sampai di rumah, usahakan sempatkan waktu untuk berinteraksi dengan pasangan tanpa gangguan ponsel. Saat makan malam romantis atau momen khusus Anda berdua, sebaiknya lupakan sejenak ponsel agar ia tak merasa dinomorduakan. Kebiasaan cepat merespon pesan singkat tanpa memperhatikan waktu bisa menjadi sumber konflik potensial dalam hubungan.  Anda yang memiliki kontrol terhadap ponsel Anda, bukan sebaliknya.

Category: 1 comments

Pikirkan Kembali Menggunakan Pencatok Rambut

Posted by Belajar Pascal Winnie (1311100121)

Thinkstockphotos
Demi mendapatkan gaya yang Anda inginkan saat menghadiri undangan resmi — atau momen seru bersama pasangan, Anda memilih pencatok rambut sebagai alat instan untuk mengatur gaya rambut agar terlihat lebih lurus.
 Ketahuilah, penggunaan pencatok rambut terus-menerus dapat mengakibatkan rambut kering rusak. Ini dia penyebabnya:
Panas berlebihan
Panasnya pencatok secara langsung berdampak pada setiap batang rambut yang Anda luruskan. Livestrong mencatat, temperatur tinggi yang bersentuhan dengan rambut dalam waktu lima menit saja dapat mengakibatkan kerusakan rambut, khususnya pada bagian kutikula. Efek yang paling terlihat adalah kekeringan berlebih dan patahnya batang rambut. Saran dari para ahli, suhu pencatok rambut yang aman adalah tidak lebih dari 175 derajat Celcius.

Ion positif
Pencatok rambut mengeluarkan ion positif yang berefek buruk terhadap kelenjar rambut. Kelenjar menjadi terbuka dan kekeringan. Inilah yang menjadi sebab mengapa rambut Anda terasa rapuh setelah berkali-kali diluruskan dengan pencatok rambut.

Untung saja, seperti dilansir Misikko, saat ini sudah banyak pencatok rambut yang berbahan dasar keramik. Bahan keramik mengeluarkan ion negatif yang dapat menetralisasi keadaan tersebut; dapat menutup kelenjar rambut dan melembutkan batang rambut. Walau begitu, klaim pemasaran pencatok rambut dianggap berlebihan. Ion positif tetap ada walau jumlahnya tidak banyak.

Tidak mengandung silikon
Sampai saat ini masih banyak beredar pencatok rambut yang tidak mengandung silikon saat alatnya bekerja. Fungsi silikon adalah untuk melindungi rambut Anda sementara saat panas dialirkan di sepanjang pencatok. Dermatologis Carolyn Jacob, MD, dari Northwestern University School of Medicine, Chicago, malah menyatakan bahwa pencatok rambut memiliki efek merusak yang lebih tinggi daripada sekadar pengering rambut. Dia menambahkan, “Kalau Anda menggunakan pencatok rambut, jangan gunakan lebih dari lima detik pada setiap bagian rambut yang Anda catok.”

Category: 0 comments

Program Eksponen

Posted by Belajar Pascal Winnie (1311100121)



Program Exponen;
uses crt;
var
x,n : byte;
Function Expo(a,b : byte):real;
var Suku,E : real;
k : byte;
begin
E := 0;
k := 0;
Suku :=1;
while k<= b do
begin
E := E + Suku;
K := k+1;
Suku := Suku * a/k;
end;
120
Expo := E;
end;
Begin
write('Input X = ');readln(x);
write('Input N = ');readln(n);
clrscr;
Writeln('e ^ n = 1 + x + (x^2)/2! + (x^3)/3!...');
Writeln('Dimana x = ',x,' dan n = ',n);
Writeln('Maka e = ',Expo(x,n):2:2);
readln;
end.
Hasilnya adalah:

Category: 0 comments

Program Menentukan Segitiga

Posted by Belajar Pascal Winnie (1311100121)

Program Menentukan_Segitiga;
Uses Wincrt;
Var A,B,C,X,Y:integer;
Begin
Writeln('Program Menentukan Segitiga');
Writeln('=========================');
Writeln;
Write('Masukkan Sisi A: ');readln(A);
Write('Masukkan Sisi B: ');readln(B);
Write('Masukkan Sisi C: ');readln(C);
Writeln;
X:=sqr(C);
Y:=sqr(A)+sqr(B);
if (X
Writeln('Segitiga Lancip')
else if (X=Y) then
Writeln('Segitiga Siku-Siku')
else
Writeln('Segitiga Tumpul')
End.

Category: 0 comments
Location: Surabaya, Indonesia

Program Tulisan Terserah

Posted by Belajar Pascal Winnie (1311100121)


program tulisan;
uses wincrt;
var t:string;
x,y,z:integer;
begin
write('Masukkan suatu kata= ');readln(t);
x:=length(t);
for y:=0 to x do
begin
for z:=1 to x-y do
write(' ',t[z]);
writeln;
end;
readln;
end.

Category: 0 comments

Program Hitung Koefisien Persamaan Regresi

Posted by Belajar Pascal Winnie (1311100121)


Program Menghitung Koefisien Persamaan Regressi
uses wincrt;
type data=array[1..100]of integer;
var
x,y :data;
N,d,j :Integer;
ratax,ratay :real;
SXY,SX,SX2,SY:real;
A,B :real;
{--------------------------------------------------------------------}
Procedure Regressi;
begin
N:=0;
repeat
write('Nilai data x= ');readln(d);
if d<>0 then begin
N:=N+1;
x[N]:=d;
write('Nilai data y = ');readln(y[N]);
end;
until d=0;
SXY:=0; SX:=0; SX2:=0; SY:=0;
for j:= 1 to N do
begin
SXY:=SXY+x[j]*y[j];
SX:=SX+x[j];
SY:=SY+y[j];
SX2:=SX2+x[j]*x[j];
end;
A:=((SX2-(SX)*SY))/N;
A:=A/(SX2-(SX*SX)/N);
ratay:=SY/N;
ratax:=SX/N;
B:=ratay-A*rataX;
writeln('N= ',N);
writeln('Jumlah x= ',SX:0:2);
writeln('Jumlah y= ',SY:0:2);
writeln('Jumlah x dikali y =',SXY:0:2);
writeln('Jumlah x kwadrat=',SX2:0:2);
writeln('Rata-rata x=',ratax:0:2);
54
writeln('Rata-rata y=',ratay:0:2);
writeln('Y= ', A:0:2,'X- ', B:0:2);
end;
begin
regressi;
end.

Category: 1 comments

Program Hitung Huruf

Posted by Belajar Pascal Winnie (1311100121)


Program Hitung_Huruf;
Uses WinCrt;
Var
Teks : string;
banyak : array['A'..'Z'] of byte;
i : byte;
begin
Write('Masukkan Suatu Kalimat :');
Readln(Teks);
for i:=1 to length(teks) do
banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
for i:=1 to 26 do
if (banyak[upcase(chr(64+i))]<>0) then
writeln(upcase(chr(64+i)),' banyaknya
=',banyak[upcase(chr(64+i))]);
end.

Category: 0 comments

Elemen Bahasa dalam Pascal

Posted by Belajar Pascal Winnie (1311100121)

Sebelum kita membuat sebuah program, maka terlebih dahulu kita harus mengerti tentang elemen- elemen bahasa (Language elements) Turbo Pascal, seperti Reserved word, Statement, Type, Constants, Variabel, Tipe data, Label, Operator, dan lain-lain.
a. Reserved Word
Reserved word adalah kata – kata yang tidak dapat dijadikan menjadi identifier (pengenal), karena kata – kat tersebut sudah mempunyai arti tersendiri dalam Turbo Pascal. Adapun kata – kata yang termasuk ke dalam identifier adalah:
-          And, asm, array, begin, case, const, constructor, destructor, div, do, downto, else, end, exports, file, for, function, goto, if, implementation, in, inherited, inline, interface, label, library, mod, nil, not, object, of, or,packed, procedure, program, record, repeat, set, shl, shr, string, then, to, type, unit, until, uses, var, while, with, xor.
b. Statement
Statement adalah salah satu dari berikut in:
-          Assignment (:=)
-          Begin..end
-          Case..of..else..end
-          For..to/downto..do
-          Goto
-          If..then..else
-           Inline(..)
-          Procedure call
-          Repeat..until
-          While..do
-          With..do
c. Type
Bentuk umum:
Type
Pengenal  = tipe data;
……….
Pengenal = tipe data;
d. Const (Constant)
Constant yang disingkat dengan const adalah nilai konstanta ( nilai tetap) yang dipasang dalam program.
Bentuk umum:
Const
Pengenal = ekspresi
………
Pengenal = ekspresi
Const
Pengenal: type = nilai;
………..
Pengenal: type = nilai;
e. Var ( Variabel)
Jika constant adalah nilai tetap, maka Variabel adalah nilai yang isinya dapat berubah – ubah. Dalam program, Variabel disingkat menjadi Var.
Bentuk umum:
Var
Pengenal, … pengenal : Tipe data;
……
Pengenal,… pengenal: Tipe data;
f. Tipe Data
Tipe atau jenis data dalam Turbo Pascal dibagi kedalam 6 kelompok besar, antara lain:
1.      Tipe simple:
  • Tipe ordinal : dibagi kedalam 5 tipe:
Tipe
Range
Size
Shortint
128..127
8-bit
Integer
-32768..32767
16-bit
Longint
-2147483648..2147483647
32-bit
Byte
0.255
8-bit
Word
0.65535
16-bit
  • Tipe integer: dibagi kedal 5 bagian yaitu:
Tipe
Range
Format
Shortint
-128..127
8-bit bertanda
Integer
-32768..32767
16-bit bertanda
Longint
-2147483648..2147483647
32-bit bertanda
Byte
0..255
8-bit tak bertanda
word
0..65535
16-bit tak bertanda
Catatan : Semua tipe integer adalah tipe ordinal.
  • Tipe real:dibagi kedalm 5 bagian yaitu:
Tipe
Range
Digit
Byte
Real
2.9e-39..1.7e38
11-12
6
Single
1.5e-45..3.4e38
7-8
4
Double
5.0e-324..1.7e308
15-16
8
Extended
3.4e4932..1.1e4932
19-20
10
comp
-9.2e18..9.2e18
19-20
8
Turbo Pascal juga menyediakan 2 model floating-point:
-          Software floating point,{$N-}
-          80×87 floating point, {$N+}
  • Tipe char
Char adalah semua tombol yang terdapat pada keyboard, atau lebih lengkapnya semua karakter yang terdapat pada kode ASCII.
Apabila tipe char dijadikan konstanta, maka karakter yang dimasukkan harus diapit oleh tanda kutip satu. Dan apabila karakter tersebut berupa tanda kutip satu, maka harus diapit oleh dua tanda kutip satu.
  • Tipe Boolean
Ada empat yang termasuk kedalam tipe Boolean :Boolean, wordbool, longbool, bytebool. Keempat tipe Boolean tersebut adalah tipe untuk kompatibilitas dengan Windows.
  • Tipe enumerated
Bentuk umum:
Type
Nama = (pengenal,
Pengenal,…,
Pengenal  );
  • Tipe subrange
Bentuk umum:
Constant1 .. constant2
2.      Tipe String
String adalah kumpulan dari beberapa karakter dan panjangnya tidak boleh melebihi 255 karakter. Jika string mengandung tanda kutip satu, maka tanda kutip tersebut harus diberi tanda kutip lagi.
Bentuk umum:
String [ constant ]
Atau
String
Ciri – ciri
Apabila panjang string tidak ditentukan maka panjangnya dianggap255 karakter. Oleh karena itu, untuk menghemat memori, biasakanlah selalu menentukan panjang string yang akan dibuat.
3.      Tipe Structured
Tipe structured adalah tipe yang terdiri lebih dari satu nilai. Sedangkan tipe structured terdiri dari   5 tipe :
1.      Tipe array
Bentuk umum:
Array [Indeks] of Tipe Data
2.      Tipe file
Bentuk umum:
File of type
Atau
File
3.      Tipe object
Tipe object adalah data berstruktur yang berisi komponen bilangan fixed.
Bentuk umum:
Object
Field;
Field;
……..
Method;
Method;
End;
4.      Tipe record
Bentuk umum:
Record
Field;
Field;
…….
End;
5.      Tipe set
Bentuk umum:
Set of Tipe Data
4.      Tipe Pointer
Tipe pointer adalah tipe yang berisi alamat memori, dan berlambang ^. Anda dapat menunjuk sebuah nilai kedalam variable pointer dengan:
-          Procedure New atau GetMem
-          Operator @
-          Fungsi Ptr
5.      Tipe Procedural
Procedure dan Function adalah bagian Turbo Pascal dalam mebuat sebuah program. Melalui tipe Procedural, maka anda dapat memperlakukan Procedure dan Function sebagai object sehingga dapat dimasukkan kedalam sebuah variable dan parameter. Hasil function haruslah berupa string, real, integer, char, Boolean, atau pointer.
g. Label
Label adalah suatu deklarasi untuk membuat percabangan dalam proram. Label bisa berupa huruf, misalnya: AWAL, AKHIR, atau angka antara 0 and 999. Dan untuk menuju kelabel yang telah dideklarasikan harus menggunakan instruksi GOTO.
Bentuk umum:
Label pengenal,….. pengenal;
h. Operator
Operator adalah lambing- lambing untuk melakukan perkalian, penjumlahan dan lain- lain seperti dalam kalkulator. Tetapi operator dalam computer lebih kompleks dibandingkan kalkulator. Jenis-jenis operator:
v     Operator penghubung ( relational operators )
v     Operator arithmatik ( arithmetic operators )
v     Operator logika ( logical operators )
v     Operator pembanding ( Boolean operators )
v     Operator string ( string operators )
v     Operator set ( set operators )
v     Operator @ ( @ operators )
v     Operator Pchar ( Pchar operators )

Category: 0 comments
Langganan: Postingan (Atom)

Hamster Unyu

My Pet Blondy

Labels




Blog Translate

English French German Spain Italian Dutch

Russian Portuguese Japanese Korean Arabic Chinese Simplified

Please Click In Here

Get cash from your website. Sign up as affiliate.
Free Birthday Cake Pink Cursors at www.totallyfreecursors.com