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

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

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

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

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

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 (Xy) font="" then Writeln('Segitiga Lancip') else if (X=Y) then Writeln('Segitiga Siku-Siku') else Writeln('Segitiga Tumpul') E...

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

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

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))]); e...

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 WordReserved word adalah kata – kata yang tidak dapat dijadikan menjadi identifier (pengenal), karena kata – kat tersebut sudah mempunyai arti tersendiri dalam Turbo Pascal. Adapun kata –...