tag:blogger.com,1999:blog-65856446521647247312024-03-13T06:08:35.784-07:00Struktur DataRodikya-111221121http://www.blogger.com/profile/12689401547606945947noreply@blogger.comBlogger5125tag:blogger.com,1999:blog-6585644652164724731.post-34928967585559668922012-05-06T01:12:00.001-07:002012-05-06T01:12:26.262-07:00Tugas 4 (Form 1 Borland Delphi 7)unit Unit1;<br />
interface<br />
uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls, ExtCtrls, jpeg;<br />
type<br /> TForm1 = class(TForm)<br /> Button1: TButton;<br /> Label1: TLabel;<br /> Label2: TLabel;<br /> Button2: TButton;<br /> Label3: TLabel;<br /> Button3: TButton;<br /> Label4: TLabel;<br /> Button4: TButton;<br /> Button5: TButton;<br /> Label5: TLabel;<br /> Label6: TLabel;<br /> Label7: TLabel;<br /> Button6: TButton;<br /> Edit1: TEdit;<br /> Edit2: TEdit;<br /> Edit3: TEdit;<br /> Label8: TLabel;<br /> Image1: TImage;<br /> procedure Button5Click(Sender: TObject);<br /> procedure Button1Click(Sender: TObject);<br /> procedure Button2Click(Sender: TObject);<br /> procedure Button3Click(Sender: TObject);<br /> procedure Button4Click(Sender: TObject);<br /> procedure Button6Click(Sender: TObject);<br /> private<br /> { Private declarations }<br /> public<br /> { Public declarations }<br /> end;<br />
var<br /> Form1: TForm1;<br />
implementation<br />
{$R *.dfm}<br />
procedure TForm1.Button5Click(Sender: TObject);<br />begin<br />close;<br />end;<br />
procedure TForm1.Button1Click(Sender: TObject);<br />var<br />i,j:integer; b:string;<br />begin<br />b:='';j:=2;<br />for i:=1 to 10 do<br />begin<br />b:=b+inttostr(j)+' ';<br />j:=j+2;<br />end;<br />label1.Caption:=b;<br />end;<br />procedure TForm1.Button2Click(Sender: TObject);<br />var<br />i,j:integer; b:string;<br />begin<br />b:='';j:=2;<br />for i:=10 downto 1 do<br />begin<br />b:=b+inttostr(i)+' ';<br />j:=j+2;<br />end;<br />label2.Caption:=b;<br />end;<br />procedure TForm1.Button3Click(Sender: TObject);<br />var<br />i,j:integer; b:string;<br />begin<br />i:=1;<br />b:='';<br />while i<=10 do<br />begin<br />b:=b+inttostr(i)+' ';<br />i:=i+1;<br />end;<br />label3.Caption:=b;<br />end;<br />procedure TForm1.Button4Click(Sender: TObject);<br />var<br />i,j:integer; b:string;<br />begin<br />i:=1;<br />b:='';<br />repeat<br />b:=b+inttostr(i)+'';<br />i:=i+1;<br />until i>10;<br />label4.Caption:=b;<br />end;<br />procedure TForm1.Button6Click(Sender: TObject);<br />var<br />bil,hasil,pangkat,a:integer;<br />begin<br />bil:=strtoint(edit1.Text);<br />hasil:=bil;<br />pangkat:=strtoint(edit2.Text);<br />if edit2.Text='0' then edit3.Text:='1' else<br />if edit2.Text='1' then edit3.Text:=edit1.Text else<br />begin<br />for a:=2 to pangkat do<br />hasil:=hasil*bil;<br />edit3.Text:=inttostr(hasil);<br />end;<br />end;<br />end.<br />
<br />
PrtScr :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRPykgryyXugE2bJ5_H7rz5kLnK57seQJ_QGx5jL668pi0e705dO_Zz05xsXoRh68DXmFX8ErH-u7LY03kHPsnDiWxq8o4O7l0bhA6tYgGWtW41WOby7kMlgzI-guUYWMJRGbtqFjkwiUU/s1600/4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRPykgryyXugE2bJ5_H7rz5kLnK57seQJ_QGx5jL668pi0e705dO_Zz05xsXoRh68DXmFX8ErH-u7LY03kHPsnDiWxq8o4O7l0bhA6tYgGWtW41WOby7kMlgzI-guUYWMJRGbtqFjkwiUU/s400/4.jpg" width="360" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div align="center">
</div>Rodikya-111221121http://www.blogger.com/profile/12689401547606945947noreply@blogger.com0tag:blogger.com,1999:blog-6585644652164724731.post-90767382622387300332012-03-24T22:33:00.003-07:002012-03-24T22:35:11.861-07:00Tugas 3 (Struktur Data)Program Kombinasi_Rodikya;<o:p></o:p><br />
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
Uses<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>WinCrt;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<br /></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
Procedure Fak(Var
F,Hasil:Integer);<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
Var<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>I:Integer;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>T:String;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<br /></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
Begin<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Hasil:=1;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>For I:=2 to F do<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Hasil:=Hasil*I;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
End;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<br /></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
Var<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>R,N,NR,F1,F2,F3:Integer;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>C:Real;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span><o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
Begin<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Writeln('Selamat Datang Di Program
Kombinasi');<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Writeln;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Write('Masukkan N = ');Readln(N);<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Write('Masukkan R = ');Readln(R);<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>NR:=N-R;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Fak(N,F1);<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Fak(NR,F2);<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Fak(R,F3);<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>C:=F1/(F2*F3);<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Writeln;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Writeln('Maka Kombinasinya Adalah :
',c:9:0);<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span>Writeln;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>Writeln;<o:p></o:p></div>
<br />
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
End.</div>
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
<br /></div>
<div align="left" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
Prt Scr :</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBJBL-ow5KXRwq1WOQrQOorHysCwtQTr7UzZ3jL1bz-TOspPyNHl-C_xs6eey0xgteIjjrwOaZkyCC5_ae9AfkulvJ1rO_Wz9WCZl4phfb0voVtTG6Dxj4oJN768JRhIbe_Bv8Te7c0I2N/s1600/dia4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="253" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBJBL-ow5KXRwq1WOQrQOorHysCwtQTr7UzZ3jL1bz-TOspPyNHl-C_xs6eey0xgteIjjrwOaZkyCC5_ae9AfkulvJ1rO_Wz9WCZl4phfb0voVtTG6Dxj4oJN768JRhIbe_Bv8Te7c0I2N/s400/dia4.jpg" width="400" /></a></div>
<div align="center" class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left;">
</div>Rodikya-111221121http://www.blogger.com/profile/12689401547606945947noreply@blogger.com0tag:blogger.com,1999:blog-6585644652164724731.post-60350077624184666012012-03-11T04:24:00.000-07:002012-03-11T04:24:24.020-07:00Tugas 2 (Struktur Data)<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
Pertemuan Ke 3 Tanggal 7 Maret 2012</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
SEMESTER 2D</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
Tugas 2:</div>
<ol>
<li><span style="font-family: "Times New Roman", "serif"; font-size: 12pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Arial; mso-bidi-font-size: 11.0pt; mso-bidi-language: AR-SA; mso-bidi-theme-font: minor-bidi; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin;">Buat Program Menampilkan Rincian Uang</span></li>
<div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<br /></div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
PROGRAM RINCIAN_TRANSAKSI_RODIKYA;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
USES WINCRT;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
VAR</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
NAMA,O:STRING;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
A,B,C,D,E,F,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z:LONGINT;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<br /></div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
BEGIN</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
REPEAT;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
CLRSCR;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN('SELAMAT DATANG');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITE('MASUKKAN NAMA<span style="mso-spacerun: yes;"> </span>: '); READLN(NAMA);</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITE('HABIS BERAPA<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>: '); READLN(A);</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITE('TERIMA UANG<span style="mso-spacerun: yes;"> </span>: '); READLN(B);</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
C:=B-A;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF C<0 THEN WRITELN('RINCIAN KURANG<span style="mso-spacerun: yes;"> </span>: ',C);</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<br /></div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
D :=C<span style="mso-spacerun: yes;"> </span>MOD 100000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
P :=C<span style="mso-spacerun: yes;"> </span>DIV 100000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
E :=D<span style="mso-spacerun: yes;"> </span>MOD 50000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
Q :=D<span style="mso-spacerun: yes;"> </span>DIV 50000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
F :=E<span style="mso-spacerun: yes;"> </span>MOD 20000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
R :=E<span style="mso-spacerun: yes;"> </span>DIV 20000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
G :=F<span style="mso-spacerun: yes;"> </span>MOD 10000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
S :=F<span style="mso-spacerun: yes;"> </span>DIV 10000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
H :=G<span style="mso-spacerun: yes;"> </span>MOD 5000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
T :=G<span style="mso-spacerun: yes;"> </span>DIV 5000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
I :=H<span style="mso-spacerun: yes;"> </span>MOD 2000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
U :=H<span style="mso-spacerun: yes;"> </span>DIV 2000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
J :=I<span style="mso-spacerun: yes;"> </span>MOD 1000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
V :=I<span style="mso-spacerun: yes;"> </span>DIV 1000;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
K :=J<span style="mso-spacerun: yes;"> </span>MOD 500;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
W :=J<span style="mso-spacerun: yes;"> </span>DIV 500;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
L :=K<span style="mso-spacerun: yes;"> </span>MOD 200;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
X :=K<span style="mso-spacerun: yes;"> </span>DIV 200;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
M :=L<span style="mso-spacerun: yes;"> </span>MOD 100;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
Y :=L<span style="mso-spacerun: yes;"> </span>DIV 100;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
N :=M<span style="mso-spacerun: yes;"> </span>MOD 50;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
Z :=M<span style="mso-spacerun: yes;"> </span>DIV 50;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<br /></div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF P>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(P, ' LEMBAR<span style="mso-spacerun: yes;"> </span>RP. 100.000,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF Q>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(Q, ' LEMBAR<span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>50.000,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF R>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(R, ' LEMBAR<span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>20.000,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF S>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(S, ' LEMBAR<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>10.000,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF T>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(T, ' LEMBAR<span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>5.000,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF U>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(U, ' LEMBAR<span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>2.000,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF V>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(V, ' LEMBAR/LOGAM<span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>1.000,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF W>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(W, ' LOGAM<span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>500,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF X>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(X, ' LOGAM<span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>200,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF Y>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(Y, ' LOGAM<span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>100,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF Z>0<span style="mso-spacerun: yes;"> </span>THEN WRITELN(Z, ' LOGAM<span style="mso-spacerun: yes;"> </span>RP.<span style="mso-spacerun: yes;"> </span>50,-');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN('SISA UANG<span style="mso-spacerun: yes;"> </span>: ',C:6);</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
IF Z<=1 THEN Z:=50;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>BEGIN</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>WRITELN('PEMBULATAN<span style="mso-spacerun: yes;"> </span>: ',Z:6);</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>C:=C-Z;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>WRITELN('TOTAL SISA UANG<span style="mso-spacerun: yes;"> </span>: ',C:6);</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>END;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN('KET : <100 DI BULATKAN');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>IF C<0 THEN</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>BEGIN</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>WRITELN('MAAF UANG ANDA KURANG ',C);</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>WRITELN('SEGERA DILUNASI / BARANG ANDA TIDAK DAPAT DIBAWA PULANG');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<span style="mso-spacerun: yes;"> </span>END;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN('TERIMA KASIH TELAH BERKUNJUNG');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN('---( ',NAMA,' )---');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITELN;</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
WRITE ('INGIN COBA LAGI? (Y/N) : '); READLN (O);</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
UNTIL (O='N') OR (O='n');</div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
<br /></div>
<div class="MsoNormal" style="margin: 0cm 0cm 0pt;">
END.</div>
</div>
</ol>
Print Screen :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgopmWglX5knYpd0ILYMN7wN-HlJ08MH09IlFZpVnYTeeqra8Tqynk1Bt2Cb9t5CJlvf2_RJzbpsCgxJq2_ziqBZC3Pe_OL0ZBixrU_TKTu2VLmY0NySBaVC9wsCNcIKoxRRkTQdSiK6kN4/s1600/5.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="234" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgopmWglX5knYpd0ILYMN7wN-HlJ08MH09IlFZpVnYTeeqra8Tqynk1Bt2Cb9t5CJlvf2_RJzbpsCgxJq2_ziqBZC3Pe_OL0ZBixrU_TKTu2VLmY0NySBaVC9wsCNcIKoxRRkTQdSiK6kN4/s320/5.jpg" width="320" yda="true" /></a></div>
<div align="center">
</div>
<br />Rodikya-111221121http://www.blogger.com/profile/12689401547606945947noreply@blogger.com0tag:blogger.com,1999:blog-6585644652164724731.post-72650080278906680962012-03-03T20:13:00.000-08:002012-03-03T20:14:51.820-08:00Tugas (Struktur Data)<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Pertemuan Ke 2 Tanggal 29 Februari 2012<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Semester 2D<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Tugas 1 :<o:p></o:p></span><br />
<ol>
<li><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Buat Program Untuk Perkalian Dua Matrix<o:p></o:p></span></li>
<li><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Buat Program Untuk Menampilkan Matrix Identitas
Terbalik</span></li>
</ol>
<div>
</div>
<div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;">
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Jawaban</span><br />
<a name='more'></a><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">No. 1 :<o:p></o:p></span></div>
<br />
<div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;">
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">Program
Perkalian_</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">2_</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">Matrix_</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Rodikya</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">;<o:p></o:p></span></div>
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">uses<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">wincrt;<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">var<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">a,b,c
: array [1..10,1..10] of integer;<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">i,j,k,x,y,z
: integer;<o:p></o:p></span><br />
<br />
<div>
</div>
<div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;">
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">begin<o:p></o:p></span></div>
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln('PROGRAM
PERKALIAN MATRI</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">X</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">');<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln;<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln('</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">ORDO </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">MATRIX
</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">A</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">');<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">write('</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Jumlah</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">
Baris : '); readln(x);<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">write('</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Jumlah</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">
Kolom : '); readln(y);<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln;<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln('</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">ORDO </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">MATRIX
</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">B</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">');<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln('</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Jumlah B</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">aris
: ',y);<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">write('</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Jumlah K</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">olom
: '); readln(z);<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln;<o:p></o:p></span><br />
<br />
<div>
</div>
<div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;">
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln
('MATRIX A');<o:p></o:p></span></div>
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">for
i:=1 to x do<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">for
j:=1 to y do<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">begin<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">write('</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Nilai Matrix A Baris </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">',i,'</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">, Kolom </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">',j,' :
');readln(a[i,j]);<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">end;<o:p></o:p></span><br />
<br />
<div>
</div>
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln;<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln
('MATRIX B');<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">for
i:=1 to y do<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">for
j:=1 to z do<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">begin<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">write('</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Nilai Matrix B Baris </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">',i,',</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;"> Kolom </span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">',j,' : ');
readln(b[i,j]);<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">end;<o:p></o:p></span><br />
<br />
<div>
</div>
<div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;">
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">for
i:=1 to x do<o:p></o:p></span></div>
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">for
j:=1 to z do<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">for
k:=1 to y do<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">c[i,j]
:= c[i,j] + a[i,k]*b[k,j];<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln;<o:p></o:p></span><br />
<br />
<div>
</div>
<div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;">
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln('HASIL
</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">PERKALIAN MATRIX ADALAH</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;"> : ');<o:p></o:p></span></div>
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln;<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">for
i:=1 to x do<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">begin<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">for
j:=1 to z do<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">write(c[i,j]</span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">:4</span><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">);<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln;<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">writeln;<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">end;<o:p></o:p></span><br />
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">end.</span><br />
<br />
<div>
</div>
<span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">Hasil Akhir :</span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEid7nY0BZd_IUfNIMz1-BoTeKB0MSScxsF1o5HkkzP99qIQUrQDX27WkJESAgMiniMHRNkr4tEZNpF_wRNlp6DKe7h-fBpsHIOtPIpYeWfvqbqx9zseTpDUV2MR_FHTbnmaiHe74IZK_sKp/s1600/4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEid7nY0BZd_IUfNIMz1-BoTeKB0MSScxsF1o5HkkzP99qIQUrQDX27WkJESAgMiniMHRNkr4tEZNpF_wRNlp6DKe7h-fBpsHIOtPIpYeWfvqbqx9zseTpDUV2MR_FHTbnmaiHe74IZK_sKp/s400/4.jpg" width="400" /></a></div>
<br />
<div>
</div>
<br />
<div>
</div>
<div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;">
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">No. 2 :<o:p></o:p></span></div>
<br />
<div>
</div>
<div class="MsoNormal" style="line-height: normal; margin: 0cm 0cm 0pt;">
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">Program Matrik_Identitas_Rodikya;<o:p></o:p></span></div>
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">uses<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">wincrt;<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">var<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">a,b,c:array[1..5,1..5] of integer;<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">x,y: integer;<o:p></o:p></span><br />
<br />
<div>
</div>
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">begin<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">for x:= 1 to 5 do<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">begin<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">for y:= 1 to 5 do<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">begin<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">a[x,y]:=0;<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">if x+y=6 then c[x,y]:=1;<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">write (c[x,y]:4);<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">end;<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">writeln;<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">end;<o:p></o:p></span><br />
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;"><span style="mso-spacerun: yes;"> </span></span><span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;">end.</span><br />
<br />
<div>
</div>
<span style="font-family: "Arial","sans-serif"; font-size: 12pt; mso-ansi-language: EN-US;"><o:p><span lang="IN" style="font-family: "Arial","sans-serif"; font-size: 12pt;">Hasil Akhir :</span></o:p></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjGPvV2oDkgC3DoIusN0orhmzTCmml3HOOSx-HpOnD3Lh6xZbTBoQJ22AQ0smaenhqRGxUZstR1GlvYap3_Eusb0QncYfsN9wE4UUCpEVl2V3yeMxKLonZeInbMH0vHj6ugdNW1ZWpoGN6/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="253" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjGPvV2oDkgC3DoIusN0orhmzTCmml3HOOSx-HpOnD3Lh6xZbTBoQJ22AQ0smaenhqRGxUZstR1GlvYap3_Eusb0QncYfsN9wE4UUCpEVl2V3yeMxKLonZeInbMH0vHj6ugdNW1ZWpoGN6/s400/2.jpg" width="400" /></a></div>
<br />
<div>
</div>Rodikya-111221121http://www.blogger.com/profile/12689401547606945947noreply@blogger.com0tag:blogger.com,1999:blog-6585644652164724731.post-21244900017778743602012-02-27T21:31:00.003-08:002012-02-27T21:33:39.800-08:00Pengertian Struktur DataDalam istilah ilmu komputer, sebuah struktur data adalah cara penyimpanan, penyusunan dan pengaturan data di dalam media penyimpanan komputer sehingga data tersebut dapat digunakan secara efisien.<br />
Dalam teknik pemrograman, struktur data berarti tata letak data yang berisi kolom-kolom data, baik itu kolom yang tampak oleh pengguna (<em>user</em>) atau pun kolom yang hanya digunakan untuk keperluan pemrograman yang tidak tampak oleh pengguna. Setiap baris dari kumpulan kolom-kolom tersebut dinamakan catatan (<em>record</em>). Lebar kolom untuk data dapat berubah dan bervariasi. Ada kolom yang lebarnya berubah secara dinamis sesuai masukan dari pengguna, dan juga ada kolom yang lebarnya tetap. Dengan sifatnya ini, sebuah struktur data dapat diterapkan untuk pengolahan database (misalnya untuk keperluan data keuangan) atau untuk pengolah kata (<em>word processor</em>) yang kolomnya berubah secara dinamis. Contoh struktur data dapat dilihat pada berkas-berkas lembar-sebar (<em>spreadsheet</em>), pangkal-data (<em>database</em>), pengolahan kata, citra yang dipampat (dikompres), juga pemampatan berkas dengan teknik tertentu yang memanfaatkan struktur data.<br />
<strong>1. Larik (<em>Array</em>)</strong><br />
Larik (Bahasa Inggris: <em>array</em>), dalam ilmu komputer, adalah suatu tipe data terstruktur yang dapat menyimpan banyak data dengan suatu nama yang sama dan menempati tempat di memori yang berurutan (kontinu) serta bertipe data sama pula.<br />
Larik dapat diakses berdasarkan indeksnya. Indeks larik umumnya dimulai dari 0 dan ada pula yang dimulai dari angka bukan 0. Pengaksesan larik biasanya dibuat dengan menggunakan perulangan (<em>looping</em>).<br />
<ul>
<li><strong><em>Larik Satu Dimensi</em></strong></li>
</ul>
Larik satu dimensi merupakan jenis larik dasar dan jenis larik yang paling sering digunakan, pemakaian larik satu dimensi terutama dipakai dalam tipe data string (terutama dalam bahasa Bahasa pemrograman C).<br />
<ul>
<li><strong><em>Larik Dua Dimensi</em></strong></li>
</ul>
Larik dua dimensi merupakan tipe larik yang lain. Larik dua dimensi sering dipakai untuk merepresentasikan tabel dan matriks dalam pemrograman.<br />
<strong>Larik dalam beberapa bahasa pemrograman</strong><br />
<ul>
<li><strong><em>Bahasa Pascal</em></strong></li>
</ul>
Larik dalam bahasa Pascal dapat didefinisikan dengan indeks awal dan indeks akhirnya.<br />
<strong>Contoh:</strong><br />
<em>program larik;<br />var arr: array[1..10] of integer; //larik dengan indeks awal 1 dan indeks akhir 10<br />begin<br />arr[1] := 5; //memasukkan nilai ke indeks 1<br />writeln(arr[i]); //mencetak angka 5<br />end.</em><br />
<ul>
<li><em><strong>Bahasa C</strong></em></li>
</ul>
Larik dalam bahasa C selalu dimulai dari indeks 0. Larik dapat didefinisikan secara statik atau dinamik. Jika didefinisikan statik, ukuran larik akan tetap dari awal program hingga akhir program. Jika didefinisikan dinamik, ukuran larik dapat berubah selama program berjalan karena memesan tempat pada memori heap. Proses pemesanan tempat pada memori disebut dengan alokasi. Sedangkan proses pembebasan memori yang sudah dipesan disebut dengan dealokasi.<br />
<strong>Contoh larik statik:</strong><br />
<em>#include <stdio.h><br />int main(){<br />int arr[10]; //indeks awal 0 dan indeks akhir 9<br />arr[0] = 5;<br />printf(“%d\n”, arr[0]);<br />}</em><br />
<strong>Contoh larik dinamik:</strong><br />
<em>#include <malloc.h><br />int main(){<br />int * arr;<br />arr = (int *) malloc(10 * sizeof(int)); //memesan 10 tempat pada memori<br />arr[0] = 5;<br />free(arr); //menghancurkan larik. Memori pada heap dibebaskan<br />arr = (int *) malloc(5 * sizeof(int)); //memesan 5 tempat baru pada memori<br />free(arr); //di akhir program jangan lupa untuk menghancurkan larik dinamik<br />}</em><br />
<ul>
<li><strong><em>Bahasa Java</em></strong></li>
</ul>
Dalam bahasa Java tipe data larik direpresentasikan sebagai sebuah objek khusus. Karena itu pada bahasa Java larik yang dibuat selalu bersifat dinamik. Namun walaupun bersifat dinamik, larik pada bahasa Java tidak perlu dihancurkan karena proes penghancuran dilakukan secara otomatis melalui suatu prosedur yang disebut dengan Pengumpulan sampah (Inggris: <em>Garbage Collecting</em>). Sama seperti bahasa C, indeks larik selalu dimulai dari 0.<br />
<strong>Contoh:</strong><br />
<em>public class larik {<br />public static void main(String args[]) {<br />int[] arr = new arr[10];<br />arr[0] = 5;<br />System.out.println(arr[0]);<br />}<br />}</em><br />
<ul>
<li><strong><em>PHP</em></strong></li>
</ul>
Sama seperti di JAVA larik di PHP juga merupakan sebuah object lebih tepatnya lagi map terorder. Ada dua tipe larik di PHP, <em>indexed array </em>(<em>simple array</em>) dan a<em>ssociated array</em> (<em>value array</em>). Di PHP, element larik bisa berupa string, Bilangan, boolean, dan semua tipe data primitif lainnya, termasuk larik juga bisa menjadi element larik lainnya.<br />
<strong><br />Cara medefinisikan larik:</strong><br />
<em>#mendefinisikan array kosong<br />$larik = array();</em><br />
<strong>Contoh indexed array (simple array):</strong><br />
<em>$jam = array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);<br />$hari = array(‘senin’, ‘selasa’, ‘selasa’, ‘rabu’, ‘kamis’, ‘jumat’, ‘sabtu’);</em><br />
<strong>Contoh associated array:</strong><br />
<em>$bulan = array(’1′=>’January’, ’2′=>’February’, ’3′=>’Maret’, ’4′=>’April’);</em><br />
<em>$komponenKalender = array(<br />‘bulan’=> array(1, 2, 3, 4, 5, 6, 7, 8, 9 ,10 , 11, 12),<br />‘hari’ => array(‘senin’, ‘selasa’, ‘selasa’, ‘rabu’, ‘kamis’, ‘jumat’, ‘sabtu’)<br />);</em><br />
<strong>2. Stack (Tumpukan)</strong><br />
Dalam ilmu komputer, stack atau tumpukan merupakan sebuah koleksi objek yang menggunakan prinsip <em>LIFO (Last In First Out)</em>, yaitu data yang terakhr kali dimasukkan akan pertama kali keluar dari stack tersebut. Stack dapat diimplementasikan sebagai representasi berkait atau kontigu (dengan tabel fix). Ciri Stack :<br />
* Elemen TOP (puncak) diketahui<br />
* penisipan dan penghapusan elemen selalu dilakukan di TOP<br />
* LIFO<br />
<strong><br />Pemanfaatan Stack :</strong><br />
* Perhitungan ekspresi aritmatika (posfix)<br />
* algoritma backtraking (runut balik)<br />
* algoritma rekursif<br />
<strong><br />Operasi Stack yang biasanya :</strong><br />
a. Push (input E : typeelmt, input/output data : stack): menambahkan sebuah elemen ke stack<br />
b. Pop (input/output data : stack, output E : typeelmt ) : menghapus sebuah elemen stack<br />
c. IsEmpty ()<br />
d. IsFull ()<br />
e. dan beberapas selektor yang lain<br />
<strong>3. Pohon (Tree)</strong><br />
Dalam ilmu komputer, sebuahPohon adalah suatu struktur data yang digunakan secara luas yang menyerupai struktur pohon dengan sejumlah simpul yang terhubung.<br />
<a href="http://andikafisma.files.wordpress.com/2010/05/300px-binary_tree-svg.png"><img alt="" class="aligncenter size-full wp-image-87" src="http://andikafisma.files.wordpress.com/2010/05/300px-binary_tree-svg.png?w=640" title="300px-Binary_tree.svg" /></a><br />
<ul>
<li><strong><em>Simpul (node)</em></strong></li>
</ul>
Sebuah Simpul dapat mengandung sebuah nilai atau suatu kondisi atau menggambarkan sebuah struktur data terpisah atau sebuah bagian pohon itu sendiri. Setiap simpul dalam sebuah pohon memiliki nol atau lebih simpul anak (<em>child nodes</em>), yang berada dibawahnya dalam pohon (menurut perjanjian, pohon berkembang ke bawah, tidak seperti yang dilakukannya di alam). Sebuah simpul yang memiliki anak dinamakan simpul ayah (<em>parent node</em>) atau simpul leluhur (<em>ancestor node</em>) atau superior. Sebuah simpul paling banyak memiliki satu ayah. Tinggi dari pohon adalah panjang maksimal jalan ke sebuah daun dari simpul tersebut. Tinggi dari akar adalah tinggi dari pohon. Kedalaman dari sebuah simpul adalah panjang jalan ke akarnya dari simpul tersebut.<br />
<ul>
<li><strong><em>Akar (Root nodes)</em></strong></li>
</ul>
Simpul yang paling atas dalam pohon adalah akar (<em>root node</em>). Menjadi simpul teratas, simpul akar tidak akan memiliki orang tua. Ini merupakan simpul di mana biasanya merupakan tempat untuk memulai operasi dalam pohon (walaupun beberapa algoritma dimulai dengan daun dan berakhir pada akar). Semua simpul yang lain dapat dicapai dari akar dengan menelusuri pinggiran atau pranala. (Dalam definisi resmi, setiap jalan adalah khas). Dalam diagram, ini secara khusus di gambar paling atas. Di beberapa pohon, seperti heap, akar memiliki sifat khusus. Setiap simpul dalam sebuah pohon dapat dilihat sebagai akar dari sub pohon yang berakar pada simpul tersebut.<br />
<ul>
<li><strong><em>Daun (Leaf nodes)</em></strong></li>
</ul>
Semua simpul yang berada pada tingkat terendah dari pohon dinamakan daun (<em>leaf node</em>). Sejak mereka terletak pada tingkat paling bawah, mereka tidak memiliki anak satupun. Seringkali, daun merupakan simpul terjauh dari akar. Dalam teori grafik, sebuah daun adalah sebuah sudut dengan tingkat 1 selain akar (kecuali jika pohonnya hanya memiliki satu sudut; maka akarnya adalah daunnya juga). Setiap pohon memiliki setidaknya satu daun. Dalam pohon berdasarkan genetic programming sebuah daun (juga dibilang terminal) adalah bagian terluar dari sebuah program pohon. Jika dibandingkan dengan fungsinya atau simpul dalam, daun tidak memiliki argumen. Di banyak kasus dalam daun-GP input ke programnya.<br />
<a href="http://andikafisma.files.wordpress.com/2010/05/800px-avltreef-svg.png"><img alt="" class="aligncenter size-full wp-image-88" src="http://andikafisma.files.wordpress.com/2010/05/800px-avltreef-svg.png?w=500" title="800px-AVLtreef.svg" /></a><br />
<ul>
<li><strong><em>Simpul dalam (Internal nodes)</em></strong></li>
</ul>
Sebuah simpul dalam adalah semua simpul dari pohon yang memiliki anak dan bukan merupakan daun. Beberapa pohon hanya menyimpan data didalam simpul dalam, meskipun ini mempengaruhi dinamika penyimpanan data dalam pohon. Sebegai contoh, dengan daun yang kosong, seseorang dapat menyimpan sebuah pohon kosong dengan satu daun. Bagaimanapun juga dengan daun yang dapat menyimpan data, tidak dimungkinkan untuk menyimpan pohon kosong kecuali jika seseorang memberikan beberapa jenis penanda data di daun yang menandakan bahwa daun tersebut seharusnya kosong (dengan demikian pohon itu seharusnya kosong juga). Sebaliknya, beberapa pohon hanya menyimpan data dalam daun, dan menggunakan simpul dalam untuk menampung metadata yang lain, seperti jarak nilai dalam sub pohon yang berakar pada simpul tersebut. Jenis pohon ini berguna untuk jarak yang meragukan.<br />
<ul>
<li><strong><em>Sub pohon (Subtrees)</em></strong></li>
</ul>
Sebuah sub pohon adalah suatu bagian dari pohon struktur data yang dapat dilihat sebagai sebuah pohon lain yang berdiri sendiri. Simpul apapun dalam pohon P, bersama dengan seluruh simpul dibawahnya, membentuk sebuah sub pohon dari P. Sub pohon yang terhubung dengan akar merupakan keseluruhan pohon tersebut. Sub pohon yang terhubung dengan simpul lain manapun dinamakan sub pohon asli (<em>proper subtree</em>).<br />
<ul>
<li><strong><em>Penyusunan pohon</em></strong></li>
</ul>
Terdapat dua jenis pohon. Sebuah pohon tidak terurut (unordered tree) adalah sebuah pohon dalam arti struktural semata-mata, yang dapat dikatakan memberikan sebuah simpul yang tidak memiliki susunan untuk anak dari simpul tersebut. Sebuah pohon dengan suatu susunan ditentukan, sebagai contoh dengan mengisi bilangan asli berbeda ke setiap anak dari simpul tersebut, dinamakan sebuah pohon terurut (ordered tree), dan struktur data yang dibangun didalamnya dinamakan pohon terurut struktur data (<em>ordered tree data structures</em>). Sejauh ini pohon terurut merupakan bentuk umum dari pohon struktur data. Pohon biner terurut merupakan suatu jenis dari pohon terurut.<br />
<ul>
<li><strong><em>Hutan</em></strong></li>
</ul>
Sebuah hutan adalah sebuah himpunan yang terdiri dari pohon terurut. Lintasan inorder, preorder, dan postorder didefinisikan secara rekursif untuk hutan.<br />
<strong>- inorder</strong><br />
1. lewati inorder hutan yang dibentuk oleh sub pohon yang pertama dalam hutan, jika ada<br />
2. kunjungi akar dari pohon pertama.<br />
3. lewati inorder hutan yang dibentuk oleh sisa pohon dalam hutan, jika ada.<br />
<strong>- preorder</strong><br />
1. kunjungi akar dari pohon pertama.<br />
2. lewati preorder hutan yang dibentuk oleh sub pohon yang pertama dalam hutan, jika ada<br />
3. lewati preorder hutan yang dibentuk oleh sisa pohon dalam hutan, jika ada.<br />
<strong>- postorder</strong><br />
1. lewati postorder hutan yang dibentuk oleh sub pohon yang pertama dalam hutan, jika ada<br />
2. lewati postorder hutan yang dibentuk oleh sisa pohon dalam hutan, jika ada.<br />
3. kunjungi akar dari pohon pertama.<br />
<ul>
<li><strong><em>Penggambaran pohon</em></strong></li>
</ul>
Ada banyak cara untuk menggambarkan pohon; pada umumnya penggambaran mewakili simpul sebagai rekor yang dialokasikan pada heap (bedakan dengan heap struktur data) yang mengacu pada anaknya, ayahnya, atau keduanya, atau seperti data materi dalam array, dengan hubungan diantaranya ditentukan oleh posisi mereka dalam array (contoh binary heap).<br />
<ul>
<li><strong><em>Pohon sebagai grafik</em></strong></li>
</ul>
Dalam teori grafik, sebuah pohon adalah sebuah grafik asiklis yang terhubung. Pohon yang berakar merupakan sebuah grafik dengan sudut tunggal diluar sebagai akar. Dalam kasus ini, dua sudut apapun yang terhubung dengan sebuah sisi mewarisi hubungan orang tua dan anak. Sebuah grafik asiklis dengan bermacam-macam komponen yang terhubung atau himpunan dari pohon-pohon yang berakar kadang-kadang dipanggil hutan.<br />
<ul>
<li><strong><em>Metode traversal</em></strong></li>
</ul>
Melangkah melalui materi dari pohon, dengan arti dari hubungan antara orang tua dan anak, dinamakan menelusuri pohon, dan tindakannya adalah sebuah jalan dari pohon. Seringkali, sebuah operasi mungkin dapat dilakukan sebagai penunjuk ysng mengacu pada simpul khusus. Sebuah penelusuran dimana setiap simpul ayah dikunjungi sebelum anaknya dinamakan <em>pre-order walk</em>, yaitu sebuah penelusuran dimana anaknya dikunjungi sebelum ayahnya masing-masing dinamakan post-order walk.<br />
<ul>
<li><strong><em>Operasi umum</em></strong></li>
</ul>
* Menghitung seluruh materi (item)<br />
* Pencarian untuk sebuah materi<br />
* Menambahkan sebuah materi pada sebuah posisi tertentu dalam pohon<br />
* Menghapus sebuah materi<br />
* Mengeluarkan seluruh bagian dari sebuah pohon pruning<br />
* Menambahkan seluruh bagian ke sebuah pohon grafting<br />
* Menemukan akar untuk simpul apapun<br />
<ul>
<li><strong><em>Penggunaan umum</em></strong></li>
</ul>
* Memanipulasi data secara hierarki<br />
* Membuat informasi mudah untuk dicari<br />
* Memanipulasi data sorted listsRodikya-111221121http://www.blogger.com/profile/12689401547606945947noreply@blogger.com2