Laporan Lengkap Algo 2016 (Ld. Ikbal)

Laporan Lengkap Praktikum Algoritma dan Pemrograman 28.

#:="";

29.

$:=$!#;

220.

(#,'

');

22.

@;

222.

;;

22".

('H 32 ','=

22#.

@;

22$.

201

',$);

@.

226.

1228122<-

Ha)(' R&n

1229- S(+,' ke%(*ak)a+aan a¿ 3%(*ak )a+a *engan4 ar%(n$a n('a( a%a& +akna %(*ak )a+a a%a& %(*ak ;*-

¿ ¿ ¿

*a#a% +e"ak('(3'e(! ke;(' *ar(4 ar%(n$a n('a(n$a 'e(! ke;(' *ar( angka )e%e'a!n$a3'e(! e)ar *ar(4 ar%(n$a n('a(n$a 'e(! e)ar *ar( angka )e%e'a!n$a3'e(! ke;(' )a+a *engan4 ar%(n$a n('a(n$a 'e(! ke;(' a%a& )a+a

*engan angka )e%e'a!n$ae¿ 3'e(! e)ar )a+a *engan4 ar%(n$a n('a(n$a 'e(! e)ar a%a& )a+a *engan angka )e%e'a!n$a¿ 3)a+a *engan4 ar%(n$a n('a( r&a) k(r( *an kanan )a+a 1207- Pr,gra+ ',,#(ng 2".

FH F;

2"2.

?? >;

2"".

 ,2,":;

Laboratorium Komputasi Fakultas Matematika dan Ilmu Pengetauan Alam !ni"ersitas #alu $leo 2016

45

Laporan Lengkap Praktikum Algoritma dan Pemrograman 2"#.

201

 P>J@(#);

2"$.

>?>; P>(7);

2"6.

('R%GRA& ENGULANGAN DATA':$0);

2"7.

('':$0);

2"8.

;

2"9.

('H?JJ J J ?HJ :

');@(); 2#0.

;

2#.

< 2:=    @

2#2.



2#".

< ":=   2 @

(":");; 2##. 2#$. 2#6. 1278-

@; @; @. Ha)(' R&n

127<12795- Ma%er(+a%er( "!('e---*,--- *an re#ea%---&n%('-- /#ile'''do''' 1250-

Prak%(k&+

ke'(+a

+e+a!a)

%en%ang

L,,#(ng

@

Re#e%(%(,n@

Per&'angan w#ile'''do'''- >!('e D, a*a'a! #er&'angan *(+ana k,n*()( a%a& )%a%e+en% akan er!en%( er&'ang #a*a )aa% )$ara%n$a )&*a! %(*ak %er#en&!( (ka )$ara% %er#en&!( +aka *(a akan %er&) er&'ang- Pen$e'ek)(an k,n*()( *(g&nakan agar #r,gra+ *a#a% +en$e'ek)( k,n*()( )e!(ngga *a#a% +e+('(! %(n*akan a#a $ang !ar&) *('ak&kan. %ergan%&ng *ar( k,n*()( $ang *()e'ek)( %er)e&%- S%a%e+en% "!('e---*,--


46

Laporan Lengkap Praktikum Algoritma dan Pemrograman

201

%er*(r( a%a) )e&a! ek)#re)( B,,'ean $ang +eng,n%r,' #e'ak)anaan *ar(, )e&a! )%a%e+en%1251-

S%a%e+en% "!('e---*,--- %er*(r( *ar( )e&a! ek)#re)( boolean

$ang

+eng,n%r,' ek)ek&)( *ar( )e&a! )%a%e+en%1252-

S(n%ak)

2$".

W PF?? @ ?H;

1257-

A%a&

2$$.

W PF?? @

2$6.

B

2$7.

SH;

2$8.

SH;

2$9.

...

260.

E@.

 )epeat'''0ntil'''-

121-

Prak%(k&+ keena+ +e+a!a) %en%ang #er&'angan )epeat'''0ntil'''-

Re#ea% ar%(n$a +eng&'ang *an &n%(' ar%(n$a )a+#a( a*( re#ea% &n%(' a*a'a! +eng&'ang )a+#a( )$ara% %(*ak %er#en&!( *an er!en%( #a*a )aa% )$ara% %er#en&!(Re#ea% &n%(' a*a'a! )&a%& #r,gra+ $ang akaan %er&) era'an )e'a+a +a)(! ern('a( )a'a! a%a& akan er!en%( ('a )&*a! ern('a( enar122S(n%ak) #en&'()an 26". RF 26#. SH; 26$. U 266. UJFQJ; 267. TUGAS PENDAHULUAN 5 12<-

S,a' :

1- B&a% #r,gra+ #erka'(an3g&nakan "!('e *,4 2- B&a% #r,gra+ a+ 5

∑i

2

+5

i= l

- B&a% #r,gra+  129-

Na+a

 )ean$ak n ka'(3nan$ak

karak%er na+a4 1280Na+a na+a 1281Na+a na+a na+a Laboratorium Komputasi Fakultas Matematika dan Ilmu Pengetauan Alam !ni"ersitas #alu $leo 2016

4%


201

1282- ---------7- /e'a)kan #ere*aan ,r---*,--- *an "!('e---*,---3+(n 4J 128- /a"a : 1- Pr,gra+ #erka'(an 27#. R%GRA& ERKALIANQW+ILEQD%; 27$. USES CRT; 276. VAR I,K,B,A,L,*,E,N,I2,U,S : L%NGINT; 277. BEGIN 278. TETBACKGR%UND(7); 279. CLRSCR; 280. TETC%L%R(#); 28. WRITELN('R%GRA& ERKALIAN':"7); 282. WRITELN('11111------':"7); 28". WRITELN;TETC%L%R(9); 28#. WRITELN(' 111111111111111111111111111111111111111111111111111'); 28$. WRITELN('  2','  # ':$,'6 ':$,' 8 ':$,'0 ':$,'2 ':$,'# ':$,'6 ':$,'8 ':$,'20 ':$); 286. WRITELN(' ==================================================='); 287. TETC%L%R(); 288. I := ; 289. W+ILE I -= 9 D% 290. BEGIN 29. K:=I2; B:=I#; A:=I6; L:=I8; *:=I0; 292. E:=I2; N:=I#; I2:=I6; U:=I8; S:=I20; 29". WRITELN(' ',K:",' ',B:",' ',A:",' ',L:",' ',*:",' ',E:",' ',N:",' ',I2:",' ',U:",' ',S:",' '); 29#. I := I ! ; 29$. WRITELN(' 111111111111111111111111111111111111111111111111111'); 296. END; 297. READLN; 298. END.

1299- Ha)(' r&n

1001012- Pr,gra+ Pen&+'a!an "02. "0". "0#. "0$. "06.

R%GRA& EN*U&LA+ANQDERET; USES CRT; VAR IK,BAL,*E,NI,US:L%NGINT; BEGIN TETBACKGR%UND(W+ITE);


4&

Laporan Lengkap Praktikum Algoritma dan Pemrograman "07. "08. "09. "0. ". "2. "". "#. "$. "6. "7. "8. "9. "20. "2. "22. "2".

201

CLRSCR; TETC%L%R(9); WRITELN('R%GRA& EN*U&LA+AN DERET'); WRITELN('111111111111111-----'); WRITELN; WRITE('&ASUKKAN ANGKA = '); READLN(IK); WRITELN; BAL := IK!$; *E := ; W+ILE *E -= BAL D% BEGIN NI := *E*E ! $; WRITE(NI,' '); *E := *E ! ; US := US ! NI; END; WRITE(' = ',US); READLN; END.

127125- Ha)(' r&n

1212812<12910- Pr,gra+ ',,#(ng "". ""2. """. ""#. ""$. ""6. ""7. ""8. ""9. "#0. "#. "#2. "#". "##. "#$. "#6. "#7. "#8. "#9.

R%GRA& ERULANGANQW+ILEQD%; USES CRT; VAR BRINE,IKBAL:INTEGER; BEGIN TETBACKGR%UND(W+ITE); CLRSCR; TETC%L%R(#); WRITELN('R%GRA& ERULANGAN W+ILE D%'); WRITELN('1111111111---------'); WRITELN; BRINE := ; W+ILE BRINE -= 9 D% BEGIN IKBAL := ; W+ILE IKBAL -= BRINE D% BEGIN WRITE('IKBAL '); IKBAL := IKBAL ! ; END;


4(

Laporan Lengkap Praktikum Algoritma dan Pemrograman "$0. "$. "$2. "$".

201

WRITELN; BRINE := BRINE ! ; END; READLN; END.

157- Ha)(' r&n

1557- Pere*aan ,r---*,--- *engan "!('e---*,--F,r *, Me'ak&kan #er&'ang )e)&a( *engan )$ara% $ang %e'a! *(%en%&kan• Se*angkan "!('e--*, er!en%( +e'ak&kan #er&'angan (ka )$ara% %(*ak •

+e+en&!(/(ka !an$a +engg&nakan )a%& )%a%e+en% +aka eg(n *an en* %(*ak *(g&nakan #a*a #er&'angan ,r *,- Se*angkan "!('e---*,--- . eg(n *an

•

en* )&*a! %er+a)&k *a'a+ ag(an *ar( )(n%ak)n$a. a*( !ar&) *(g&nakan Ke%(ka *( r&n. ,r *, akan ekera a%a& %(*ak-)e*angkan "!('e *, a*a  ke+&ngk(nan $a(%& #r,gra+ %(*ak ekera. #r,gra+ ekera *an akan er!en%(. )er%a #r,gra+ ekera *engan +e'ak&kan #er&'angan )e;ara %er&) +ener& 15#.

158-

S,a':

15<-

Pr,gra+ 1

TUGAS PENDAHULUAN #

"$9.

?? >;

"60.

 F??:?;

"6.



"62.

>?>;

"6". "6#.

F (H?JJ F??@:

);@(F??); "6$. "66. "67.

 F??=H; (F??@ ///);


50

Laporan Lengkap Praktikum Algoritma dan Pemrograman "68. "69. 180-

201

@; @.

1- /e'a)kan !a)(' r&n #r,gra+ 1. (ka  *(gan%( . . . .  J 2- B&a% #r,gra+ a+7

( 2 n−3 ) ∑ =

2

i

l

1813' a ek,r )%a+&k 2 7- B&a% #r,gra+J 18218-

Na+a Sean$ak n ka'(Na+a Na+a 3n an$ak

karak%er na+a4 187------185Na+a Na+a Na+a --- Na+a 5- /e'a)kan #ere*aan ,r. "!('e. re#ea%J 3+(n4 - ?ar( +a%er( ( --- %!en--- J3Penger%(an *an )(n%ak)4 8- B&a% #r,gra+ )en*(r(J 18- /a"a: 1- /(ka  *(gan%( . . . .  +ak)&*n$a: a-  ar%(n$a (ka #a))",r* $ang *(+a)&kkan er&#a ka%a a'g,r(%+a +aka #r,gra+ akan %er&) er&'ang )e;ara %er&)+ener&). *an akan er!en%( a#a('a #a))",r* $ang *(+a)&kkan *(gan%( *engan !&r&@angka@ka%a 'a(nn$a -   ar%(n$a (ka #a))",r* $ang *(+a)&kkan n('a(n$a k&rang *ar( a%a& )a+a *engan a'g,r(%+a *a'a+ &r&%an !&r& a +aka #r,gra+ akan er!en%( era'an;-   ar%(n$a (ka #a))",r* $ang *(+a)&kkan n('a(n$a 'e(! e)ar *ar( a%a& )a+a *engan a'g,r(%+a *a'a+ &r&%an !&r& a +aka #r,gra+ akan er!en%(*-  ar%(n$a (ka #a))",r* $ang *(+a)&kkan n('a(n$a k&rang *ar( a'g,r(%+a *a'a+ &r&%an !&r& a +aka #r,gra+ akan er!en%(e-  ar%(n$a (ka #a))",r* $ang *(+a)&kkan n('a(n$a 'e(! e)ar *ar( a'g,r(%+a *a'a+ &r&%an !&r& a +aka #r,gra+ akan er!en%(1882- Pr,gra+ *ere% #en&+'a!an "78. H DQFH; "79. ?? >;


51


201

"80.  J,J2,J",J#,J$:; "8.  "82. P>J@(7); "8". >?>; "8#. P>(#); "8$. "86. ('NH TJ SHJ = ');@(J); "87. J2:=J!2!7; "88. J":=2; "89. (''); "90. "9. F "92. J":=J"!; "9". J#:=(J"21")(J"21"); "9#. ('!'); "9$. (J#); J$:=J$!J#; "96.  "97. J"=J2;('= ',J$!); "98. @; "99. @.

17001701- Ha)(' R&n : 1702-

- Pr,gra+ #er&'angan na+a #0". #0#. #0$. #06. #07. #08. #09. #0. #. #2. #". ##. #$. #6. #7. #8. #9. #20.

H LFQQ@; ?? >; 

I@,I@2,I@":;

 P>J@(7); >?>; P>($); I@":=$!"; I@:=; F I@:=I@!;  I@2:=; F I@2:=I@2!;


52

Laporan Lengkap Praktikum Algoritma dan Pemrograman #2 #2. . #22. #2". #2". #2#. #2$. #26. #27 #27. . #28. #29. @. #"0.

 ( ('I 'IKB KBAL AL', ',' '  I@2 I@2=I =I@ @ ;

201

'); ');

@; ;  I@ I@=I =I@ @"! "!; ; @;

1711- Ha)(' r& r&n 172-

177- Pere*a Pere*aan an ,r. ,r. "!('e "!('e *an *an re#ea% re#ea% 3+(n 3+(n  4 /(ka !an$a +engg&nakan )a%& )%a%e+en% +aka eg(n *an en* %(*ak • *(g&nak *(g&nakan an #a*a #er&'a #er&'angan ngan ,r *,- Un%&k Un%&k #er&'a #er&'angan ngan "!('e"!('e---*, --*,----- . eg(n *an en* )&*a! %er+a)&k *a'a+ ag(an *ar( )(n%ak)n$a. a*( !ar&) *(g&nakan- Se*angkan #er&'angan re#ea%--- &n%('--- . eg(n *an en* %(*ak •

er#engar&!Per&'anga ,r--- *, ---. )%a%+en% akan er&'ang )e)&a( *engan angka $ang %e'a! *(%en%&kan- Un%&k "!('e *, )%a%+en% akan %er&) %er&'ang !(ngga )$ara% $ang *(%en%&kan %e'a! ern('a( enar- Se*angkan re#ea% &n%(' akan

•

%er&) %er&'ang !(ngga )$ara% $ang *(%en%&kan %(*ak +e+en&!(Pa*a #en&'( #en&'()an )an )(n%ak )(n%ak)) ,r *an "!('e. "!('e. )$ara% )$ara% #er&'a #er&'angan ngan *('e%ak *('e%akkan kan

)ee'&+ )%a%+en $ang akan *(&'ang- Se*angkan re#ea% &n%(' )ea'(kn$a1775- I  T!en


53

Laporan Lengkap Praktikum Algoritma dan Pemrograman 175175-

201

B('a B('a k,n*( k,n*()( )( $ang $ang *()e *()e'e 'ek)( k)( %er# %er#en& en&!( !(.. +aka +aka )%a% )%a%e+ e+en% en% $ang $ang +eng +eng(k (k&% &%((

T!en akan *(#r,)e). )ea'(kn$a ('a k,n*()( %(*ak %er#en&!(. +aka $ang akan *(#r,)e) )%a%e+en% er(k&%n$a#"6. SJ? I< 9ondisi T Statement 1437. 17<- Pr,gr Pr,gra+ a+ &a%a &a%an n )en )en*( *(r( r( #"9. R%GRA& SE&BARANG; ##0. USES CRT; ##. ##. VAR VAR BRN BRN,BTN ,BTN,B ,BK KN,A, N,A,B B,C,D ,C,D,E ,E: :L%NG L%NGIN INT T; ##2. BEGIN TETBACKGR%UND(7); ##". CLRSCR; ###. TETC%L%R(#); ##$. ##$. WRITE RITEL LN(' N(' R R%G %GR RA& XXXXX----' ---': :"#); "#); ##6 ##6. . WRIT WRITEL ELN( N('= '=== ==== ==== ==== ==== ==== ==== ==== ==== ==': ':"# "#); ); ##7. WRITELN; ##8. TETC%L%R(); ##9. WRITELN('QQQQQQQQQQQQQQQQQQ WRITELN('QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ QQQQQQQQQQQQQQQQQQQQQQQQQQQQQ QQQQQQQQQQQQQQQQ Q QQQQ'); #$0. WRITELN('  ':8,'  SIG&A  ','  (SIG&A )32 '); #$. WRITELN('================== WRITELN('================================ ============================= ================ = ===='); #$2. BRN:=; #$". W+ILE BRN -= 0 D% #$#. BEGIN #$$. %R BKN :=  T% $ D% #$6. BEGIN #$7. BTN:=BRNBKN; #$8. WRITE(BTN:2,' '); #$9. A:= A!BKN; #60. C:= AA; #6. END; #62. WRITE('',A:7,' ',>:9,' '); #6". WRITELN; #6#. B:=B!A; #6$. D:=D!C; #66. BRN:=BRN!; #67. END; #68. TETC%L%R(#); #69 #69. . WRIT WRITEL ELN( N('1 '111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 111 1 1111111111'); #70. #70. WRIT WRITEL ELN N(' *U&L *U&LA+ A+ ',' ',' ',B: ',B:7, 7,' '  ',D:8,'':$); #7 #7. . WRIT WRITEL ELN( N('1 '111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 111 1 1111111111');


54

Laporan Lengkap Praktikum Algoritma dan Pemrograman #72. #7".

201

READLN; END.

178787- Ha)(' r& r&n

17851781788178<178917<017<117<217<17<717<51$#. 1$#. TUGA TUGAS S PEND PENDAH AHUL ULUA UAN N

17<812717<<1-

S,a' B&a% B&a% #r, #r,gr gra+ a+ #re #re*(k *(ka% a% n(' n('a( a( B&a% B&a% #r,gra+ #r,gra+ +en;ar( +en;ar( n('a( n('a( %ere %ere)ar )ar *an %erke %erke;(' ;('-B&a% #r,gra+ #r,gra+ &'ang( 3$a@%(*ak4 3$a@%(*ak4. . &n%&k &n%&k %(ga %(ga #r,gra+ #r,gra+ )ee'&+ )ee'&+n$a n$a ?ar( +a%er( #er&'angan #er&'angan ;a)e--- ,---J3)e'a ,---J3)e'a(n (n $ang $ang a*a a*a *( *( +,*&'4+,*&'4/a"a Pr,gr Pr,gra+ a+ #re* #re*(k (ka% a% n('a n('a((

#89. R%GRA& R REDIKATQNILAI; #90. #90. USES CRT; #9. #9. LABEL LABEL STAR; STAR; #92. #92. VAR I,K,B,A,L I,K,B,A,L:REAL :REAL; ; #9". #9". ,,Y:STR ,,Y:STRING; ING; #9#. #9#. BEGIN BEGIN #9$. #9$. STAR: STAR: #96. #96. TETBACK TETBACKGR%UN GR%UND(7); D(7); #97. #97. CLRSCR; CLRSCR; #98. #98. TETC%L% TETC%L%R(); R(); #99. WRITELN('R%GRA& WRITELN('R%GRA& REDIKAT NILAI'); $00. WRITE('NA&A = ');READLN(); $0. WRITE('NI& = ');READLN(); $02. WRITE('NILAI TUGAS = ');READLN(I);


55


201

$0". WRITE('NILAI &ID = ');READLN(K); $0#. WRITE('NILAI RAKTIKU& = ');READLN(B); $0$. WRITE('NILAI INAL = ');READLN(A); $06. CLRSCR; $07. L:=((I2)!(K#)!(B")!(A6))$; $08. WRITELN('NA&A = ',); $09. WRITELN('NI& = ',); $0. WRITELN('NILAI AK+IR = ',L:0:2); $. I L-0 T+EN G%T% STAR ELSE $2. I L-=20 T+EN Y:='E' ELSE $". I L-=#0 T+EN Y:='D' ELSE $#. I L-=60 T+EN Y:='C' ELSE $$. I L-=80 T+EN Y:='B' ELSE $6. I L-=00 T+EN Y:='A' ELSE G%T% STAR; $7. WRITELN('REDIKAT NILAI = ',Y); $8. READLN; $9. END.

15201521152215215271525- Ha)(' r&n

15215282- Pr,gra+ %ere)ar *an %erke;(' $28. R%GRA& NILAIQTERBESARQNQTERKECIL; $29. USES CRT; $"0. VAR $". &AI&,&INI&,I,K:INTEGER; $"2. B:ARRA4..0005% INTEGER; $"". BEGIN $"#. CLRSCR; $"$. WRITE('BANAKNA DATA = ');READLN(I); $"6. %R K:=  T% I D% $"7. BEGIN $"8. WRITE('NILAI ',K,' = ');READLN(B4K5); $"9. END; $#0. &AI&:=B4K5; &INI&:=B4K5; $#. %R K:= T% I D% $#2. BEGIN $#". I B4K5  &AI& T+EN &AI&:=B4K5; $##. END; $#$. %R K:= T% I D%


56


201

$#6. BEGIN $#7. I B4K5 - &INI& T+EN &INI&:=B4K5; $#8. END; $#9. WRITELN; $$0. WRITELN('NILAI &AI&U& = ',&AI&); $$. WRITELN('NILAI &INI&U& = ',&INI&); $$2. READLN; $$". END.

1557- Ha)(' r&n

1555- Pr,gra+ #er&'angan $a *an %(*ak 155- Pr,gra+ #er&'angan ,r *, $$7. R%GRA& ERULANGAN; $$8. USES CRT; $$9. LABEL AWAL,AK+IR; $60. VAR I,K,B,A:INTEGER; $6. L:STRING; $62. BEGIN $6". AWAL: $6#. CLRSCR; $6$. WRITE('&ASUKKAN INDEKS ERTA&A = ');READLN(K); $66. WRITE('&ASUKKAN INDEKS TERAK+IR = ');READLN(B); $67. %R I:= K T% B D% $68. BEGIN $69. %R A:= K T% I D% WRITE(' ',A);WRITELN; $70. END; $7. WRITELN('ULANGI R%GRA& DENGAN &ENEKAN  '); $72. WRITELN('AK+IRI R%GRA& DENGAN &ENEKAN T ');L:=READKE; $7". I L='' T+EN G%T% AWAL ELSE G%T% AK+IR; $7#. READLN; $7$. AK+IR: $76. END.

1588- Ha)(' r&n


5%


201

158<1589- Pr,gra+ #a))",r* $80. $8. $82. $8". $8#. $8$. $86. $87. $88. $89. $90. $9. $92. $9". $9#. $9$. $96. $97. $98. $99. 600. 60. 602.

R%GRA& ASSW%RD; USES CRT; LABEL AWAL,AK+IR; VAR I,K:STRING; BEGIN TETBACKGR%UND(7); AWAL: CLRSCR; TETC%L%R(); W+ILE I - 'IKBAL' D% BEGIN WRITE('&ASUKKAN NA&A : ');READLN(I); END; WRITELN; WRITELN('+ALL% IKBAL'); WRITELN; WRITE('UANGI R%GRA& 4T5');K:=READKE; I K='' T+EN G%T% AWAL ELSE G%T% AK+IR; READLN; AK+IR: END.

10- Ha)(' r&n

107105- Pr,gra+ #en&+'a!an *ere% 607. 608. 609. 60. 6. 62. 6". 6#. 6$. 66.

USES CRT; LABEL AWAL,AK+IR; VAR I,K,B,A,L,S:INTEGER; :STRING; BEGIN TETBACKGR%UND(7); AWAL: CLRSCR; TETC%L%R(#); WRITE('N% AK+IR NI& = ');READLN(I);


5&

Laporan Lengkap Praktikum Algoritma dan Pemrograman 67. 68. 69. 620. 62. 622. 62". 62#. 62$. 626. 627. 628. 629. 6"0.

201

K:=I!2!$;B:=2;WRITE(''); REEAT B:=B!; A:=(B21")(B21");WRITE('!'); WRITE(A); L:=L!A; UNTIL B=K;WRITE('= ',L!); WRITELN; WRITE('ULANGI R%GRA& 4T5');:=READKE; I ='' T+EN G%T% AWAL ELSE G%T% AK+IR; READLN; AK+IR: END.

11- Ha)(' r&n

12117157- Ma%er( ;a)e ,

1- Pern$a%aan ?a)e *a#a% eren%&k )%r&k%&r ?a)eQO a%a& ?a)eQ OC- E')e- S%r&k%&r ?a)eQO +e+#&n$a( )&a%& &ngka#an ',g(ka $ang *()e&% *engan )e'e;%,r

*an

)e&+'a!

#ern$a%aan

$ang

*(a"a'(

*engan

)&a%&

'ae'

#er+a)a'a!an $ang +e+#&n$a( %(#e )a+a *engan )e'e;%,r- Pern$a%aan $ang +e+#&n$a( 'ae' #er+a)a'a!an $ang ern('a( )a+a *engan n('a( )e'e;%,r akan *(#r,)e)

)e*ang

#ern$a%aan

$ang

'a(nn$a

%(*ak-

Perer*aan *engan )%r&k%&r I a*a'a! ('a #ern$a%aan I +en$e'ek)( )&a%& k,n*()( $ang %er#en&!(. )e%e'a! +e+#r,)e) #ern$a%aan *a'a+ '(ngk&ngan $ang %er#en&!( %er)e&%. #r,)e) #en$e'ek)(an +a)(! *('ak&kan %er!a*a# #ern$a%aan I er(k&%n$a $ang 'a(n- Se*angkan #a*a )%r&k%&r ?a)eQO ('a )a'a! )a%& k,n*()( %er#en&!( *an #ern$a%aan %er)e&% %e'a! *(#r,)e). )e'an&%n$a #ern$a%aan #ern$a%aan $ang 'a(nn$a *a'a+ '(ngk&ngan ?a)e %(*ak akan *()e'ek)( 'ag(-S%r&k%&r ;a)e *(#aka( &n%&k +e+('(! *engan ke+&ngk(nan 'e(! *ar( 218-

Ben%&k &+&+ )%r&k%&r ;a)ea*a'a! :

1<-

?a)e =ar(a'e ,

19-

k,n)%an%a 1:Pern$a%aan


5(

Laporan Lengkap Praktikum Algoritma dan Pemrograman 170-

k,n)%an%a 2:Pern$a%aan

171-

k,n)%an%a :Pern$a%aan

201

172ar(a'e *an k,n)%an%a $ang *a#a% *(#aka( !an$a'a! $ang +e+#&n$a( ,r*(na'. $a(%& %(#e (n%eger *an ;!ar


60

1#.

TUGAS PENDAHULUAN $ 1#.

175- S,a' 1 B&a% #r,gra+ !arga a&J 17-

R&n

1'

Ma)&kkan &k&ran a& 3S@L@L@M@L4 : 2' Ma)&kkan &+'a! arang 3'

:

Harga arang @ )a%&an 4' 152T,%a' #e+a$aran

:

ke%: 178S : 2<-000 17
:

Men& Pr,gra+ 1- ----------------------------------------------------2- ----------------------------------------------------- ----------------------------------------------------15P('(! Pr,gra+ 31@2@@74 : 157 ?ar( +a%er( procedure *an funcition J 3)e'a(n $ang a*a *(+,*&' J4 7 ?ar( #ere*aan ;a)e--, *an (--%!enJ 155/a"a 1- Pr,gra+ !arga a& 6$6.

FH

Q; 6$7. 6$8. 6$9. 660. ; 66. : ?; 662. 66". P>J@(7); 66#. 66$. 666. 667. ('R%GRA& +ARGA BA*U'); 668.

?? >;  ,J;  ,J, : J,J>,Y 

: >?>; P>(9);

('=================='); 669. ; 670. ('H?JJ J  (SLL&L) : ');@(J); 67. >? J < 672. 'S' ,'?' : J:=28000; 67". 'L' ,'' : J:="2000; 67#. 'L' ,'P' : J:="6000; 67$. '&' ,'H' : J:=#0000; 676. 'L','PP' : J:=#$000; 677. ? 678. ; P>(#); 679. ('J   @ H?JJ @J ?@'); 680. ('J 45 J H'); J>:=@J; 68. < (J> = '')  (J> = '')    ?  J; 682. @;P>(9); 68". ; 68#. ('H?JJ H  : B+. ');@(); 68$. :=J; 686. (' ? : R. ',J); 687. ('==================================== '); 688. (' FH : R. ',);; 689. ('J 45 J H');J>:=@J; 690. < (J> = '')  (J> = '')    ?  J; 69. @; 692. J:@.

19-

Ha)(' R&n

197-

2- Pr,gra+ +en& 69$. FH J?Q?; 696. ?? >; 697.  HQFH,J; 698.  C,,R,K:; 699. IKBAL:>; 700.  70. HQFH : 702. P>J@(7); 70". >?>; 70#. P>(9); 70$. ('R%GRA& K%NVERSI SU+U':#6); 706. ('...........':#6); 707. ; 708. P>($); 709. ('ILI+ *ENIS SU+U ANG AKAN DIK%NVERSIKAN DENGAN &ENEKAN ANGKA  +INGGA #'); (' '); 70. ; 7. ('45 K%NVERSI SU+U CELCIUS':#8); 72. ('425 K%NVERSI SU+U A+REN+EIT':$); 7". ('4"5 K%NVERSI SU+U REA&%R':#7); 7#. ('4#5 K%NVERSI SU+U KELVIN':#7); 7$. ('4$5 KELUAR':"");

76. ; 77. 78. IKBAL:=@J; 79. >? IKBAL < 720. '' :  >?>; 72. P>(9); 722. ('K%NVERSI SU+U DERA*AT CELCIUS':#0); 72". ('=============================':#0); 72#. ; 72$. P>(); 726. ('&ASUKKAN SU+U DALA& DERA*AT CELCIUS = ');@(C); 727. <:=(80)>!"2; 728. := 0.8  >; 729. J:= 27".$ ! >; 7"0. P>(#); 7". ; 7"2. (' '); 7"". (' = ':2#,<:6:2,' DERA*AT A+REN+ET '); 7"#. (C:#:0,' DERA*AT CELCIUS = ',:6:2,' DERA*AT REA&%R'); 7"$. (' = ':2#,J:6:2,' DERA*AT KELVIN'); 7"6. (' '); 7"7. @; 7"8. '2' :  >?>; 7"9. P>(9); 7#0. ('K%NVERSI SU+U DERA*AT A+REN+EIT':#0); 7#. ('================================':#0); 7#2. ; 7#". P>(2); 7##. ('&ASUKKAN SU+U DALA& DERA*AT A+REN+EIT = ');@(<); 7#$. >:= 08(<1 "2); 7#6. := 88(<1 "2); 7#7. J:= (< !

#$9.67)  .8; 7#8. P>(#); 7#9. ; 7$0. (' '); 7$. (' = ':27,C:6:2,' DERA*AT CELCIUS '); 7$2. (<:#:0,' DERA*AT A+REN+EIT = ',:6:2,' DERA*AT REA&%R'); 7$". (' = ':27,J:6:2,' DERA*AT KELVIN '); 7$#. (' '); 7$$. @; 7$6. '"' :  >?>; 7$7. P>(9); 7$8. ('K%NVERSI SU+U DERA*AT REA&%R':#0); 7$9. ('============================':#0); 760. ; 76. P>("); 762. ('&ASUKKAN SU+U DALA& DERA*AT REA&%R = ');@(R); 76". >:= 08  ; 76#. <:= (9#  ) ! "2; 76$. J:=   0.8 ! 27".$; 766. P>(#); 767. ; 768. (' '); 769. (' = ':2",C:6:2,' DERA*AT CELCIUS '); 770. (:#:0,' DERA*AT REA&%R = ',<:6:2,' DERA*AT A+REN+EIT'); 77. (' = ':2",J:6:2,' DERA*AT KELVIN '); ('' ); 772. @; 77". '#' :  >?>; 77#. P>(9); 77$. ('K%NVERSI SU+U DERA*AT KELVIN':#0); 776.

('============================':#0); 777. ; 778. P>($); 779. ('&ASUKKAN SU+U DALA& DERA*AT KELVIN = ');@(K); 780. >:= J127".$; 78. <:= J.81 #$9.67; 782. := (J1 27".$)0.8; 78". P>(#); 78#. ; 78$. (' '); 786. (' = ':2#,C:6:2,' DERA*AT CELCIUS '); 787. (' ',J:#:0,' DERA*AT REA&%R = ',<:6:2,' DERA*AT A+REN+EIT'); 788. (' = ':2#,:6:2,' DERA*AT REA&%R '); 789. ('') ; 790. @; 79. '$' :  G%T% J; 792. @; 79". @;; 79#. P>(9); 79$. ('TJ H E J JH J H');@; 796.  HQFH; 797. @;J: 798. @.

1899-

Ha)(' R&n 1<00-

1<01-

1<02-

- Me%ar( Pr,;e*&re Dan F&n;%(,n A' Procedure 1$0. Pr,;e*&re$a(%& )& #r,gra+ $ang *(g&nakan &n%&k +e'ak&kan

#r,)e) %er%en%& *an %(*ak +enge+a'(kan n('a(. ()a *()(+#an *a'a+ *a%aa)e )eaga( ,e;% )ke+a. )e!(ngga )&a%& #r,;e*&re ()a *(g&nakan er&'angka'( %an#a !ar&) +e'ak&kan #ar)(ng *an ;,+#('e &'ang1<07- Pr,)e;&re a*a'a! )&a%& #r,gra+ %er#()a! *a'a+ ',k )en*(r( $ang er&ng)( )eaga( )&#r,gra+ 3#r,gra+ ag(an4- Pr,)e*&r *(a"a'( *engan ka%a ;a*angan Pr,;e*&re *( *a'a+ ag(an *ek'ara)( #r,)e*&rPr,)e*&r *(#angg(' *an *(g&nakan *( *a'a+ ',k #r,gra+ $ang 'a(nn$a *engan +en$e&%kan &*&' #r,)e*&rn$a-Pr,)e*&r an$ak *(g&nakan #a*a #r,gra+ $ang %er)%r&k%&r. karena: 14 Mer&#akan #enera#an k,n)e# #r,gra+ +,*&'ar. $a(%& +e+e;a!+e;a! #r,gra+ $ang r&+(% +ena*( #r,gra+#r,gra+ ag(an $ang 'e(! )e*er!ana *a'a+ en%&k #r,)e*&r#r,)e*&r-

24 Un%&k !a'!a' $ang )er(ng *('ak&kan er&'ang&'ang. ;&k&# *(%&'()kan )eka'( )aa *a'a+ #r,)e*&r *an *a#a% *(#angg(' a%a& *(#erg&nakan )e"ak%& "a'%& ('a *(#er'&kan1<05- Pr,)e*&r +e+('(k( )%r&k%&r $ang )a+a *engan )%r&k%&r #r,gra+. $a(%& %er*(r( *ar( na+a #r,)e*&r. *ek'ara)(*ek'ara)( *an ag(an *e)kr(#)( 3 statement a%a& ak)( *( *a'a+ #r,)e*&r4- Se+&a *ek'ara)( *( *a'a+ #r,)e*&r er)(a% ',ka' )e!(ngga !an$a ()a *(g&nakan ,'e! #r,)e*&r (%& )aa. )e*angkan *ek'ara)( *( *a'a+ #r,gra+ &%a+a er)(a% g',a' )e!(ngga *a#a% *(kena'( *( )e'&r&! ag(an #r,gra+- S%r&k%&r &+&+ #r,)e*&r a*a'a! )eaga( er(k&% : 1<0-

P';*4*N%%?P'*4 3#ara+,r+a'1:%(#e#ara+1.

#ara+,r+a'2:%(#e#ara+2.C4 1<08-

/(ka #r,)e*&r %(*ak +e+('(k( #ara+e%er. %an*a k&r&ng %(*ak

*()er%akan 1$0$.

>%

1<09-

ag(an *ek'ara)( #r,)e*&r. )(a%n$a ',ka'

1$10.

*+

1<11-

)%a%e+en%1

1<12-

)%a%e+en%2

1<1-

CCCC

1<17-

S%a%e+en%n

1$15.

*@

4' "unction 1<1-

F&n;%(,n $a(%& Se&a! k&+#&'an S%a%e+en% $ang akan

+enge+a'(kan )e&a! n('a( a'(k #a*a #e+angg('n$a- N('a( $ang *(!a)('kan F&n;%(,n !ar&) *(%a+#&ng ke*a'a+ )e&a! =ar(ae'- F&ng)( !a+#(r )a+a *engan #r,)e*&r. !an$a &ng)( !ar&) *(*ek'ara)(kan *engan %(#en$a- T(#e *ek'ara)( (n( +en&n&kkan %(#e !a)(' *ar( &ng)(- T(#e %er)e&% *(%&'() #a*a ak!(r *ek'ara)( &ng)( $ang *(*a!&'&( *engn %(%(k k,+a.3 F&n;%(,n na+a&ng)(3*a%ar#ara+e%er4:%$#e4- S%r&k%&r &n;%(,n a*a'a! : 1<18-

F4;/'N%%?F4+ 3#ara+,r+a':%(#e#ara+.---4:%(#e!a)('

1$1$.

>%

1<19-

ag(an *ek'ara)( &ng)(. )(a%n$a ',ka'

1$20.

*+

1<21-

)%a%e+en%1

1<22-

)%a%e+en%2

1<2-

CCCC

1<27-

S%a%e+en%n

1<25-

Na+aF&ng)(:!a)('

1$2#.

*@

. Pere*aan ;a)e , *an ( %!en S%a%e+en% ( er&ng)( &n%&k +e'ak&kan )e'ek)( er*a)arkan )&a%& k,n*()(

%er%en%&- Se;ara &+&+ a*a *&a en%&k &+&+ )(n%ak #er(n%a! ( . $a(%& if : !ondisi ;

t#en statements *an if : !ondisi ; t#en

statements else

statements- Pere*aan an%ara ke*&a en%&k %er)e&% a*a'a! en%&k #er%a+a +e+#&n$a( #er(n%a!

%&ngga' (ka ek)#re)(@k,n*()( $ang

*(&( enar.

)e*angkan en%&k ke*&a +e+#&n$a( an$ak #er(n%a! $ang akan *(a'ankan (ka ek)#re)( $ang *(&( enar+en$e*er!anakan #e+aka(an

(

Se*angkan ?a)e

*(g&nakan &n%&k

$ang eran%a(. )e!(ngga *engan ;a)e.

k,n*()( *a#a% *(ke',+#,kkan )e;ara ',g() *engan 'e(! e'a) *an +&*a! &n%&k *(%&'()- S%a%e+en%

;a)e &ga *(g&nakan &n%&k +en$e'ek)( k,n*()(

+ae+&k. *(an*(ng ( #e+aka(an ;a)e 'e(! e()(enDa'a+ #en&'()an )$n%a. #er;aangan ;a)e--, )e'a'& *(ak!(r( *engan #er(n%a! en* )e*angkan #a*a #er;aangan (--%!en %(*ak #er'&Da'a+ )%r&k%&r #er;aangan (--%!en !an$a *()e*(akan *&a #('(!an. $a(%& an%ara enar *an )a'a! er*a)arkan k,n*()(@)$ara% $ang %e'a! *(er(kan )ee'&+n$a- Se*angkan *a'a+ )%r&k%&r #er;aangan ;a)e--, *(+&ngk(nkan &n%&k +e+('(! )a%& #('(!an *ar( an$ak #('(!an $ang a*aPern$a%aan ;a)e--, 'e(! a(k *(g&nakan &n%&k ka)&) $ang )&*a! #a)%(. )e*angankan #a*a #ern$a%aan (--%!en 'e(! a(k *(g&nakan &n%&k ka)&) $ang e'&+ #a)%(1$2.

1<2<-

S,a'

TUGAS PENDAHULUAN 9

1275-

A#aka! #ere*aan #r,;e*&re *an &n;%(,n  B&a% #r,gra+ #en&+'a!an #e;a!an B&a% 1 3)a%&4 #r,gra+ *engan  #r,;e*&re *( *a'a+n$aJ ?ar( +a%er( arra$ J B&a% #r,gra+ ak%,r(a'.k,+(na)( *an #er+&%a)( B&a% #r,gra+ '&a) ke'('(ng '(ngkaran +(n(+a' a*a #r,;e*&re (n#&%.#r,;e*&re

!(%&ng '&a). #r,;e*&re !(%&ng ke'('(ng *an #r,;e*&re %a+#(' 1<29/a"aan : 1- Pere*aan #r,;e*&re *an &n;%(,n : a4 Pr,;e*&re %(*ak +enge+a'(kan n('a( ke #r,gra+ &%a+a. )e*angkan &n;%(,n akan +enge+a'(kan n('a( ke #r,gra+ &%a+a- Maka *ar( (%& &n;%(,n !ar&) +e+('(k( %(#e *a%a 4 Pr,;e*&re ,&%#&%n$a *(*('e%akkan *a'a+ #r,;e*&re (%& )en*(r(. a%a& )a%& #ake% (n#&% *an ,&%#&%. ka'a& &ng)( ,&%#&%n$a *('e%akkan ke*a'a+ #r,gra+ &%a+a;4 Pr,;e*&re *( #angg(' *( #r,gra+ &%a+a *engan +en&'()kan na+a #r,;e*&re %er)e&% *( *a'a+ #r,gra+ &%a+a. )e*angkan &n;%(,n *(#angg(' *engan +e+a)&kkan ke )&a%& =ar(ae' a%a& ()a &ga *engan 'ang)&ng +en&'()kann$a *( #r,gran &%a+a *4 Pr,;e*&re *(a"a'( *engan ka%a #r,;e*&re &n%&k +en*ek'ara)(kann$a e4 2- Pr,gra+ #en&+'a!an #e;a!an 8"0. 8". 8"2. 8"". 8"#. 8"$. 8"6. 8"7. 8"8. 8"9. 8#0. 8#. 8#2. 8#". 8##. 8#$. 8#6. 8#7. 8#8. 8#9. 8$0.

FH FHQF>; ?? >;  IK,BAL;  &,N,&2,N2 : ; E : ?; <> & (&,N,&2,N2 : ) : ;  & := &N2!&2N; @; <> N (N,N2 : ) : ;  N := NN2; @; <> + (&,N,&2,N2 : ) : ;  + := &N!&2N2; @;  P>J@(7); IK: >?>;

8$. 8$2. 8$". 8$#. 8$$. 8$6. 8$7. 8$8. 8$9. 860. 86. 862. 86". 86#. 86$. 866. 867. 868. 869. 870. 87. 872. 87". 87#. 87$. 876. 877.

1<8<-

P>(#); ('R%GRA& EN*U&LA+AN ECA+AN'); ('==========================='); ; P(,#);@(&); P(,$);('1'); P(,6);@(N); P(#,$);('!'); P(7,#);@(&2); P(7,$);('1'); P(7,6);@(N2); P(",#);(&(&,N,&2,N2)); P(0,$);('= 11'); P(",6);(N(N,N2)); P(7,$);('=

',+(&,N,&2,N2):0:2);

;; ('TJ E UJ &'); ; ('TJ 405 J J');E:=@J; < E = '0'   BAL;  IK; @; BAL: @.

Ha)(' r&n

1<891<<01<<1- Pr,gra+ *engan  #r,;e*&re *( *a'a+n$a 882. 88". 88#. 88$. 886. 887. 888. 889. 890.

FH J?Q?; ?? >;  HQFH,J;  >,<,,J,SU+U:; F>@ >>?;  P>(9); ('K%NVERSI SU+U DERA*AT CELCIUS':#0); ('=============================':#0);

89. <:=(80)SU+U!"2;:= 0.8  SU+U;J:= 27".$ ! SU+U; 892. P>(#); 89". ('  '); 89#. (' = ':2#,<:6:2,' DERA*AT A+REN+ET '); 89$. (SU+U:#:0,' DERA*AT CELCIUS = ',:6:2,' DERA*AT REA&%R'); 896. (' = ':2#,J:6:2,' DERA*AT KELVIN'); 897. ('  '); 898. ; 899. @; 900. F>@ <; 90.  902. P>(9); 90". ('K%NVERSI SU+U DERA*AT A+REN+EIT':#2); 90#. ('================================':#2); 90$. >:= 08(SU+U1"2);:= 88(SU+U1"2);J:= (SU+U ! #$9.67)  .8; 906. P>(#); 907. ('  '); 908. (' = ':27,C:6:2,' DERA*AT CELCIUS '); 909. (SU+U:#:0,' DERA*AT A+REN+EIT = ',:6:2,' DERA*AT REA&%R'); 90. (' = ':27,J:6:2,' DERA*AT KELVIN '); 9. ('  '); 92. ; 9". @; 9#. F>@ H; 9$.  96. P>(9); 97. ('K%NVERSI SU+U DERA*AT REA&%R':#0); 98. ('============================':#0); 99. >:= 08  SU+U; 920. <:= (9#  SU+U) ! "2; 92. J:= SU+U  0.8 ! 27".$; 922. P>(#); (' '); 92". (' = ':2",C:6:2,' DERA*AT CELCIUS '); 92#. (SU+U:#:0,' DERA*AT REA&%R = ',<:6:2,' DERA*AT A+REN+EIT'); 92$. (' = ':2",J:6:2,' DERA*AT KELVIN '); (' '); 926. @;

927. 928. 929. 9"0. 9". 9"2. 9"". 9"#. 9"$. 9"6. 9"7. 9"8. 9"9. 9#0. 9#.

1972-

 P>J@(7); >?>; P>(2); ('R%GRA& K%NVERSI SU+U':#6); ('...........':#6); ; P>(2); ('&ASUKKAN NILAI SU+U = ');@(SU+U); ; >>?; <; H; @; @.

Ha)(' r&n

1977- Arra$ a*a'a! )ek&+#&'an =ar(ae' $ang +e+('(k( %(#e *a%a $ang )a+a *an *(n$a%akan *engan na+a $ang )a+a- Arra$ +er&#akan k,n)e# $ang #en%(ng *a'a+ #e+,gra+an. karena arra$ +e+&ngk(nkan &n%&k +en$(+#an *a%a +a&#&n reeren)( ,ek *a'a+ &+'a! an$ak *an %er(n*ek)1977- ar(ae' arra$ *( *ek'ara)(ka *engan +en;an%&+kan %(#e *an na+a =ar(ae' $ang *((k&%( *engan an$akn$a ',ka)( +e+,r( $ang (ng(n *(&a%  Arra$ )a%& *(+en)( 1975-

Arra$ )a%& *(+en)( a*a'a! k&+#&'an e'e+en (*en%(k $ang %er)&)&n

*a'a+ )a%& ar(). e'e+ene'e+en %er)e&% +e+('(k( %(#e *a%a $ang )a+a. %e%a#( ()( *ar( e'e+en %er)e&% ,'e! ere*a197-

B*/4,=% :

1947. Tipe nama _var [ukuran]; 197<1979• •

Dengan :

T(#e +en$a%akan en() e'e+en arra$ 3(n%. ;!ar. &n)(gne*. *an 'a(n'a(n4 Uk&ran +en$a%akan &+'a! +ak)(+a' e'e+en arra$

 Arra$ *&a *(+en)(

1950-

Arra$ *&a *(+en)( *(g&nakan )eaga( )e&a! +a%r(k). +er&#akan

#er'&a)an *ar( arra$ )a%& *(+en)(- /(ka arra$ )a%& *(+en)( !an$a %er*(r( *ar( )e&a! ar() *an eera#a k,',+ e'e+en. +aka arra$ *&a *(+en)( %er*(r( *ar( eera#a ar() *an eera#a k,',+ e'e+en $ang er%(#e )a+a-

195-

1951.

B*/4,=% :

1952.

T&* %%?>% 4,4%@

Dengan :

T(#e +en$a%akan en() arra$3(n%. ;!ar. &n)(gne*. *an 'a(n'a(n4 Uk&ran +en$a%akan &+'a! +ak)(+a' e'e+en arra$ • 5- Pr,gra+ ak%,r(a'.k,+(na)( *an #er+&%a)(•

9$#.

H <JQJHQF;

9$$.

?? >;

9$6.

 Z,Z2,Z",Z#,Z$,Z6,Z7:;

9$7.

A,A2:;

9$8.

F>@ <J( Z2,Z7:);

9$9.

 A2:;

960.



96.

Z7:=;

962.

< Z6:=   Z2 @

96".

Z7:=Z7Z6;

96#.

@;

96$.

<> B(D:):;

966.



967.

Z$:=;

968.

< Z6:=  D @

969.

Z$:=Z$Z6;

970.

B:=Z$;

97.

@;

972.

F>@ FH?(Z",Z#:;  A:);

97".



97#.

Z:=Z"1Z#;

97$.

Z":=B(Z");

976.

Z:=B(Z);

977.

A:=Z"Z;

978.

@;

979.

F>@ JH?(Z",Z#:;  A2:);

980.



98.

Z2:=Z"1Z#;

982.

Z":=B(Z");

98".

Z#:=B(Z#);

98#.

Z":=B(Z");

98$.

A2:=Z"(Z"Z#);

986.

@;

987.

 P>J@(7);

988.

>?>;

989.

P>(#);

990.

('N FH = ');@(Z");

99.

('N J @

992.

<J (Z",Z7);

99".

FH?(Z",Z#,A);

99#.

JH?(Z",Z#,A2);

99$.

;

996.

('<J = ',Z7);

997.

;

998.

('FH? = ',A:0:2);

999.

;

2000.

('JH? = ',A2:0:2);

200.

@;

2002200-

@.

Ha)(' r&n

20072005-

= ');@(Z#);

- Pr,gra+ Pr,gra+ '&a) '&a) ke'( ke'('(n '(ng g '(ng '(ngkar karan an 2006 2006. . 2007. 2008. 2009. 200. 20. 202. 20". 20#. 20$ 20$. . 206. 207. 208. 209. 2020. 202. 2022. 202". 202# 202#. . 202$. 2026. 2027. 2028. 2029. 20"0. 20" 20". . 20"2. 20"". 20"#. 20"$. 20"6. 20"7. 20"8. 20"9. 20#0. 20#. 20#2. 20#". 20##. 20#$. 20#6 20#6. . 20#7 20#7. . 20#8. 20#9. 20$0. 20$ 20$. . 20$2 20$2. . 20$". 20$#. 0$#. 20$$. 20$6. 20$7.

F F H H H H  Q Q ? ?Q@ Q@ QJ QJ   Q Q  J J ; ; ?? >; >? F=".#;  P,;  ,L,K:; :?; F>@ F;  P>();   ( ('& '&AS ASUK UKKA KAN N NILA NILAI I *ARI *ARI1* 1*AR ARI I LING LINGKA KARA RAN' N'); ); ; (' = ');@(); ; @; F>@ ?;  P>($); L := F;   ( ('L 'LUA UAS S LING LINGKA KARA RAN N = ',L: ',L:#: #:2, 2,' ' C&32 C&32') '); ; ; @; F>@ J;  P>(#); K := 2F;   ( ('K 'KEL ELIL ILIN ING G LING LINGKA KARA RAN N = ',K: ',K:#: #:2, 2,' ' C&') C&'); ; ; @; F>@ HF;  F; ?; J; ; @;  P>J@(7); P: >?>; P>(2);   ( ('& '&EN ENG+ G+IT ITUN UNG G LUAS LUAS DAN DAN KELI KELILI LING NG LING LINGKA KARA RAN' N'); );   ( ('= '=== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ===' ='); ); ; HF; P>(2);   ( ('T 'TJ J  ENTE ENTER R  J J H H  ' '); );   ( (' ' TJ TJ  4E5 4E5 J J J J ') '); ; :=@J; < ( = 'E') E')  ( = '') '')     ;  P; @; : @.

205<-

Ha)(' r&n

205('

20020120220#.

20-

20#. TUGAS PENDAHULUAN 10 20#5.

S,a' :

1275-

B&a% B&a% #r,gra #r,gra+ + +enen% +enen%&kan &kan +(n *an +aJ B&a% B&a% #r,gra #r,gra+ + +eng&r& +eng&r&%ka %kan n *a%a *a%aJJ B&a% B&a% #r,gra #r,gra+ + #en& #en&+'a +'a!an !an +a%r(k +a%r(k)J )J ?ar( ?ar( +a% +a%er er(( De'# De'#!( !(JJ B&a% B&a% #r,g #r,gra+ ra+ #erka'( #erka'(an an +a%r(k +a%r(k)J )J 20820<<- /a"aan an : 1- #r,g #r,gra+ ra+ +ene +enen% n%&ka &kan n +(n +(n *an +a +a 2069. 2070. 207. 2072. 072. 207". 207#. 207$. 2076. 2077. 2078. 2079 2079. . 2080. 208. 2082 2082. . 208". 208#. 208$. 2086. 2087. 2088. 2089. 2090.

USES CRT; VAR TRB,TRK,I,K:INTEGER; B:AR B:ARRA RA 4.. 4..0 00 005% 05% INTE INTEGE GER R; BEGIN TETBACKGR%UND(7); CLRSCR; TETC%L%R(9); WRIT WRITE( E('B 'BAN ANA AKN KNA A DATA DATA = ');R ');REA EADL DLN( N(I) I); ; %R K:=  T% I D% BEGIN WRIT WRITE( E('N 'NIL ILAI AI ',K, ',K,' ' = ');R ');REA EADL DLN( N(B4 B4K5 K5); ); END; TRB:=B4K5; TRK:=B4K5; %R K:= T% I D% BEGIN I B4K5  TRB T+EN TRB:=B4K5; END; %R K:= T% I D%

209. 2092. 209". 209#. 209$. 2096. 096. 2097. 097. 2098. 2099. 200.

BEGIN I B4K5 - TRK T+EN TRK:=B4K5; END; WRITELN; WRIT WRITEL ELN N('NI ('NILA LAI I &AI& AI&U U& = ',TRB ,TRB); ); WRIT WRITEL ELN N('NI ('NILA LAI I &INI& INI&U U& = ',TRK ,TRK); ); READLN; END.

2101210221021072105-

Ha)(' r&n :

2102- #r,g #r,gra+ ra+ +eng& +eng&r& r&%ka %kan n *a%a *a%a 207. 208. 209. 20. 0. 2. 22. 2". 2#. 2$. 26. 27. 28. 29 29. . 220. 22. 222. 22". 22#. 22$. 226. 227. 228. 229. 2"0.

R%GRA& EN ENGURUTANQDATA; USES CRT; TE E IKB IKB = AR ARRA RA 4. 4.. .0 005 % REAL; EAL; VAR Z : IKB; I,K,B: INTEGER; D : REAL; BEGIN TETBACKGR%UND(7); CLRSCR; TETC%L%R(#); WRIT WRITE( E('B 'BAN ANA AK K DATA DATA : ');R ');REA EADL DLN( N(I) I); ; WRITELN; WRITELN('INUT DATA'); %R K:= T% I D% BEGIN WRITE(' '); READLN(Z4K5); END; %R B:= T% I1 D% %R K:= T% I1B D% I Z4K5Z4K!5T+EN

2". 2"2. 2"". 2"#. 2"$. 2"6. 2"7. 2"8. 2"9. 2#0. 2#. 2#2.

BEGIN D := Z4K5; Z4K5 := Z4K!5; Z4K!5 := D; END; WRITELN; WRITELN('DATA SETELA+ DIURUTKAN : '); WRITELN; %R K:= T% I D% WRITE(Z4K5:":0); READLN; END.

217217721752172178-

Ha)(' r&n :

217<21792150- #r,gra+ #en&+'a!an +a%r(k) 2$. R%GRA& &ATRIKS; 2$2. USES CRT; 2$". TE IKBAL = ARRA4..0,..05 % INTEGER; 2$#. VAR 2$$. &,&2 : IKBAL; 2$6. BRS,KL& : INTEGER; 2$7. 2$8. R%CEDURE DATA; 2$9. VAR , : INTEGER; 260. 26. BEGIN 262. WRITE ('INUT %RD% &ATRIKS : '); READLN(BRS); 26". WRITELN; 26#. WRITE(' &ATRIKS A'); 26$. %R  := T% BRS D% 266. BEGIN 267. %R  := T% BRS D% 268. BEGIN

269. G%T%(",!7); 270. READLN(&4,5); 27. END; 272. END; 27". WRITELN; 27#. WRITE(' &ATRIKS B'); 27$. %R := T% BRS D% 276. BEGIN 277. %R := T% BRS D% 278. BEGIN 279. G%T%(",!"); 280. READ(&24,5); 28. END; 282. END; 28". END; 28#. 28$. R%CEDURE +ASILQINUT(&,&22 : IKBAL; BRS,KL& :INTEGER); 286. VAR +ASIL : IKBAL; 287. , : INTEGER; 288. BEGIN 289. %R := T% BRS D% 290. %R := T% BRS D% 29. BEGIN 292. +ASIL4,5:=&4,5!&24,5; 29". END; 29#. WRITELN;WRITELN; 29$. WRITE(' &ATRIKS A ! B ='); 296. 297. %R := T% BRS D% 298. %R := T% BRS D% 299. BEGIN 2200. G%T%(#!6,!7); 220. WRITE(+ASIL4,5); 2202. END; 220". READLN; 220#. END; 220$. 2206. BEGIN 2207. TETBACKGR%UND(7); 2208. CLRSCR; 2209. TETC%L%R(); 220. WRITELN('R%GRA& EN*U&LA+AN &ATRIKS'); 22. WRITELN; 222. WRITELN; 22". DATA; 22#. +ASILQINUT(&,&2,BRS,KL&); 22$. READLN; 226. END.

2218-

Ha)(' r&n :

221<221922207- +a%er( De'#!( a- #enger%(an De'#!( De'#!( a*a'a! )e&a! a!a)a #e+r,gra+an *an '(ngk&nga #enge+angan #erangka% '&nak- Pr,*&k (n( *(ke+angkan ,'e! B,r'an*- Dengan +engg&nakan "ree Pascal $ang +er&#akan #r,$ek opensource. a!a)a (n( *a#a% #&'a *(g&nakan &n%&k +e+&a% #r,gra+ $ang era'an *( )()%e+ ,#era)( Ma; OS  *an >(n*,") ?E - ke&ngg&'an De'#!( 2221- Ke&ngg&'an a!a)a #e+r,gra+an (n( %er'e%ak #a*a #r,*&k%(=(%a). k&a'(%a). #enge+angan #erangka% '&nak. ke;e#a%an k,+#('a)(. #,'a *e)a(n $ang +enar(k $ang +enar(k )er%a *(#erk&a% *engan #e+r,gra+ann$a $ang %er)%r&k%&r ;- Langka!Langka! Mena'ankan De'#!( : 2222-  K'(k %,+,' START 222-  P('(! A'' Pr,gra+) 2227-  P('(! B,r'an* De'#!( 8 2225-  K'(k De'#!( 8 *- IDE 3In%egra%e* De=e',#+en% En=(r,n+en%4 De'#!( 222- L(ngk&ngan #enge+angan %er#a*& a%a&+ Integrated Development Environment 3 IDE4 a*a'a! ag(an *ar( De'#!( $ang *(g&nakan &n%&k +e+&ngk(nkan #e+r,gra+an )e;ara =()&a' +eran;ang %a+#('an &n%&k #ara user 3an%ar+&ka #e+aka(4 *an +en&'()kan '()%(ng #r,gra+ a%a& k,*e 2228- 1- Men& Bar

222<- Ber&ng)( &n%&k +e+('(! %&ga)%&ga) %er%en%&. )e#er%( +e+&'a(. +e+&ka. *an +en$(+#an pro2ect . +eng,+#('a)( pro2ect +ena*( filee3ecutable 3EE4. *an 'a(n'a(n 2229- 2- T,,' Bar@S#ee* Bar 220- Me+('(k( &ng)( $ang )a+a )e#er%( +en& ar. %e%a#( er&ng)( )e#er%( a'an #(n%a) karena 'e(! #rak%() *a'a+ #engg&naann$a221- - ?,+#,nen% Pa'e%%e 222- ?,+#,nen% Pa'e%%e er()( k&+#&'an (k,n $ang +e'a+angkan k,+#,nen k,+#,nen $ang %er*a#a% #a*a ?L 3()&a' ?,+#,nen% L(rar$4- Pa*a ?,+#,nen%Pa'e%%e. akan *(%e+&kan eera#a #age ;,n%r,'. )e#er%( S%an*ar*. A**(%(,na'. >(n2. S$)%e+. Da%a A;;e)) *a 'a(n'a(n- Ik,n %,+,' #,(n%er %er*a#a% *( )e%(a# #age;,n%r,'22227-

7- F,r+

225- F,r+ De)(gner +er&#akan )&a%& ,ek $ang *a#a% *(#aka( )eaga( %e+#a% &n%&k +eran;ang #r,gra+ a#'(ka)(- F,r+ eren%&k )e&a! +ea kera $ang *a#a% *(()( *engan k,+#,nenk,+#,nen $ang *(a+(' *ar( ?,+#,nen% Pa'e%%e22- 5- Oe;% In)#e;%,r 228- Oe;% In)#e;%,r *(g&nakan &n%&k +eng&a! #r,#er%( *an karak%er()%(k *ar( )e&a! k,+#,nen- Oe;% In)#e;%,r %er*(( *ar( *&a %a. $a(%( Pr,#er%(e) *an E=en%)Ta Pr,#er%(e) *(g&nakan &n%&k +eng&a!#r,#er%( k,+#,nen- Pr,er%( *engan %an*a  +en&n&kkana!"a #r,#e%( %er)e&% +e+#&n$a( )&#r,#er%(22<- Ta E=en%). ag(an $ang *a#a% *(()( *engan k,*e #r,gra+ %er%en%& $ang er&ng)( &n&k +enangan( e=en%e=en% 3kea*(ankea*(an $ang er&#a )e&a! #r,;e*&re4 $ang *a#a% *(re)#,n ,'e! )e&a! k,+#,nen229- - Oe;% Tree (e" 2270- Oe;% Tree (e" +ena+#('kan *(agra+ #,!,n *ar( k,+#,nenk,+#,nen $ang er)(a% =()&a' +a&#&nn,n=()&a' $ang %e'a! %er*a#a% *a'a+ ,r+. *a%a +,*&'e. a%a& ra+e- Oe;% Tree (e" &ga +ena+#('kan !&&ngan ',g(ka an%ark,+#,nen2271- 8- ?,*e E*(%,r

2272- ?,*e E*(%,r +er&#aka %e+#a% +en&'()kan k,*e #r,gra+ a%a& #ern$a%aan #ern$a%aan *a'a+ Oe;% Pa);a'- ?,*e E*(%,r *('engka#( *engan a)('(%a) !(g!'(g!% $ang +e+&*a!kan #e+aka( +ene+&kan ke)a'a!an2275- Pr,gra+ #erka'(an +a%r(k) 22##.

R%GRA& &ATRIKS;

22#$.

USES CRT;

22#6.

TE IKB = ARRA4..0,..05 % INTEGER;

22#7.

VAR IK,BAL: IKB;

22#8.

,:INTEGER;

22#9. 22$0.

R%CEDURE &ATRIKS;

22$.

VAR I,K : INTEGER;

22$2.

BEGIN

22$".

WRITELN('ERKALIAN &ATRIK %RD% 22');

22$#.

%R I:= T% 2 D%

22$$.

%R K:= T% 2 D%

22$6.

BEGIN

22$7.

G%T%(I",K!2);

22$8.

READLN(IK4I,K5);

22$9.

END;

2260.

G%T%(8,");WRITE('');

226.

%R I:= T% 2 D%

2262.

%R K:= T% 2 D%

226".

BEGIN

226#.

G%T%(I"!7,K!2);

226$.

READLN(BAL4I,K5);

2266.

END;

2267.

END;

2268. 2269.

R%CEDURE &ATRIKS2(,2 : IKB);

2270.

VAR +SL : IKB;

227. 2272. 227".

I,K,B : INTEGER; BEGIN %R I:= T% 2 D%

Laporan Lengkap Algo 2016 (Ld. Ikbal)

Recommend Documents