Tugas KomStat "Macros Minitab"

Teman-Teman, maaf baru upload jawaban tugasku ini moga kalian gag kecewa. hehe....
Ini jawaban tugasku cuman aku tampilin Body Macronya aja, selebihnya kalian ubah sendiri dengan berpedoman buku modul praktikum KomStat. Ini juga bisa kalian ubah sendiri susunannya sesuai keinginan kalian.......

Tugas Mencari Rata-Rata Aritmatik
NAME C1('volume') k3('Rata-Rata Aritmatik')
Let k1 = SUM(C1)
Let k2 = COUNT(C1)
Let k3 = K1 / K2
PRINT C1
PRINT k3

Tugas Mencari Rata-Rata Harmonik
NAME C1('volume') k3('Rata-Rata Harmoni')
Let k1 = COUNT(C1)
Let k2 = SUM(1 / C1)
Let k3 = K1 / K2
PRINT C1
PRINT k3

Tugas Mencari Rata-Rata Geometri
NAME C1('volume') k4('Rata-Rata Geometrik')
Let k1 = 1 / COUNT(C1)
Let k2 = SUM(LOGE(C1))
Let k3 = K1 * K2
Let k4 = EXP(K3)
PRINT C1
PRINT k4

Tugas nomer 5
NAME C1('volume') k3('k3')
Let k1 = SUM(ABSO(C1 - MEAN(C1)))
Let k2 = COUNT(C1)
Let k3 = K1 / K2
PRINT C1
PRINT k3

Tugas Nomer 6
NAME C1('volume') k3('Standart Deviasi')
Let k1 = SUM((C1 - MEAN(C1))**2)
Let k2 = COUNT(C1) - 1
Let k3 = K1 / K2
PRINT C1
PRINT k3

Tugas Mencari Koefisien Keragaman
NAME C1('volume') k5('Koefisien Keragaman (%)')
Let k1 = SUM((C1 - MEAN(C1))**2)
Let k2 = COUNT(C1) - 1
Let k3 = K1 / K2
Let k4 = k3**0.5
Let k5 = k4 / MEAN(C1) * 100
PRINT C1
PRINT k5

Sekian tugas yang dapat kukerjakan. Untuk mencari modus, saya belum mendapatkan jawaban. Atas perhatian teman-teman, trims....

Program Penyulihan Maju

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
Label7: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;
n:integer;
a:array[1..100,1..100] of real;
b,x:array[1..100] of real;

implementation

{$R *.dfm}


procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,k:integer;
sigma:real;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
for i:=1 to n do
b[i]:=StrToFloat(StringGrid2.Cells[1,i]);
x[1]:=b[1]/a[1,1];
for k:=2 to n do
begin
sigma:=0;
for j:=1 to k-1 do
sigma:=sigma+a[k,j]*x[j];
x[k]:=(b[k]-sigma)/a[k,k];
end;
for i:=1 to n do
begin
StringGrid3.Cells[i,0]:=IntToStr(i);
StringGrid3.Cells[i,1]:=FloatToStr(x[i]);
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var i:integer;
begin
StringGrid1.Visible:=true;
StringGrid2.Visible:=true;
n:=StrToInt(edit1.Text);
StringGrid1.ColCount:=n+1;
StringGrid1.RowCount:=n+1;
StringGrid1.Cells[0,0]:='i / j';
for i:=1 to n do
begin
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[i,0]:=IntToStr(i);
end;
StringGrid2.ColCount:=2;
StringGrid2.Cells[0,0]:='i';
StringGrid2.RowCount:=n+1;
StringGrid2.Cells[1,0]:='b[ i ]';
for i:=1 to n do StringGrid2.Cells[0,i]:=IntToStr(i);
StringGrid3.ColCount:=n+1;
StringGrid3.RowCount:=2;
StringGrid3.Cells[0,0]:='i';
StringGrid3.Cells[0,1]:='x[ i ]';
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var i:integer;
begin
for i:=1 to n do
begin
StringGrid1.Cols[i].Clear;
StringGrid1.Rows[i].Clear;
StringGrid2.Cols[i].Clear;
StringGrid2.Rows[i].Clear;
StringGrid3.Cols[i].Clear;
end;
end;

end.

Praktikum Metode Numerik 4.1 dan 4.2

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Label1: TLabel;
StringGrid1: TStringGrid;
Button1: TButton;
Label2: TLabel;
Edit1: TEdit;
Button2: TButton;
Button3: TButton;
BitBtn1: TBitBtn;
StringGrid2: TStringGrid;
RadioGroup1: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ordo:integer;
A,L:array[1..100,1..100]of real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer; m:real;
begin
groupbox3.Visible:=true;
if radiogroup1.ItemIndex=0 then
begin
for i:=1 to ordo do
for j:=1 to ordo do
begin
A[i,j]:=strtofloat(stringgrid1.Cells[j,i]);
if i<>j then
L[i,j]:=0
else
L[i,j]:=1;
end;
for k:=1 to ordo-1 do
for i:=k+1 to ordo do
begin
m:=A[i,k]/A[k,k];
L[i,k]:=m;
for j:=k to ordo do
begin
A[i,j]:=A[i,j]-m*A[k,j];
end;
end;
stringgrid2.RowCount:=ordo+1;
stringgrid2.ColCount:=ordo+1;
stringgrid2.Cells[0,0]:='i,j';
for i:=1 to ordo do
begin
stringgrid2.Cells[0,i]:=inttostr(i);
stringgrid2.Cells[i,0]:=inttostr(i);
end;
for i:=1 to ordo do
for j:=1 to ordo do
stringgrid2.Cells[j,i]:=copy(floattostr(L[i,j]),1,5);
end
else if radiogroup1.ItemIndex=1 then
begin
for i:=1 to ordo do
for j:=1 to ordo do
A[i,j]:=strtofloat(stringgrid1.Cells[j,i]);
for k:=1 to ordo do
for i:=k+1 to ordo do
begin
m:=A[i,k]/A[k,k];
for j:=k to ordo do
begin
A[i,j]:=A[i,j]-m*A[k,j];
end;
end;
stringgrid2.RowCount:=ordo+1;
stringgrid2.ColCount:=ordo+1;
stringgrid2.Cells[0,0]:='i,j';
for i:=1 to ordo do
begin
stringgrid2.Cells[0,i]:=inttostr(i);
stringgrid2.Cells[i,0]:=inttostr(i);
end;
for i:=1 to ordo do
for j:=1 to ordo do
stringgrid2.Cells[j,i]:=copy(floattostr(A[i,j]),1,5);
end
else
begin
application.MessageBox('Tentukan jenis Matrix yang akan dipakai!','Message',MB_OK +MB_ICONWARNING);
groupbox3.Visible:=false;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
groupbox2.Visible:=true;
stringgrid1.Visible:=true;
ordo:=strtoint(edit1.Text);
stringgrid1.ColCount:=ordo+1;
stringgrid1.RowCount:=ordo+1;
stringgrid1.Cells[0,0]:='i/j';
for i:=1 to ordo do
begin
stringgrid1.Cells[0,i]:=inttostr(i);
stringgrid1.Cells[i,0]:=inttostr(i);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i:=1 to ordo do
stringgrid1.Rows[i].Clear;
edit1.Clear;

groupbox2.Visible:=false;

groupbox3.Visible:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
groupbox2.Visible:=false;
groupbox3.Visible:=false;
end;

end.

Modul Metode Numerik halaman 19 - 22

Listing program eliminasi Gauss tanpa memperhatikan elemen pivot

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
StringGrid3: TStringGrid;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ordo:integer;
A:array[1..100,1..100]of real;
B,X:array[1..100]of real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
m,sigma:real;
begin
groupbox3.Visible:=true;
for i:=1 to ordo do
for j:=1 to ordo do
A[i,j]:=strtofloat(stringgrid1.Cells[j,i]);
for i:=1 to ordo do
B[i]:=strtofloat(stringgrid2.Cells[1,i]);
for k:=1 to ordo-1 do
for i:=k+1 to ordo do
begin
m:=A[i,k]/A[k,k];
for j:=k to ordo do
A[i,j]:=a[i,j]-m*A[k,j];
B[i]:=b[i]-m*B[k];
end;
X[ordo]:=B[ordo]/A[ordo,ordo];
for k:=ordo-1 downto 1 do
begin
sigma:=0;
for j:=k+1 to ordo do
sigma:=sigma+A[k,j]*X[j];
X[k]:=(b[k]-sigma)/A[k,k];
end;
stringgrid3.RowCount:=2;
stringgrid3.ColCount:=ordo+1;
stringgrid3.Cells[0,0]:='i';
stringgrid3.Cells[0,1]:='x(i)';
for i:=1 to ordo do
begin
stringgrid3.Cells[i,0]:=inttostr(i);
stringgrid3.Cells[i,1]:=floattostr(x[i]);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
groupbox2.Visible:=true;
stringgrid1.Visible:=true;
stringgrid2.Visible:=true;
ordo:=strtoint(edit1.Text);
stringgrid1.ColCount:=ordo+1;
stringgrid1.RowCount:=ordo+1;
stringgrid1.Cells[0,0]:='i/j';
for i:=1 to ordo do
begin
stringgrid1.Cells[0,i]:=inttostr(i);
stringgrid1.Cells[i,0]:=inttostr(i);
end;
stringgrid2.ColCount:=2;
stringgrid2.Cells[0,0]:='i';
stringgrid2.RowCount:=ordo+1;
stringgrid2.Cells[1,0]:='b[i]';
for i:=1 to ordo do
stringgrid2.Cells[0,i]:=inttostr(i);
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i:=1 to ordo do
stringgrid1.Rows[i].Clear;
stringgrid2.Cols[1].Clear;
stringgrid2.Rows[1].Clear;
groupbox2.Visible:=false;
groupbox3.Visible:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
groupbox2.Visible:=false;
groupbox3.Visible:=false;
end;

end.



Listing program eliminasi Gauss degan memperhatikan elemen pivot

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
StringGrid3: TStringGrid;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ordo:integer;
A:array[1..100,1..100]of real;
B,X:array[1..100]of real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,t,s,r:integer;
m,sigma,pivot,tampung:real;
singular:boolean;
begin
groupbox3.Visible:=true;
for i:=1 to ordo do
for j:=1 to ordo do
A[i,j]:=strtofloat(stringgrid1.Cells[j,i]);
for i:=1 to ordo do
B[i]:=strtofloat(stringgrid2.Cells[1,i]);
k:=1;
singular:=false;
while(k<=ordo-1)and(not singular) do begin pivot:=A[k,k]; r:=k; for t:=k+1 to ordo do if Abs(A[t,k])>Abs(pivot) then
begin
pivot:=A[t,k];
r:=t;
end;
if pivot=0 then
singular:=true
else
if r>k then
begin
for s:=1 to ordo do
begin
tampung:=A[k,s];
A[k,s]:=A[r,s];
A[r,s]:=tampung;
end;
tampung:=B[k];
B[k]:=B[r];
B[r]:=tampung;
end;
for i:=k+1 to ordo do
begin
m:=A[i,k]/A[k,k];
for j:=k to ordo do
A[i,j]:=a[i,j]-m*A[k,j];
B[i]:=b[i]-m*B[k];
end;
k:=k+1;
end;
X[ordo]:=B[ordo]/A[ordo,ordo];
for k:=ordo-1 downto 1 do
begin
sigma:=0;
for j:=k+1 to ordo do
sigma:=sigma+A[k,j]*X[j];
X[k]:=(b[k]-sigma)/A[k,k];
end;
stringgrid3.RowCount:=2;
stringgrid3.ColCount:=ordo+1;
stringgrid3.Cells[0,0]:='i';
stringgrid3.Cells[0,1]:='x(i)';
for i:=1 to ordo do
begin
stringgrid3.Cells[i,0]:=inttostr(i);
stringgrid3.Cells[i,1]:=floattostr(x[i]);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
groupbox2.Visible:=true;
stringgrid1.Visible:=true;
stringgrid2.Visible:=true;
ordo:=strtoint(edit1.Text);
stringgrid1.ColCount:=ordo+1;
stringgrid1.RowCount:=ordo+1;
stringgrid1.Cells[0,0]:='i/j';
for i:=1 to ordo do
begin
stringgrid1.Cells[0,i]:=inttostr(i);
stringgrid1.Cells[i,0]:=inttostr(i);
end;
stringgrid2.ColCount:=2;
stringgrid2.Cells[0,0]:='i';
stringgrid2.RowCount:=ordo+1;
stringgrid2.Cells[1,0]:='b[i]';
for i:=1 to ordo do
stringgrid2.Cells[0,i]:=inttostr(i);
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i:=1 to ordo do
stringgrid1.Rows[i].Clear;
stringgrid2.Cols[1].Clear;
stringgrid2.Rows[1].Clear;
groupbox2.Visible:=false;
groupbox3.Visible:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
groupbox2.Visible:=false;
groupbox3.Visible:=false;
end;

end.

Tugas Algoritma dan Struktur Data Statistika B

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
ListBox1: TListBox;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
listmat=^Data;
Data=record
NIM:string;
Nama:string;
Alamat:string;
next:listmat;
end;

var
Form1: TForm1;
NIM1:string;
Nama1:string;
Alamat1:string;
awal,akhir:listmat;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var baru,bantu:listmat;
begin
NIM1:=edit1.Text;
Nama1:=edit2.Text;
Alamat1:=edit3.Text;
new(baru);
baru.NIM:=NIM1;
baru.Nama:=Nama1;
baru.Alamat:=Alamat1;
if awal=nil then
begin
awal:=baru;
end
else
akhir.next:=baru;
akhir:=baru;
akhir.next:=nil;
edit1.Clear;
edit2.Clear;
edit3.Clear;
listbox1.Clear;
bantu:=awal;
listbox1.Items.add(' NIM Nama Alamat ');
listbox1.Items.add('-----------------------------------------------------');
while bantu<>nil do
with bantu^ do
begin
listbox1.Items.Add(NIM+' '+Nama+' '+Alamat);
bantu:=next;
end;
end;

end.

Algoritma Pemograman

1.PERCABANGAN
Penggunaan If Else
Di gunakan untuk menguji sebuah kondisi dimana kondisi, bila kondisi yang di uji terpenuhi maka program akan melakukan pernyataan-pernyataan tertentu & bila kondisi yang di uji salah maka program akan menjalankan pernyataan lain.
Bentuk umumnya adalah :
If kondisi …..
Begin…
Pernyataan – pernyataan yang di jadikan bila kondisi benar
End………
Else…..
Pernyataan –pernyataan yang di jalan kan jika kondisi salah
K = Jika kondisi benar maka kerjakan K + 1? K + i, jika tidak maka kerjakan K + i + 1? K + r
K+1
----- Pernyataan-pernyataan dijalankan jika kondisi benar
K+i

K + i + 1
------ Dijalankan jika kondisi salah
K + r
Flowchart :

Contoh :
Begin
Read(x);
If ( x > 0 ) then
Writeln (‘x bilangan positif’);
Else
Writeln (‘x bukan bilangan positif’);
Writeln (x);
End.
Langkah – langkahnya adalah sebagai berikut :
1.Mulai
2.Masukkan x
3.Jika x > 0 maka kerjakan 4, jika tidak maka kerjakan 5
4.Tulis (‘x bilangan positif’)
5.Tulis (‘x bukan bilangan positif’)
6.Tulis (x)
7.Selesai
Bila ada lebih dari 2 pernyataan ( pernyataan if, else, if )
If kondisi 1 then
Begin
Pernyataan 1;
Else if kondisi 2 then
Begin
Pernyataan 2;
End;
-------------------------
-------------------------
Else if kondisi then
Begin
Pernyataan;
End.
Contoh lebih dari 2 pernyataan :
Read (x);
If (x > 0) then
Writeln (‘x bilangan positif’);
Else if (x <> 0 maka tulis (‘x bilangan positif’)
4.Jika x < x =" 0">

Latihan soal :
Tulis algoritma yang menampilkan bilangan genap jika suatu bilangan adalah bilangan genap dan bilangan ganjil jika suatu bilangan adalah bilangan ganjil.
Jawab :
Algoritmanya :
1.Mulai
2.Masukkan x
3.Jika x mod 2 = 0 maka tulis (‘bilangan genap’)
4.Jika x mod 2 =1 maka tulis (‘bilangan ganjil’)
5.Tulis x
6.Selesai
Bentuk flowchartnya :

Tugas :
Tulis algoritma untuk menghitung akar-akar persamaan kuadrat ax2 + bx + c = 0 x1,2 = -b +
Jawab :
Algoritmanya :
1.Mulai
2.Masukkan A
3.Masukkan B
4.Masukkan C
5.Hitung D ( sqr (b) – ( 4 * A + B )
6.Jika D > 0 maka kerjakan sub program 7
7.Mulai
Hitung X1 = ((-b) + sqrt (D) / phi * A )
Hitung X2 = ((-b) - sqrt (D) / phi * A )
Tulis X1
Tulis X2
Selesai
8.Jika D <>

b

s

Program latihan;
Uses crt;
Var
Real : a, b, a, D, X1, X2;
Begin
Writeln (‘masukkan nilai a !’);
Readln (a);
Writeln (‘masukkan nilai b !’);
Readln (b);
Writeln (‘masukkan nilai c !’);
Readln (c);
D := ( sqr (b) – ( 4*a*c );
If D > 0 then
Begin
X1 := ((-b) + sqrt (D) / 2 * A );
X­2 := ((-b) – sqrt (D) / 2 * A );
Writeln (‘X1 = ‘,X1);
Writeln (‘X2 = ‘,X2);
End;
Else
Writeln (‘Persamaan tidak memiliki akar nyata’);
Writeln (‘ax2 + ‘b’x +’c’ = 0’);
End.

2.Pengulangan
Pernyataan For
For pencacah := nilai awal to nilai akhir do
Begin
Pernyataan-pernyataan yang akan diulang
End.
Bentuk umumnya
K – pencacah = nilai awal
K+1 selama pencacah < = nilai akhir kerjakan K+2 – K+i K+2 ------- Pernyataan-pernyataan yang akan diulang K+ -1 K+i pencacah = pencacah + 1

Bentuk flowchart

Contoh :
Program pascal :
Begin
Read (X);
For I := 1 to 10 do
X = X + 1;
Writeln (X);
End.
Algoritmanya :
1.Mulai
2.Masukkan x
3.I = 1
4.Selama I < = 10 kerjakan 5 – 6 5.X = X + 1 6.I = I + 1 7.Tulis (x) 8.Selesai Flowchartnya :

Benar

Salah

Pernyataan for bersarang
For pencacah1 = nilai awal1 to nilai akhir1 do
Begin
For pencacah2­ = nilai awal2 to nilai akhir2 do
Begin
Pernyataan-pernyataan yang akan diulang
End;
End.
Bentuk umum
K – pencacah1 = nilai awal1
K + 1 selama pencacah1 = < = nilai akhir1 kerjakan K + 2 – K + I + 1 K + 2 selama pencacah2 K + 3 selama pencacah2 <= nilai akhir2 kerjakan K + 4 – K + I K + 4 ------- Pernyataan2 yang akan diulang K + I – 1 K + 1 pencacah2 = pencacah2 + 1 K + I + 1 pencacah1 = pencacah1 + 1 Bentuk umum flowchart / diagram alir :

S B

Contoh :
Buat algoritma untuk menampilkan semua bilangan genap yang lebih kecil 1 = 100.
Jawab :
1.Mulai
2.I = 1
3.Selama I <= 100 kerjakan 4 4.Jika 1 mod 2 = 0 maka kerjakan 5 Jika tidak maka kerjakan 6 5.Tulis (I) 6.I = I + 1 7.Selesai Bentuk flowchartnya :

Pernyataan While
Bentuk program pascal dari pernyataan while :
While condition do
Begin
Pernyataan2 yang akan diulang jika kondisi benar
End.
Bentuk umum :
-------
K = selama kondisi kerjakan K + 1 – K + I
K + 1
------- pernyataan2 yang akan diulang jika kondisi benar
K + I
Bentuk flowchartnya :

Pernyataan Repeat … Until
Bentuk program dalam pascal :
Repeat
Pernyataan-pernyataan yang akan diulang bila pernyataan masih salah
Until
Kondisi
Bentuk umum :
-------
K = ulangi langkah2 K + 1 – K + I sampai kondisi
K + 1
------- Pernyataan2 yang diulang bila kondisi masih salah
K + I
Bentuk flowchartnya :

Pernyataan Break
Digunakan untuk menyatakan sejumlah pengulangan di tengah jalan
Pernyataan Continue
Digunakan untuk memindahkan program dari loop ke – K ke loop K + I
Latihan soal :
Tulis algoritma dari :
Rata2

Jawab :
1.Mulai 12. Rata2 = Y/n
2.Masukkan n 13. Z = 0
3.I = 1 14. I = 1
4.Selama I <= n kerjakan 5 – 6 15. Selama I <= n kerjakan 16 – 21 5.Masukkan X ( I ) 16. Z = 2 + sqr ( X ( I ) – rata2 ) 6.I = I + 1 17. I = I + 1 7.Y = 0 18. S = sqr ( z/(n-1) ) 8.I = 1 19. Tulis rata2 9.Selama I <= n kerjakan 20. Tulis Y 10.Y = Y + X ( I ) 21. Selesai 11.I = I + 1 3.Pangkat X2 = sqr ( X ) = sqrt ( X ) Fungsi ex tan Fungsi ln x ex

Sifat-sifat :
1.e0 = 1 6. ln (xy) = ln x + ln y
2.ex+y = ex . ey 7. ln x/y = ln x . ln y
3.exy = ex/ey 8. ln xn = n . ln x
4.(ex)n = en.x 9. eln x = x
5.ln 1 = 0 10. ln ex = x

ln x

Latihan soal :
F (x) = x3 + 4x2 – 7x + z
3x2 + 8x – 7
x1 = x0
x2 = x1

Algoritmanya :
1.Mulai
2.Masukkan X0
3.f ( X0 = exp ( 3 * ln (x) ) + 4 * exp ( 2 * ln (x) ) – 7 * X + 2
4.f1 x0 = 3 * exp ( 2 * ln (x) ) + 8 * X – 7
5.X1 = X0 – fX0 / f1X­0
6.X0 = X1
7.Jika jarak < x0 =" exp" x0 =" 3" x1 =" X0" jarak =" abs" x0 =" X1;">

4.Subrutin
Procedure
Digunakan untuk melakukan proses terhadap variabel2
Bentuk umum :
Procedure nama procedure ( parameter 1, parameter 2, … )
Begin
Pernyataan-pernyataan
End.
Contoh :
Diket : c = a
a = b
b = c
Hitunglah dengan menggunakan Procedure.
Jawab :
Procedure tukar (a,b : real);
Var
c : real;
Begin
c := a;
a := b;
b := c;
End.

Function
Digunakan untuk menghitung dari variabel2
Bentuk umum :
Function nama fungsi ( parameter 1, parameter 2, … ) : type kembalian
…
…
Begin
Pernyataan-pernyataan
End.
Contoh :
Menghitung pangkat.
Jawab :
Function pangkat (n,x : real) : real
Begin
Pangkat := exp (n*ln (x));
End.
Program utamanya
Var
x,y : real
Begin
Read (y);
Z := pangkat (5,y)
Writeln (Z);
End.

Soal latihan :
1.Tulislah program yang meminta masukan dari pengguna dua matrik yang berukuran n x n kemudian menjumlah 2 matrik tersebut
2.tulislah 3 procedure masing-masing untuk meminta masukan matrik dari pengguna, menjumlahkan matrik, menampilkan matrik ke layar
jawab :
program masukkan 2 buah matrik
begin
read (m,n);
for I := 1 to m do
begin
for j := 1 to n do
begin
read (A[i,j]);
read (B[I,j]);
end;
end.
For i := 1 to m do
Begin
For j := 1 to n do
C [I,j] := A [i,j] + B [i,j];
For i := 1 to m do

Begin
For j := 1 to n do
Writeln (‘C[i,j]);
End;
End.

Procedure masukkan matriks
Bentuk umum :
Procedure masukkan matriks ( a : matrix ; n,m : integer );
Var
i, j : integer;
Begin
For I := 1 to m do
Begin
For j := 1 to n do
Read ( a [i, j] );
End;
End.
Procedure jumlah matriks
Bentuk umum :
Procedure jumlah matriks ( A, B : matrix ; var C : matrix; n, m : integer );
Var
I,J : integer;
Begin
For I := 1 to m do
Begin
For J := 1 to n do
C [I,J] := A [I,J] + B [I,J];
End;
End.

Procedure tulis matriks
Bentuk umum :
Procedure tulis matriks ( A : matrix; n,m : integer );
Var
I, J : integer;
Begin
For I := 1 to m do
Begin
For J := 1 to n do
Writeln ( A [I,J] )
End;
End.
Begin
Read (m,n);
Masukkan matrix (A, n, m);
Masukkan matrix (B, n, m);
Jumlahkan matrix (A, B, C, n, m);
Tulis matrix (C, n, m);
End.

Penyelesaian sistem persamaan linear dengan metode Gauss Eliminasi
Begin
Read (n);
For i := 1 to n do
Begin
For j := 1 to n + 1 do
Read (A[i,j]);
End;
For k := 1 to n – 1 do
Begin
For i := 1 to n do

Begin
C := A [i,k] / A [i,k];
For j := 1 to n + 1 do
A [i,j] = A [i,j] – A [i,j] * C;
End;
End;
For i := n downto 1 do
Begin
Z := 0;
For r := i + 1 to n do
Begin
Z := Z (A[i,r] * x [r];
End;
X [i] := (A[i,n+1) – Z) / A [i ,i];
Writeln (‘x[‘i’] =’[i]);
End;
End.

ELIMINASI GAUSS
Const
Max : 25;
Type
Matrik = record
Row, col : byte;
Element : array [1..max, 1..max] of real;
End;
Vektor = record
Row : byte;
Element : array [1..max] of real;
End;

Var x, b : vektor;
A : matrik;
n : integer;
Error : boolean;

Procedure masukkandata;
Var i,j : byte;
Begin
Write (‘jumlah persamaan’);
Readln (n);
A.row := n;
A.col := n ;
b. row := n;
for i := 1 to n do
begin
writeln (‘persamaan ke ‘,i );
for j := 1 to n do
begin
write (‘A[‘, i, ‘, ‘, j, ‘]= ‘);
readln (A.element [i,j]);
end;
end;

procedure eliminasigauss;
var I,j,k : integer;
temp, S : real;
Begin
Error := false;
For i := 1 to A.row – 1 do
For k := i + 1 to A.row do
Begin
If (A.element[i,i] = 0.0 ) then
Begin
Error := true;
Exit;
End;
Temp := A.element [k,i] / A.element[i,i];
For j := i + 1 to A.row do
A.element [k,j] := A.element [k,j] - * temp A.element [i,j];
b.element [k] := b.element [k] – temp * b.element [i];
A.element [k,j] := 0.0 ;
End;
x.row := A.row;
for i := A.row downto 1 do
begin
S := b.element [i];
For j:= i + 1 to A.row do
S := S –A.element [i,j] * x.element [j];

If (A.element [i,i] = 0.0 ) then
Begin
Error := true;
Exit;
End;
x.element [i] := S / A.element [i,i];
end;
end;

Procedure tulishasil;
Var i : byte;
Begin
If (error) then
Begin
Writeln (‘persamaan simultan linear tidak dapat diselesaikan’);
End;
Else
Begin
Writeln;
Writeln (‘penyelesaian persamaan linear simultan : ‘);
For i := 1 to x.row do
Writeln (x.row [i] : 6 : 2 );
End;
End.

Begin
Masukkandata;
Eliminasigauss;
Tulishasil;
End.

5.Rekursi
Adalah kemampuan suatu loding untuk memanggil dirinya sendiri
Contoh :
Function factorial (n : integer) : integer;
Begin
If (n = 0) or (n = 1) then
Factorial := 1
Else
Factorial := n * factorial (n-1);
End;

Factorial (4)
Factorial = 4 * factorial (3)
Factorial = 3 * factorial (2)
Factorial = 2 * factorial (1)
Factorial = 1

Fungsi FTP (m,j,n : integer) : integer;
Begin
If (m = 0) then
FTP := n
Else if (m < n =" 0)" n =" 1)">

BUJURSANGKAR AJAIB

16
2
3
13
5
11
10
8
9
7
6
12
4
14
15
1

Algoritma penyusunan bujur sangkar 4m x 4m
1.Isi bujur sangkar dengan nilai 1 s/d 42m secara berurutan
2.Bagi bujur sangkar menjadi berukuran 4m/2 x 4m/2
3.Beri nama elemen2 bujur sangkar dengan kode X11, X12, X13, … , X44
4.Lakukan pertukaran berikut
X11 ? X44, X14 ? X41, X22 ? X33, dan X23 ? X32
5.Apabila setiap elemen bujur sangkar masih terdiri dari bujur sangkar lagi, artinya m > 1, kerjakan lagi baris 2

Const
Max = 128;
Valid : set of byte = [4, 8, 16, 32, 64, 128];
Var i, j, n : byte;
A : array [1..max, 1..max0 of word);

Procedure tukarkotak (dimensi, ofsx, ofsy : byte);
Var i, j : byte;
Center2 : byte;
Center4 : byte;
Begin
Center2 := dimensi div 2;
Center4 := dimensi div 4;
For i := 1 to center4 do
For j := 1 to center4 do

Begin
Tukar (A [ofsy + j, ofsx + i], A [dimensi + ofsy – center4 + j, dimensi + ofsx – center4 + i]);
Tukar (A [ofsy + center4 = j, ofsx + center4 + i], A [ofsy + center2 + j, ofsx + center2 + i]);
Tukar(A [ofsy + center2 + j, ofsx + center4 + i], A [ofsy + center4 + j, ofsx + center2 + i]);
Tukar (A [ofsy + j, dimensi + ofsx – center4 + i], A [dimensi + ofsy – center4 + j, ofsx + i]);

If (center2 > 2) then
Begin
Tukarkotak (center2, ofsx, ofsy);
Tukarkotak (center2, ofsx + center2, ofsy);
Tukarkotak (center2, ofsx, ofsy + center2);
Tukarkotak (center2, ofsx + center2, ofsy + center2);
End;
End;

Begin
Write (‘masukkan dimensi bujur sangkar : ‘);
Readln (n);
If (not (n in valid)) then
Begin
Writeln (‘dimensi bujur sangkar tidak valid ‘);
Halt;
End;

Fillchar (a, sizeof (a), 0);
For i := 1 to n do
For j := 1 to n do
A [i, j] := (i – 1) * n + j;

Tukarkotak (n, 0, 0);
For i := 1 to n do
Begin
For j := 1 to n do
Write (A [i, j] : 3, ‘ ‘ );
Writeln ;
End;
End.

Kafein

Kafein adalah sejenis obat yang secara natural diproduksi oleh daun dan benih pada beberapa jenis tanaman. Kafein juga bisa diproduksi dengan sengaja dan ditambahkan pada bahan-bahan makanan. Kafein dimasukkan kategori obat karena memberikan rangsangan pusat sistem saraf yang meningkatkan stamina. Kafein menyumbangkan energi sementara pada individu yang mengkonsumsinya dan juga menghilangkan rasa tidak mood.

Kafein ada di dalam teh, kopi, cokelat, dan beberapa minuman ringan, pada obat yang menghilangkan rasa sakit dan beberapa jenis obat-obatan lainnya. Dalam bentuk yang alami, kafein terasa sangat pahit. Tetapi, beberapa minuman berkafein sudah melalui beberapa proses yang berhasil menyamarkan rasa pahit kafein.

Remaja biasanya mengonsumsi kafein dari minuman ringan dan minuman penambah energi. (Selain tambahan bahan kafein buatan, minuman ini juga mengandung bahan tambahan pemanis dan perasa buatan). Kafein tidak akan meresap ke dalam tubuh, tetapi kamu dapat merasakan efeknya selama enam jam. Kebanyakan orang merasakan bahwa kafein meningkatkan stamina. Kafein dengan dosis tinggi menyebabkan rasa bimbang, pusing, sakit kepala, dan rasa gugup. Kafein juga dapat mempengaruhi pola tidur normal.

Sensitivitas kafein (jumlah kafein yang dapat memberikan efek pada seseorang) sangat bervariasi dari individu ke individu. Rata-rata, semakin kecil seseorang semakin sedikit kafein memberikan efek samping. Sensitivitas kafein memberikan efek berdasarkan jumlah kafein yang dikonsumsi sehari-hari. Orang yang biasa mengonsumsi kafein dalam jumlah besar secara rutin lama-lama memiliki sensitivitas kecil pada kafein. Hal ini berarti mereka harus mengonsumsi jumlah kafein lebih besar untuk mendapatkan efek yang sama.

Mengonsumsi kafein menyebabkan orang menjadi lebih sering buang air kecil. Kafein juga menyebabkan tubuh kehilangan kalsium dan memicu hilangnya masa tulang dari waktu ke waktu. Meminum kafein yang ada di dalam minuman ringan dan juga kopi yang dicampur dengan susu, bahkan memberikan efek yang lebih besar pada massa tulang dan risiko menderita osteoporosis.

Kafein dapat memperburuk penyakit jantung tertentu. Kafein juga bisa berinteraksi dengan beberapa jenis oabt-obatan dan suplemen. Jika kamu merasa stres atau cemas, kafein bisa memperparah keadaan ini. Meskipun kafein kadang-kadang digunakan untuk pengobatan sakit kepala migrain, kafein dapat memperburuk sakit kepala pada beberapa orang.


Lalu, Apa Kuncinya?

Kafein biasanya aman dikonsumsi dalam jumlah yang tidak berlebihan. Para ahli menyarankan 200-300 miligram konsumsi kafein dalam sehari merupakan jumlah yang cukup untuk orang dewasa. Tapi, mengonsumsi kafein sebanyak 100 miligram tiap hari dapat menyebabkan individu tersebut tergantung pada kafein. Maksudnya, seseorang dapat mengalami gejala seperti rasa lelah, perasaan terganggu atau sakit kepala jika ia tiba-tiba berhenti mengonsumsi kafein.

Remaja harus mencoba untuk membatasi konsumsi kafein dengan tidak lebih 100 miligram kafein dalam sehari. Anak-anak harus jauh lebih sedikit mengonsumsinya.

Jika kamu mengonsumsi kafein terlalu berlebihan, kamu mungkin ingin segera menghentikannya. Cara yang terbaik adalah menghentikannya secara perlahan. Jika tidak kamu akan terserang sakit kepala atau merasa lelah atau hanya sekedar merasa hilang.

Cobalah dengan mengganti minuman bersoda yang mengandung kafein dengan menggantinya yang tanpa kafein. Contohnya air putih, minuman soda bebas kafein, dan teh bebas kafein. Tetap menghitung jumlah kafein yang dikonsumsi setiap harinya. Gantilah satu jenis minuman tiap minggunya dengan yang bebas kafein sampai kamu menemukan dirimu mengonsumsi kafein kurang dari 100 miligram per harinya.

Program Tambah dan Hapus Tengah

Berikut adalah daftar Listingnya...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
ListBox1: TListBox;
Button1: TButton;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
BitBtn2: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
xxx=^abc;
abc=record
isi:string;
next:xxx;
end;
var
Form1: TForm1;
awal,bantu,baru:xxx;
i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
begin
new(baru);
baru.next:=nil;
baru.isi:=Edit1.Text;
i:=i+1;
if awal=nil then
awal:=baru
else
begin
bantu:=awal;
for j:=1 to ((i div 2)-1) do
bantu:=bantu.next;
baru.next:=bantu.next;
bantu.next:=baru;
end;
Edit1.Clear;
ListBox1.Clear;
bantu:=awal;
while BANTU<>nil do
begin
ListBox1.Items.Add(BANTU.isi);
bantu:=bantu.next;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
awal:=nil;
end;

end.


Untuk Hapus tengahnya sedang dalam proses, harap menunggu ^^
Thanks

Grammar Suroboyo 3 - Lontong Balap

Tugas Algoritma dan Struktur Data 01 Lab. B Revisi 1

Gambar tersebut di atas adalah tampilan interfacenya
Keterangan
Kiri atas : Input
Kiri Bawah : Output
Kanan Atas : Matriks A
Kanan Bawah: Matriks B


Sedangkan untuk listing programnya adalah sebagai berikut:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

StringGrid1.ColCount:=strtoint(edit1.Text)+1;
StringGrid1.RowCount:=strtoint(edit2.Text)+1;
StringGrid2.ColCount:=strtoint(edit1.Text)+1;
StringGrid2.RowCount:=strtoint(edit2.Text)+1;
StringGrid3.ColCount:=strtoint(edit1.Text)+1;
StringGrid3.RowCount:=strtoint(edit2.Text)+1;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var i,j:integer;
begin

for i:=1 to StrToInt(Edit1.Text) do
begin
for j:=1 to StrToInt(Edit2.Text) do
begin
StringGrid3.Cells[i,j]:=IntToStr(StrToInt(StringGrid1.Cells[i,j])+StrToInt(StringGrid2.Cells[i,j]));

end;
end;
end;
end.


NB: listing program boleh sama asal tampilan interfacenya dibuat se-kreatif mungkin ^^

Special thanks to S'Kib and Fendy...

Lirik lagu D’Masiv - Lelaki Pantang Menyerah

Mungkin salahku
Telah Memasuki kehidupanmu
Yang telah berdua
Namun semua ini takkan membuatku
Menyerah begitu saja

Meski harus kupertaruhkan semua
Meski cinta harus membunuh hatiku
Jangan kau sebut aku lelaki
Bila ku tak mampu dapatkan kamu

Reff:

Aku terlahir di dunia ini
Bukan tuk jadi seorang pecundang
Aku terlahir sebagai pemenang
Kan kurebut hatimu darinya

Meski harus kupertaruhkan semua
Meski cinta harus membunuh hatiku
Jangan kau sebut aku lelaki
Bila ku tak mampu dapatkan kamu

*Back 2 Reff...

Aku lelaki yang pantang menyerah

Cara Download Video YouTube dengan Firefox

Banyak sekali cara-cara download video Youtube yang diberikan oleh vendor-vendor software, namun kali ini tidak perlu lagi menggunakan software download apapun hanya menggunakan browser Mozilla Firefox saja. Video akan berekstensi (.flv)
Caranya cukup mudah dan simpel tanpa harus menunggu lama-lama. Berikut ini adalah langkah-langkahnya:

1. Buka video dari Youtube yang ingin kamu buka dan lihat. Tonton video tersebut hingga tuntas.
2. Buka Tab baru pada browser dan ketik about:cache?device=disk pada address barnya.
   
3. Nanti akan muncul lokasi cachenya. Misal akan muncul lokasi cachenya sebagai berikut C:\Documents and Settings\HenQ'Z\Local Settings\Application Data\Mozilla\Firefox\Profiles\2eygph9d.default\Cache
4. Copi dan Paste lokasi tersebut pada address bar windows explorer.
5. Klik kanan daerah kosong dan pilih Arrange Icons By > Modified dan cari file yang berukuran besar (biasanya film-film dari YouTube berukuran besar).
6. Klik kanan dan rename file tersebut dengan menambahkan (.flv) di belakang nama file tersebut. Misal 011A7B37D10 -> 011A7B37D10.flv
7. Pindahkan file tersebut ke disk yang kamu inginkan agar mudah mencarinya.
8. Selamat menonton dan jangan lupa untuk mendownload dan install software pemutar film berekstensi .flv terlebih dahulu apabila kamu belum mempunyai pemutar film (.flv).

Sekian dan Silahkan dicoba...

Atau bisa gunakan File2HD jika masih mengalami kesulitan

Tugas Algoritma dan Struktur Data Statistika B 07

Ini program buat tugas SDA buat temen2 kalau pengen tau program yang aku buat secara lengkap dan telah teruji 100% worked. Tetapi jangan lupa untuk mengganti variabel supaya tidak terlihat sama. Trims...
Untuk program selain Delphi, tambahkan ClrScr; setelah begin ke-2.


var
nim,nama:string;
ulang:char;

function name(nim:string):string;
begin
if nim = '0710950004' then
name:= 'Henny Dwi Restuti'
else if nim = '0710950006' then
name:= 'Nikmatun Nikmah'
else if nim = '0710950008' then
name:= 'Dewi Ratnasari'
else if nim = '0710950010' then
name:= 'Adysti Rizky'
else if nim = '0710950012' then
name:= 'Salisa Ratna Abidin'
else if nim = '0710950014' then
name:= 'Gita Gumilar'
else if nim = '0710950016' then
name:= 'Vionita Indriani'
else if nim = '0710950018' then
name:= 'Tutus Suratina'
else if nim = '0710950020' then
name:= 'Effendi Susanto'
else if nim = '0710950022' then
name:= 'Bimanto Dwi Cahyadi'
else if nim = '0710950028' then
name:= 'Henky Rizky Widiardi'
else if nim = '0710950032' then
name:= 'Muhammad Izzul Anwar'
else if nim = '0710950034' then
name:= 'Sandi Ratna'
else if nim = '0710950036' then
name:= 'Astri Yuliana'
else if nim = '0710950038' then
name:= 'Desi Mariyana'
else if nim = '0710950042' then
name:= 'Siti Khoirun Nisak'
else if nim = '0710950046' then
name:= 'Jefry Damai'
else if nim = '0710950047' then
name:= 'Angga Dwi M'
else if nim = '0710953002' then
name:= 'Winda Dwi Krismawati'
else if nim = '0710953004' then
name:= 'Sulis Harmamik'
else if nim = '0710953006' then
name:= 'Nidia Rinasa'
else if nim = '0710953008' then
name:= 'Tri Handiyah'
else if nim = '0710953010' then
name:= 'Latiffatul Haniffa'
else if nim = '0710953012' then
name:= 'Rifal Purbaya'
else if nim = '0710953016' then
name:= 'Vierkury Metyopandi'
else if nim = '0710953018' then
name:= 'Layinatus Sofa'
else if nim = '0710953022' then
name:= 'Ika Novita Delima'
else if nim = '0710953024' then
name:= 'Achmad Bara'
else if nim = '0710953026' then
name:= 'Sakib'
else if nim = '0710953028' then
name:= 'Winda Arika'
else if nim = '0710953030' then
name:= 'Risdiana Chandra'
else if nim = '0710953032' then
name:= 'Deni Apriyanto'
else if nim = '0710953034' then
name:= 'Fahmi Khuluqin Nafik'
else if nim = '0710953036' then
name:= 'Myta Fitriany'
else if nim = '0710953040' then
name:= 'Haris Susilo Efendi'
else if nim = '0710953042' then
name:= 'Ahmad Fauzy Ridwan'
else
name:= 'salah';
end;

begin
WriteLn('-------------------------------------');
WriteLn('- TUGAS ALGORITMA DAN STRUKTUR DATA -');
WriteLn('--------------------------[by. Henky]');
repeat
WriteLn;
Write('Masukkan NIM : ');
ReadLn(nim);
nama:=name(nim);
if nama = 'salah' then
WriteLn('NIM yang dimasukkan salah')
else
begin
WriteLn('NIM : ',nim);
WriteLn('Nama : ',nama);
end;
WriteLn;
Write('Ulang lagi (ketik Y jika mengulang) : ');
ReadLn(ulang);
WriteLn;
until UpCase(ulang)<>'Y'; {program akan kembali jika memilih Y}
end.


Untuk teman-teman yang namanya salah atau tidak sesuai dengan NIM ataupun belum tercantum di dalam daftar di atas, harap segera menghubungi saya agar segera dikonfirmasi. Trims...

Posting pertama

Buat temen-temen, blog masi dalam permulaan jadi harap maklum ^^


Untuk melihat profilku lebih lengkap, cek

• Facebook dan FS -> henky_mate@yahoo.com
• Yahoo Messenger -> henky_mate
• Nimbuss -> Ace2L0vE
• mig33 -> s_t4lx_r

Thanks and see y