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