TIPS AGAR WAJAH CANTIK DAN KINCLONG SAAT BULAN PUASA.

TIPS AGAR WAJAH CANTIK DAN KINCLONG SAAT BULAN PUASA.

TIPS AGAR WAJAH CANTIK DAN KINCLONG SAAT BULAN PUASA.

Tips Merawat Wajah Agar Tetap Kinclong di Bulan Ramadhan

Assalamualaikum wr..wb...
disini,, saya akan berbagi tips agar wajah tetap segar dan kinclong saat bulan ramadhan......
apalagi biasanya saat bulan puasa kita kekurangan cairan, pasti kulit akan kelihatan sedikit kriput dan kering,,,,dan pasti akan bikin kita g PD
Oke,,,,,,, sob, berikut inilah adalah tips dari saya:
1. jangan lupa,,, walaupun puasa porsi minum kita jangan di kurangi, tp minumnya di malam hari ajah,,jangan sampai minum pada saat siang hari loh,,,
2. yang kedua  selalu memijit wajah kita sebelum tidur, dengan gerakkan memutar agar saat kita bangun wajah tetap kencang
3. istirahat yang cukup
4. selalu membersihkan wajah setelah kita pulang kerja ataupun sehabis keluar,,,tapi sehabis terkena panas, jangan langsung mencuci wajah dulu tunggu beberapa saat agar wajah kita menyesuaikan dengan suhu normal karena hal itu bisa menyebabkan wajah kita menjadi gosong,,,,, alias item
5. setiap keluar rumah harus memakai pelindung tabisr surya
6. gunakan pelembab yang bersifat basah,,,atau agak berminyak gitu
7. jangan lupa sempatkan seminggu sekali memakai masker dari madu asli dengan putih telur, karena kasiatnya dapat mengencangkan wajah,, biar kelihatan lebih mudah......
8. bersihkan wajah sebelum tidur
9. jangan pernah menyentuh wajah kalau tangan kita nggak seteril,,,,karena bisa menyebabkan jerawat,,,,,
10. berwudhu,,,,,,,adalah cara cantik alami agar wajah selalu bersinar

demikian tips dari saya,,,,,,,,wajib di coba dan rasakan hasilnya setelah 2 seminggu,,,,
SELAMAT MENCOBA'

Tugas 3 Delphi 7

Tugas 3 Delphi 7

Tugas 3 Delphi 7

Nama : Dwi Puji Lestari
Kelas : 2B
NIM : 111221034

 

Gambar 1.

• procedure TForm1.fortodoClick(Sender: TObject);
  var
  i,j:integer;
  b:string;
  begin
  b:='';
  j:=2;
  for i:=1 to 10 do
  begin
  b:=b+inttostr(j)+'';
  j:=j+2;
  end;
  label1.Caption:=b;
  end;

• procedure TForm1.fordowntodoClick(Sender: TObject);
  var
  i,j:integer;
  b:string;
  begin
  b:='';
  j:=2;
  for i:=10 downto 1 do
  begin
  b:=b+inttostr(i)+'';
  j:=j+2;
  end;
  label2.Caption:=b;
  end;
•  procedure TForm1.whiledoClick(Sender: TObject);
  var
  i,j:integer;
  b:string;
  begin
  i:=1;
  b:='';
  while i<=10 do
  begin
  b:=b+inttostr(i)+'';
  i:=i+1;
  end;
  label3.Caption:=b;
  end;
• procedure TForm1.repeatuntilClick(Sender: TObject);
  var
  i,j:integer;
  b:string;
  begin
  i:=1;
  b:='';
  repeat
  b:=b+inttostr(i)+'';
  i:=i+1;
  until i>10;
  label4.Caption:=b;
  end;
• procedure TForm1.btkeluarClick(Sender: TObject);
  begin
  close;
  end;
• procedure TForm1.bt_pangkatClick(Sender: TObject);
  var
  bil,hasil,pangkat,a:integer;
  begin
  bil:=strtoint(edit1.Text);
  hasil:=bil;
  pangkat:=strtoint(edit2.Text);
  if edit2.Text='0' then edit3.Text:='1' else
  if edit2.Text='1' then edit3.Text:=edit1.Text
  else
  begin
  for a:=2 to pangkat do
  hasil:=hasil*bil;
  
  edit3.Text:=inttostr(hasil);
  end;
  end;
  
  end.

Hasil Running :

 Gambar 2.

Program Kombinasi_Faktorial_dwipujilestari_2B111221034;
uses wincrt;
var f1,f2,f3:longint;
n,r,nr:integer;
c: real;
Procedure fact( n:integer; var f:longint);
var i:integer;
begin
f:=1;
for i:=1 to n do
f:= f * i;
end;
Begin
gotoxy(10,0);
writeln('DWIPUJILESTARI_2B');
writeln(‘111221034');
writeln('Program Kombinasi Faktorial');
writeln(' ');
write('data yang akan di kombinasikan  :',' ');readln(n);
write('jumlah kombinasi                            :',' ');readln(r);
fact(n,f1);
fact(r,f2);
nr:=(n-r);
fact(nr,f3);
c:= f1/(f2*f3);
writeln(' ');
write('hasil dari penghitungannya adalah:',' ',c:2:0);
readln;
end.

HASIL RUNNING

 

Program soal_matriks1;
uses wincrt;
var
a,f,k:array[1..10,1..10] of integer;
b,c,g,h,l:longint; d,e,i,j,z:byte;

begin
writeln ('masukkan data untuk matriks 1 (M1)');
write ('berapa banyaknya baris matriks 1: '); readln(b);
write ('berapa banyaknya kolom matriks 1: '); readln(c);
writeln;
for d:=1 to b do
begin
for e:=1 to c do
begin
write ('entri data baris ke-',d,', kolom ke-',e,': '); readln(a[d,e]);
end;
end;

for d:=1 to b do
begin
for e:=1 to c do
begin
write(a[d,e]:10);
end;writeln;
end;writeln;

writeln ('masukkan data untuk matriks 2 (M2)');
write   ('berapa banyak baris matriks 2: '); readln(g);
write   ('berapa banyak kolom matriks 2: '); readln(h);
writeln;

for i:=1 to g do
begin
for j:=1 to h do
begin
write ('entri data baris ke-',i,', kolom ke-',j,': '); readln(f[i,j]);
end;
end;

for i:=1 to g do
begin
for j:=1 to h do
begin
write(f[i,j]:10);
end;writeln;
end;writeln;

if c=g then
begin
writeln;
writeln ('M1 x M2 : ');
for d:=1 to b do
begin     
for l:=1 to h do
begin
for e:=1 to c do
begin
for j:=l to h do
begin
for i:=e to g do
begin
k[d,j]:=k[d,j]+a[d,e]*f[i,j];
if c=e then
begin
write (k[d,j]:4);
end;
i:=g;
end;
j:=h;
end;
end;
end;
writeln;
end;
end else
begin
writeln ('operasi matriks tidak dapat dilakukan');
writeln ('karena kolom Matriks 1 (',c,' kolom) tidak sama dengan baris Matriks 2 (',h,' baris)');
end;
end.