Source Code Program Deret

procedure TForm1.Button1Click(Sender: TObject); var a,b,n,un:integer; sn,x,p:real; begin memo1.Clear; a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); n:=StrToInt(Edit3.Text); x:=n; for n:=1 to n do begin un:=b*(n-1)+a; memo1.lines.Add(inttostr(un)); p:=un; end; sn:=0.5 * x * (a + p); memo1.lines.Add('Jumlah Sn = '+floattostr(sn)); end;...

Read More

PROGRAM BINTANG

program Star;uses wincrt;var a, b, c, n : integer;beginwrite('masukkan n :');readln(n);writeln('*****Gambar Segitiga Terbaliknya*****'); for a:= n downto 1 do begin writeln(''); for c:=1 to n-a do begin write(' '); end; for b:=1 to a do begin write ('*'); end; for b:= a-1 downto 1 do begin write ('*'); end; end; readln;e...

Read More

Source Code Program Matrik Invers

Program Matrik_Invers; uses wincrt; type data = array [1..10,1..10] of real; var matrikI,matrikII : data; baris,kolom, pil : integer; tambah:char; procedure isi; var i,j : integer; begin writeln('Tentukan Ordo Matrik I'); write('Masukan banyak baris matrik I = ');readln(baris); write('Masukan banyak kolom matrik I = ');readln(kolom); for i:=1 to baris do for j:=1 to kolom do begin gotoxy(j*5,i+5); readln(matrikI[i,j]); end; writeln('Tentukan Ordo Matrik II'); write('Masukan banyak baris matrik II = ');readln(baris); ...

Read More

Source Code Program Luas Segitiga

procedure segitiga (var a: integer; var b: integer);var luas: real;beginluas:= a*b*0.5;ShowMessage('luas segitiga adalah' + floattostr(luas));end;procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begina:=strToint(edit1.text);b:=strToint(edit2.text);beginsegitiga(a,b);end;end;e...

Read More

CARA MENGGANTI BACKGROUND FACEBOOK

,,,Bosen dengan background facebookMu???? ne q kasih caranya gimana sich agar background facebook kita menarik atau sesuai dengan yang kita inginkan.. Langkah 1 Untuk mengubah background facebook agar lebih fresh dibandingkan sebelumnya,sebaiknya kalian menggunakan browser Mozilla Firefox. Kemudian arahkan ke alamat https://addons.mozilla.org/en-US/firefox/ untuk mencari add-on Stylish. Langkah 2 Setelah kalian mendapatkan hasil pencarian untuk add-on Stylish, klik [Download Now] Langkah 3 Akan muncul window baru untuk melakukan...

Read More

Senja Yang Manis

Senja yang Manis Dalam temaram bayangan matahari yang mulai beranjak pulang, di suatu desa kecil , seorang wanita muda sedang bermandikan keringat, ia terlihat begitu letih menahan sakit, semua otot-ototnya mengejan, nafasnya terengah-engah. Berulang kali menarik nafas kemudian membuangnya kembali begitu berulang-ulang. Suasana tiba-tiba hening hingga keheningan itu pecah oleh suara tangisan bayi mungil yang cantik. Bayi itu adalah anak pertamanya sekaligus cucu pertama di keluarga itu. Seluruh...

Read More

bahasa tubuh

Sebagai profesional yang sering berkomunikasi dengan orang lain, tentunya Anda ingin tahu bagaimana membaca body language. Pengetahuan tentang body language ini sangat berguna untuk presentasi, negosiasi, atau bahkan mempengaruhi orang lain.Di artikel ini saya ingin menjelaskan beberapa tips untuk membaca body language orang lain, terutama lawan bicara. Tujuannya agar kita bisa mengerti apakah mereka tertarik atau justru bosan saat kita berkomunikasi dengannya:MataOrang mengatakan mata adalah jendela jiwa. Mata bisa memberikan...

Read More