! " # $ % & ' "() * &+ '&,& '-&'&

! "#

%$& &+ '&

' ,&

"() *

'-&'&

.

! #

$

% ! ! % ! +, & !

% %

%%

!

% ! % # ! %

" %

.!

% $

/

%

% %%

%% !1! !

&' %

!

0*

%

% ! ' ! %

!

! '' /

%

! 2 ! !

% %

# ! '2 ! 3 -

% 1-

% /

%

!" #

!

5 &

&'

! % %

!

% % ! ! ''' ! % / ! ! 4 ! /

% & % ( ) *

% !

!

"

% % !

!

%%

Terima Kasih tak terhingga kepada ALLAH SWT, my inspirational person (my husband nank), calon bayi yang tersimpan dalam hati terdalam dan calon anakku yang sedang ‘olah raga’ di kandungan. Terima kasih juga teruntuk ke-empat orang tua. Do’a dan kesehatan selalu mengiringi semua my inspirational people.

/

01

/

*

6 6 6 6 6 6

'2 &34 '2 & + '% 7 89 & < 8' ( % % ( % < ( % %% 3 " * "(.(' + +(.('

6 + ; = ,

+6 ++ +; +

2

+ + + +

! >

9 6 + ;

5

3 39 9 9 9 9

* ;6 ;+

8

+ : 6; 6 60 6: $ +* +6 +; +, +, +, +0 +: 7 +? ;6 58 ; ; ;, ;0 * + +

> 7 % % 6

& ! 9* '+

"3

'+

"

2

.

6 66 6+ 6; 6 + +6 ++ +; 9*

0 =6 =+ =; =

'( '( # ''( 4'( % 5 $ % (9> " '7# 799 8 ># # !(- ( : '!+& '

= 8# 0 : =* =6 05

(

9 *

@ (' '2 ' '

(

" ) '

01

//

+

;+

2

. %

%

% 4$

!

%

"&"'%5 $ - % - !

%

! %

%

%

! %

< ! %

-

! ! ! -

%

!

!

%

( )

+,

! - ! < &'+

!

!

% %

%% .!

((( !

%

( ) !

% % !

% !

+,

-

% '

% %

!

!

! %

$ 7

%6 @ 2,2 say “Selamat Datang” Set date Italian Bil=0

7

%+ Set date Italian Bil=0 @ 2,2 say “Selamat Datang” !

%

<

%

%

% %

( )

+,

!

/ %

( ! ( ) $

/ % ! !

@ % !

(

+ ,/

/ / ! ! A !

%

@ % (

SET TALK OFF SET COLOR TO Kal1=”PERGURUAN TINGGI ASIA” CLEAR @0,9 TO 5,70 COLOR W+/R @2,28 SAY Kal1 @3,20 SAY "JURUSAN TEKNIK INFORMATIKA" @1,10 TO 4,69 FILL COLOR GR+/R @6,9 TO 6,70 DOUBLE @7,9 TO 15,70 COLOR W+/B DOUBLE @8,28 SAY Kal1 COLOR R+*/B @9,20 SAY " JURUSAN TEKNIK INFORMATIKA" COLOR BR/G

5

01

*Selamat Mencoba '!

=4 !

) % !

!

%5 B

! %

33

! %

/

! %

%

!

4B

/

6

-

% C %

>?@ % CF E % # &% "),

A

% 8 B - )5 % %

$

DE

!

% G

H

%

-

%

'$

%% %

! %

!

)

*" % + , # >? %

A

$

/

(( . 4!

%

%

5 !

! ! %

/ % %

% !

%

% > >

.! .

/

%

8

% -

!

% %

4

) , .

8 ! %

=5

%! / ) * &"

/

6 .0%*" " " &",% ! & / 6 .

) '

B ." ." ."

& & &

"

%/

.&",% ! & /

% 1 "/ 1 "/ 1 "/

$ DECLARE SUB CETAKGARIS () DECLARE FUNCTION tambah (a AS INTEGER, b AS INTEGER) TYPE NIM as String * 10 Nilai as Integer END TYPE DIM a AS INTEGER DIM b AS STRING DIM c AS DOUBLE

8

01

'program utama INPUT " nama ", b INPUT " nilai 1 : ", a INPUT " nilai 2 : ", c PRINT b, a, c END ' %%

!

.!

!

4

%

5

$ INPUT " nama

", b: INPUT " nilai 1 : ", a

A 5

'- B 4 !

!

%

.! %

!

6 !

!

!

-

% %

!

((2 %

!

!

!

! %

!

0*

%

!

!

0*

. ) , # )/I . ) "& - # !"# 1 > . % /I

>

.!%1

"1

&

/I

& /I

6 .!%*" " " &",% ! & /I 9 .!%1

"'

"

% #

/I

G

HI

9 .!%1 ." ."

"'

& &

"

%

1 /I

&"

/3

1 "/I 1 "/I

* . ." ."

& &

) * 1 "/I 1 "/I

C D

%

@ ." ."

& &

E 1 "/I 1 "/I

0

01

%

DFE4

'-

%

! -

%

%

5 ! % !

6 ! %

! J

! %

!

6 ! % K !

! ! ! %

%

%

5 < %

F

!

I 4 F

5 4#<

0*

! -

! !

! C 4#<

5

#L'< M #< I 4#< 5 ! ! % % ! 6 $ 4 % #L'< #< I5 PROGRAM contoh1; USES crt; VAR a,b : Integer; BEGIN CLRSCR; a:=14; b:=10; IF a < b then BEGIN Writeln(‘Selamat Datang’); Writeln(‘Di Perguruan Tinggi AsiA’); END; END.

$

4

#L'< #< I5 PROGRAM contoh1; USES crt; VAR a,b : Integer; BEGIN CLRSCR; a:=14; b:=10; IF a < b then Writeln(‘Selamat Datang’); Writeln(‘Di Perguruan Tinggi AsiA’); END.

01

%%

/ !

@

% !

/

! !

('!(+ ; ' -& > G

'( M

1

H

#<

%

+< +

% ! :* ) +=

(

/ 4

%

5

% :*

!

+= !

(

?, ??, ??? A )5

%

!

!

- )

%% !

$

D 4

6

.

!

? “Hai” ? “Apakabar ?”

!

D

N

-

4 DD 4

A

5

+ )5

%

!

! A ! ?? “Hai” ?? “Apakabar ?”

$

!

%

8

.

%

DN

4

) DDD 4

A

; )5

!

I

J

6K

L

>

@

:*)+=/ * 8 !

0? !

%

6+

*/* %% ;*

I (; H@ ' K > O O

1

$979> ('77 $979>

7

H

6 M (" . + ! % ? % I / 5$ !

!;2

'-

+

+ '2N O % I 6 M (" . + /

6

K !;2 >L

'

* 8

% % 5$

I / ! >

! / 5$ 6 M (" . + + '2N % % ! ! + '2N > =H ? % ! % !

(; H@

+ / 0?

%

&

'

!

>>L K

>

'-L

% P C& P C&

!

! !

% "

" E

Litbang WEC.2007, Modul Komputer1, Malang : Wearnes Education Center.

#

01

E

@

'

Q 9@ 7#R <#7S P C& $ I + 0 8$ >> & IP

!

%

A

& / ; " ./

! % $

I$ $

& %% % 8 #7

(" ,

'

! ?H

! ; " . J ! ! M:N

< -

@

! >

)

%

<(.

2

. '

L L > > L> " U4 B4

%

=&

A

A +/+ O A %% +/+

!

!

! C

! -

%

C

% !+( H

'

T <

= , 0

%

!+( J

Q

-( @

* 6 + ;

8

! E

P(; < ( & ) % % G (; < ( & )

-( '2;

$ & & % $

! >

L > >L !

! A ! %/ CU % 45 CU 4! 5

5

5

% !

/

% ! !A

4 A ! ! !(

!

!

!

% %

% A

!

! 5

%

% !

( O

%

%% %

>'< D4

%% >'< 5

@

!

%% ! % ! ! %

/

A

! !

1 A

% !

!

!

! !

C4

5

$ X=4 B=5 PRINT “Nilai x = “; X ;” Nilai b = “; B

<

)P

<

&

%% !

% %%

!P= ! !

A

$

1

01

! 4

% 5

>'<

X=4 B=5 PRINT X,B

= + A 6*

!

%

O

%

% C4

%% / ! !

& %% C4 $

%

! 5 O

; %

-

%% % >'<

!

<

>'< 5

!

/

% %%

/ ! !

6 PRINT “Selamat” PRINT “Datang” 6 %

$

+ PRINT “Selamat”; PRINT “Datang” + %

%

!

! ! >'<

/ >'< @ '
-

&

MRN

A

$ A$=”Hai” PRINT USING “!”;A$

MS A

SN

&

! !

!

$ A$=”Hai” B$=”Saudara !” PRINT USING “\

\”;A$;B$ ‘

V

7

01

jarak 4 karakter

!

< $ PRINT USING "##.##"; .78 + % ! ! /+ % ! PRINT USING "###.##"; 987.654 ; % ! ! /+ % ! PRINT USING "##.## "; 10.2; 5.3; 66.789; .234 + % ! ! / + % ! % ! PRINT USING "+##.## "; -68.95; 2.4; 55.6; -.9 -8 % % PRINT USING "##.##"; -68.95; 22.449; -7.01 -8 % ! % % PRINT USING "**#.# "; 12.39; -.9; 765.1 % % B PRINT USING "$$###.##"; 456.78 % % PRINT USING "####,.##"; 1234.5 ! % / PRINT USING "##.##^^^^"; 234.56 Menampilkan format exponen

>

P

& J P; " .J > % %

$ 79$ # ;/6= >'< C E

/$

01

W

&

!

%

(

;

>'< C

6=

E

2 @ &+( @ &+("' !

!

%

+ ! % BMT 4

%% A $

!

4 %

@ 2

%

! 5

5

! I $> I /!

%

I

% P;I P+I " 4X<

X/

;<

+N

/ X<

X/ 5I

#

< !

O !

%%

/

%

%

/

%%

!

$ Program Coba; uses crt; begin clrscr; writeln('Hai'); write('Selamat'); writeln('Datang'); writeln('di Kamus bahasa pemrograman'); write('UNDER’) writeln(‘ DOS'); end.

% @< #>

! 9

%

O

/ N N N ! @< #>N 9 N

! %

% %

//

01

!

/

6 P; " .J P ! ! L9 9TF ! - %

& J% %

!

%

.!

/

< L9 9TF/ T 4 5/

! F 4!

% %

5

$ Program cobaXY; Uses CRT; BEGIN CLRSCR; GOTOXY(15,3); Write(‘Hai’); END. ! %

.!

%

%

79$ !

/5 (2(

(.

;; '

+, !

A MFN% IP

%

A

!

! /

!

! ! & J P; " .J

%

I FF

GF

P9

J

%

%

4L# ! 5 CLEAR Bil=0 @ 5,20 say “Masukkan Bilangan : “ @ 5,35 get bil

$

A ! 4Bil=05 CLEAR @ 5,20 SAY “Masukkan Bilangan : “ GET bil DEFA 0 2

% ( )

%

'$ @># C VE C????1?????E % %

6

!

$

(

%

-

%

! % ! 4 65 ( % % ! 4% ! % % F5 CLEAR Bil=0 @ 5,20 say “Masukkan Bilangan : “ get bil

$

%

%

!

!

&" & H '< + !

( )

# ! L9 9TF/ - %

%%

!

-

% 1-

% A

+,

%

! % !

(

/

01

%

! 1%

%

-

% !

C??/??? ??E & % ! % + $ @3,3 say “Bayar :” GET biaya PICTURE “99,999.99” @4,3 say “Nama :” GET nama PICTURE “@!” > >9> !

A

!

%

6* 8 ;*

%! - %

A

!

$ @3,3 SAY “Bayar :” get Bayar RANGE (10000,100000) && 10000 s/d 100000 @4,2 SAY “Nama :” GET Nama Valid Not EMPTY(Nama) && Valid Tdk Kosong READ

(2 @

.!

+, ! $

! % !

/ %

!

!

%

( )

%

4 % Dim bil as Integer

3

5

CLS LOCATE 3,3 PRINT “Masukkan Bilangan : “; INPUT bil $

4! 5 Dim bil as Integer CLS LOCATE 3,3 INPUT “Masukkan Bilangan : “,bil '< @

! / 4

-

%

5

I 4

5 O

!

%%

%

!

% 4

/ % !

% ! %

! % %

%% !

5 %

! ! %

$ INPUT “Masukkan nilai a”,a INPUT “Masukkan nilai b”;b END

/5

01

!

(22 ' A >#

% ( %

> ! / 7<

+

! %%

!

0 */ %

!

!

% !

! /

%%

$ !

%

!

!

Program coba; uses crt; var a,b : integer; begin clrscr; write('Masukkan nilai a : '); read(a); write('Masukkan nilai b : '); readln(b); end. ! !

/8 (4(

'2 & (

%

!

>

!

+ &'2 %

%

( )

('22 ' ' LEFT(“KOMPUTERKU”,8)

(+(

&

%

!

RIGHT(“KOMPUTERKU”,5)

&

%

!

+,

! %

!

'2 '

&"

C 9& @ #>E : C #> @E =

SUBSTR(“KOMPUTERKU”,4 ,5)

&

VAL(“20”) + 3

&

!

1

C @ #>E

=

AT(“E”,”BREKELE”,1) AT(“E”,”BREKELE”,2) AT(“E”,”brekele”) ATC(“E”,”brekele”) LEN(“MALANG”)

% !

%

% !

- !

&

+; $ 8

%

/8

01

; = * ; ,

LTRIM(“

MALANG

“)

&

%

!

C& 7
RTRIM(“

MALANG

“)

&

%

!

C

ALLTRIM(“ MALANG “) UPPER(“malang”)

&

%

&

!

LOWER(“MALANG”)

&

!

STR(200.36,6,2)

&

!

C

& 7
C& 7
C& 7
C

%E

E+** ;,E %

“Malang” + “Raya”

&

%% !

%

C&

%>

E

%

(4 ! ('22 ' ASC(“A”)

.!

-

%

'

% (+(

! %

&"

@

CHR$(65)

!

'2 ' $''

@

C E %

INSTR(“TITANIA”,”NIA” ) INSTR(“TITANIA”,”IT”) INSTR(“TITANIA”,”NANK ”) INSTR(“TITANIA”,”tita nia”) LCASE$(“QBasic”)

,=

$''1

,= @ 4

O % %

&

! "&"'%5

*

!

-

= + * *

CY!

E

-

C.

'$E

=

C '

;

C<' E

;

C <'E

UCASE$(“QBasic”)

&

! -

LEFT$(“TITANIA”,5)

@

<E

% % RIGHT$(“TITANIA”,3)

@ % %

MID$(“TITANIA”,4,3)

@

LEN$(“TITANIA”)

@

1

LTRIM$(“ ”) RTRIM$(“ “) STR$(23) STRING$(5,”M”) VAL$(“12”) VAL$(“YY”)

MALANG

% 8

@

0

%

%

C& 7
%

%

C

C

%! MALANG

@

& 7
%! @ +; @ ! & % !

/0

% !

C+;E %

% =

%

8 %

01

E&&&&&E 6+ *

(42 -

% !/

! %

4

> -

A <

! (-

5 ! %

! % % > - ' 4 '!+& '

!

-

('22 '

0* -

!

%

5/

! A ! ! 4! ! ! !/

% %

4

%

% 4!

&

ORD(“A”)

&

5 0* %

! %

5

O

O

! % %

! !

%

% '&+ !

! (+(

CHR(66)

!

!

'

!

%

0*

'2 '

&" C E

$'' $''

,=

! &

PRED(“D”)

!

C$E

C E &

SUCC(“D”)

C#E C E

/0 (5(

'2 & (

%

('22 '

.( &; -

<

( )

' &

VAL(“23”)

!

+,

(+( '2 ' % +;

&" +;

(5 (

%

('22 '

<

.!

'

(+(

ATN(1)

&

TAN(90)

&

'2 ' %

!

% %

!

&" 0 :=;?:6,; *#1 *6 16 ??=+

%

SIN(45)

&

! %

COS(30)

&

! %

ABS(-67) CINT(7.85E-01)

& &

!

EXP(45)

! % & ! ! & ! % & !

LOG(; ?; +0#U6?)

&

%

%

SQR(9)

&

%

%

CDBL(7.85E-01) CSNG(7.85E-01)

/

: =*?*;=+ =,#1 *6 6 = +=6 ??6#1 *6 ,0 6 * 0:=****+,++ ,* ;0 * 0:=

%

01

! %

; ?; +0#U6? =

+

;

(52 (

%

('22 '

<

!

0*

'

(+(

ARCTAN(1)

&

SIN(45)

&

'2 ' %

&" 0 :=;?:6,; *#1 *6 : =*?*;=+ =,#1 *6 6 = +=6 ??6#1 *6 ,0 ; ?; +0#U6?

!

% ! % &

COS(30)

! %

ABS(-67) EXP(45)

& &

!

LN(; ?; +0#U6?)

&

%

ODD(4) ODD(9)

& %

%

PRED(12)

&

!

%

!

%

% !

8%

& % &

TRUNC(2.9)

% ! !

ROUND(2.9) & &

SQR(9) SQRT(9)

!

% L / >@# % ! 6+ % 6+ 4!

( 7 # >@#

!

;

O

%

SUCC(12)

=

O % <

6; +

5

% %

% %

%

%

!

+

:6 ;

+

! 0 *5

66

% % - % (- ' 4 '!+& '

%

%

%

4

! !

/ !

!

'&+ !

/

'2 & (

'22 " : @ ;+

( (

%

('22 '

%%

( )

+,

'

DATE()

! %

(+(

!

'2 '

&

&"

%%

-

4

%% 5

DTOC(DATE())

CTOD(”2/2/2007”)

& $ &

!

%% %4 5

9

!

% %%

DAY(Date())

&

MONTH (Date()) YEAR (Date()) DOW(Date())

& &

%% 1 ! % % ! %

GOMONTH(Date(),3)

&

% !

!

/#

01

%% 6 8

%

%

(

%

('22 '

"

( )

+,

'

(+(

SET HOUR TO 24 | 12 SET CLOCK ON

&

SET CLOCK TO ,

&

Time()

&

'2 '

! + 8 6+ O ( ) O

&

&"

%O % %

%

( (

%

('22 '

(

%%

3"

.!

'

(+(

DATE$

&

TIME$

&

'2 '

&"

%%

4

O

%%

%

%%

5 %

%%

5

4O

2 @

( !

%

('22 ' GetDate

%%

3 " -

! !

'

(+(

%

0* ! -

! %

'2 '

&

%%

&"

4

%%

%% GetTime

&

SetDate(2006,10,29);

&

!

SetTime(09,10,0,0)

&

!

O

/1

%% O

4O

%

5 %

%% 5 6*8+?8+**, *? 6* ** **

01

/

&<(

+

(( ( ) +, ! < ! %

! %

+! %

G<( - +

(+(

% 4 &

/

% & *68+;8?? & 4 / & ! += %

Memo [ M ]

/

!

% / /% / ! 4 %% %% % +; O % @ !

%

4 (

8 6 ,#U*+ 5 % &&8 6??? ! 4 5 (

!

! !

!

$ ! !!

/ !

-

: 8FF 4

/

4(5 5 % -

%/

5

% <'& !

/

/

%% %

%

% 1

%

%

!

!

% 5

1

!

&

Logical [ L ]

'2 '

-

@

-

! +,

!

Character [ C ] Numerik [ N ] Float [ F ] Date [ D ]

!

A ( )

/ Q M S & (

<'& 7 !

!

( .! G<( - +

Integer [ % ] Long [ & ] Single [ ! ] Double [ # ]

String [ $ ]

(+(

&

'2 '

! % ! % % ! 1;+ 0,: %% ;+ 0,0 & ! % ! % % ! ! 1+ 6 0 :; , : %% + 6 0 :; , 0 & ! % 4 5 % % Z; *+:+; #U;: %% Z6 *6+?: #1 = 40 % 5 & ! % 4 5 % % Z6 0?0,?;6 U;*: %% Z ? *,=, 1;+ 46= % 5 & 4 ! %% - % 5 % % * %% ;+ 0,0

/7

01

;

' G+(%

+

:

+

@

! ! !A

% !

%

%

Q M S/

!

(2 !

0*

G<( - +

(+(

& % & '

%

&

"

& %

7

%

&

&

%! % ! * %% +== %! % ! % 16+: %% 6+0 %! % ! % 1;+ 0,: %% ;+ 0,0 %! % ! * %% ,==;= %! % ! %

%

%

6

%

6

%

+

%

+

% 1 1 6

!

!

%

!

% & ! 6+; % % A 6 A 6 A ! % & &%1 " " ! 6)% -"), 1 1&% - #, 7 # 2 ! % % "&"'% ! ! % 2 >6 % A ! % % ! % % < % +==

• • • •

•

& 6

4

A

O

!

/

A

!

%

%

!

% ! A

%

!

$ STORE STORE STORE STORE STORE

0 TO bil “Hai” TO teksku {10/29/2006} TO tgl .T. TO status 3.2 TO des

*Sama dengan perintah : Bil=0

$

01

1

! &

A % A

(

!

' G+(%

(" A

9

;

1+ 6 0 :; , : %% + 6 0 :; , 0 & % >@# ( 7 # & % % %% % 1 ! 4 % % % % % ! 6! 5

%

9

'2 '

1

6

!

Teksku=”Hai” Tgl={10/29/2006} Status=.T. Des=3.2 !

A

! 1A

!

%

% %%

> 6

%

6

% !

A

+==

%

A !

A

!

.!

!

?

.!

! %

@ !

$ DIM bil AS Integer %%

!

%4

%

QMS

! !

5

$ Bil%=0 Teks$=”Hai…” .!

%%

!

% ! !

! %

A

A %

!

! %%

% 6

O

4A

!

%

!

DIM a AS String, b AS String, c AS Integer <

A

!

%

% !

& ! F

! !

! +6,/

A

!

A

%

%

% /

%% * 4 !

% %

A

/

01

A %5 & !

L ! 5 (

! A A 6

6 ! A ! 6 A

% ! +6, ! A %

!

%

A

!

% ! /

2 ! +== 9

0* @

P

%

A A

J*

!

!

C

$ VAR

bil : Integer; Teks:String;

O %%

%

! ! ! %

VAR

A

!

!

/

!

bil1,bil2,bil3 :Integer Teks1,teks2 : String; !

0*

A

!

C$ 1

8

!

A %

2

!

% !

! A

A !

! ! 8 -

% % %

/ @

!

%

!

%

! !

0* ( )

!

! +,

/

@ U !% &"*"% E

/

! !

3

(

5

&<(

(!

> ! ! !

!

-: % ! ! ! !

' + '+ ! / ! !

4 5

! ! %

A

! ! !

%

%

%

!

2( ( ) >

+, ( )

% +,

!

01

!

$

!

!

%

% &

! %

!

!

Jml digit bag. Pecahan Khusus utk bil. real

Menyatakan Type data field

Menyatakan Nama field

Menambah Field baru

Nama file database

Menghapus Field

Struktur Dibatalkan

Index Tag

'

)

%

Simpan struktur Database

!

!

-

%

8 O

!

9 #

+,

4

!

-

!

5

( )

B !-

2 .! $9<

%% P % /4

O

! %

%%

-

%

! V !

/

%%

5 V

V

$ CONST phi = 3.14 @ F # @

!

/

%% !

!

-

F # M #< @ !

% -

/

!

% !

5

01

4 !

1

!

%

%

!

5

6 6 O

%/

" O'

!

%

6

!

$ TYPE MHSREC NIM AS String * 10 NAMA AS String * 15 Nilai AS Integer END TYPE

22 ! 0* 4 #L'< #< ! /

#L'< M #< %

! % %

%

$

% ! ! ! %

* *

!

5

!

!

C

$ CONST Phi:=3.14; Bil:=29; @

!

! %

! -

! ! ! 6 V

C %

! %

-

&

0 */

/

-

9 $ TYPE MhsRec = RECORD NIM : String[10] Nama : String[15] Nilai : Integer END; VAR mahasiswa : MhsRec;

8

01

! % F %

!

-

8

! %

<( 8 / <( 4((

/ @ U

%/ !

+ +

4! !

:

!

! %

/ .!

!

! %

6

5

<( '&+. +&;

<( + BB [ 8 \ U 1 B

'2 & % % ! % ! % %

(+( '2 ' +BB+ +[+ ;8+ 6= ;\+ 6/ \+ 6+6 U 6+= ; = ] 6* ;;= ;B+ ,

%

*

4( <( + [ B 8

'2 & %

(+( +[; +B; 08=

! %

^ & U

! %

! ! %

%

%

C 1

'2 ' : , ;=

0^= ; 0& + 6 +U;P=/ EUE EPE =16

E

4(2 <( + U 1 B 8

'2 & %

% ! %

'2

! %

&

8 4

GH

<( (

<( + G H P P GP HP PP

(+( +U; =16 +B; 08=

+

("

! ! %

'2 ' = , ;=

0^= 0& +

; 6

& '2 & % 7 ! %

VP

% %

% %

7 ! 4!

% 5

0

01

(+( '2 ' ;G+ MMM ;H+ MMM =P= MMM GH MM! =GP= MM =HP=MM &PP MM

4 <( + H G HP GP P GH

4

'2 &

%

(+( '2 ' ;H+ MMM ;G+ MMM =HP=MM =GP= MM =P= MMM GH MM!

%

(+( '2 ' ;H+ MMM ;G+ MMM =HP=MM =GP= MM =P= MMM GH MM!

7 ! % 7 !

% %

% %

2

<( + H G HP GP P GH '<

85 @

'2 & 7 ! % 7 !

% %

% % %%

<(

+

> 2&; %

! -

/ !

% /

!

%

%

% !

-

%

9 !

% %%

9 <(

@

(+( 9 9 9

% %

1

'2 ' C C C

E E E

! %

/ !! !

!

42(

G G

<9 G H < G H 9> G

. + H <9 G H G H G

H H < G H 9> G

42

G G

!

%

+

<9 < 9>

!

!

. + <9 G H H < G H 9> G

01

H H

H H

422

4G 4G

88

<(

+ ( )

+ &'2 +,

. + <9 G H H5 < 4G H 5 9> 4 G

%

! 44(

%

<( + BB

<( + U 1 W

H5 H5

% %

!

'2 & %

(+(

(+( & & &

%% ! % %% ! % ! % %

% !

% %

!

% !

#

'2 '

'2 '

!

%

% !

W

01

! !

% W

!

%

5/

(;"

&

G %! !

4

%

%

5

A %%

!

'

A

+

A

!

! A

/

%

%

!

%1

!

1 %

2(( !

6

! %

% 5

% ! !

%% %%

46 %% %% K L4 ! % 6 $ %

5

4+

5

=/ %

% 4

% ! 5 < %

!

=

!

6 % L

K $ '&#< '9< '&#< '9< A !

64=5 6Q=S 6

=

6!

%

= %

K

L

$ '&#< '9< '&#< '9< A ! ( ) %%

64=/ 5 6Q=/ S 6

+*

=!

* +, '&#< '9<

% ! !

/

! ! % K

L

$ '&#< '9<

64:5/

+4;/ 5/

;Q?S

6

! !

2( ! 2

.! %

( )

* + ,/

!

Suharsono Kadwi, Diktat kuliah PASCAL 1, Malang: STIKI 1995, hal 85

1

01

!

%% -&. " & - & &'-(; ;( $ ! % = ! , ! ! ! 6

, " &'-(; ( % ! * 4*/6/+/;/ /=5

% / %

)

G

!

%% %

$ '&

646*5 66

'

%

6

% %

$ '&

64= 9 6*5 =

%

%

$ '&

64+/;5 6+

'

% ;!

%

% J % $ '&

64+ 9 ;5 ,

'

% +!

%

;

! ! % % $ '&

64=5

'

%

/

+4;/;5

%/

;46 9 ;5

%

2(2 !

%

%

!

0*

% 6 9 *

$ 2 > <

6 K

>> F Q6 6*S 9(

7

I

01

L

6*

9 *

6K L

$ 2 > < 6

•

!

>> FQ6 +/6 ;S 9( , +! ! ! ! %

A

I %

;

!

9

$ 2 > < 6 < + < ; ; •

*

6 K

L

*

6 K

L

>> F Q6 ;S 9( ' % I >> F Q6 ;/6 S 9( %I >> F Q= ?S 9( I %! !

!

4

!

A

5

6 *

6 K

L

9 * $ F # 6P

>> FQ6 6*S 9( '

2 > < 6/ < +/ < ; ;

5

I

6I %

(. ( & '&" & < 2

%

G

( •

6 !

!

DIMENSION a(5) a(1)=1 a(2)=4 a(3)=26 a(4)=6 a(5)=89

5$

01

!

=

%

•

4 '

7 F &#&9>F5

& % !

,

%

+

;

DIMENSION B(2,3) B(1,1)=45 B(2,2)=5

% !

%

!

(

4

%

%5

2 •

6 % Dim A(5) AS Integer A(0)=216 A(1)=26 A(2)=5 A(3)=29 A(4)=10 A(5)=2006

•

=

& ! ;

5/

01

%

,

+ !

Dim B(2,3) AS Integer B(1,1)=6 B(2,3)=77

O !

2

%

!

%/

! !

!

4*5 %

2 •

6 VAR

A : ARRAY[1..5] OF Integer; I : Integer;

Begin A[1]:=23; A[2]:=45; A[3]:=89; A[4]:=56; A[5]:=1; End. •

& VAR

B : ARRAY[1..2,1..3] OF Integer; I : Integer;

Begin B[1,2]:=48; B[2,3]:=563; End. O

! 4*5

!

5

%/

01

%

8/

'-& & !

%

% !

%

!

% -

!

%%

! %%

4!

! !

% ! ! ! % %

!

%%

% 5

! ! %

4 -

< 5 4

5

!

%

% 4%

5

Mulai

Bil = Integer

Input "Masukkan Bilangan : ",Bil

Bil MOD 2 = 0

False

Print "Bilangan Ganjil"

True Print "Bilangan Genap"

Selesai

! % !

!

A

' O 4 C

%1

!

% -

%

% % !

%

A 4 C (

! %

L

% ! !

! ! % ! % L 5

% ! % 5/

%

% ! %

!

E/

E

8// 4F

)('

%

%

!

!

%

/ & %

4

/ ! %5

%

*/

! + C

!

%

55

01

!

%

L

! ! E

% O

4((( (

#<

'(

$ @ 3,3 SAY “Masukkan Bilangan : “ GET Bil Pict “99” IF BIL % 2=0 THEN @ 5,35 SAY “Bilangan Genap” ENDIF 4(( (

#<

'(

$ INPUT “Masukkan Bilangan : “,BIL% IF BIL% MOD 2 = 0 THEN PRINT “Bilangan Genap” END IF 4((2 (

6 C

C (

! !

C

$ VAR Bil : Integer; BEGIN Write(‘Masukkan Bilangan : ‘); READLN(Bil); IF BIL MOD 2 = 0 THEN Write(‘Bilangan Genap’); {atau} IF BIL MOD 2 = 0 THEN Write(‘Bilangan Genap’); {atau} IF BIL MOD 2 = 0 THEN

58

01

BEGIN Write(‘Bilangan ’); Write(‘Genap’);

8/

4F %

END; END. )(' F " ( !

% %%

!

! %%

!

% !

%

-

4(

( (

>

#<

'(

$ @ 3,3 SAY “Masukkan Bilangan : “ Get Bil Defa 0 IF Bil % 2 = 0 THEN @ 5,35 SAY “Bilangan Genap” ELSE @ 5,35 SAY “Bilangan Ganjil” ENDIF 4( (

>

#< $ INPUT “Masukkan Bilangan : “,Bil% IF Bil% MOD 2 = 0 THEN Print “Bilangan Genap” ELSE Print “Bilangan Ganjil” END IF 4(

2 (

6

< >

50

01

' '

9&

V

'(

(

! !

<

' '

9&

V

>

C

$ VAR Bil : Integer; BEGIN Write(‘Masukkan Bilangan : ‘); READLN(Bil); IF BIL MOD 2 = 0 THEN Write(‘Bilangan Genap’) ELSE Write(‘Bilangan Ganjil’); {atau} IF BIL MOD 2 = 0 THEN Begin Write(‘Bilangan’); Write(‘Genap’); End ELSE BEGIN Write(‘Bilangan ’); Write(‘Ganjil’); END; END. 8/5 '( !

% %

% !

'(

'( 4 ! %

%

%!

%

% %

'(

5

!

! ! %

01

5

!

Mulai

NA = Integer NH = String * 2

Input "Masukkan Nilai Akhir : ",NA

True

(NA>=80 ) and (NA<=100)

NH="A"

False True

(NA>=70) and (NA<=79)

NH="B"

False

True

(NA>=60) and (NA<69)

NH="C"

False True

(NA>=50) and (NA<59)

NH="D"

False

NH="E"

Selesai

-

!

< 5 !

!

!

%

6*6

<

%

/ %%

,* %% =? % ! A !

!

4A %

/ =* %

!

%%

% %% 6**/

:* %

%

% 5

O

<

< /

% 0*

,?

%

/

%

% /

( %

'(

%

%

!

4

# % %

!

%

D &

8

#7 #

>

5#

%% 0? $/

4(2( -

!

(

01

'(

D

#< '(

#7 # '( 46 !

5

>

#< '(

'(

#7 #

!

$

@ 3,3 SAY “Masukkan Nilai Akhir : “ Get NA Defa 0 READ IF NA<50 THEN NH=”E” @ 5,5 SAY “Gradenya : “+ NH ELSE IF NA<60 THEN NH=”D” @ 5,5 SAY “Gradenya : “+ NH ELSE IF NA<70 THEN NH=”C” @ 5,5 SAY “Gradenya : “+ NH ELSE IF NA < 80 THEN NH=”B” @ 5,5 SAY “Gradenya : “+ NH ELSE NH=”A” @ 5,5 SAY “Gradenya : “+ NH ENDIF -

'(

%

% A

8

%

%

! %

%%% ('22 '

'

-& &.< ' < -

(

)W

&

"(

$

@ 3,3 SAY “Masukkan Nilai Akhir : “ Get NA Defa 0 READ NH=IIF(NA<50,NH=”E”, IIF(NA<60,NH=”D”, IIF(NA<70,NH=”C”, IIF(NA<80,NH=”B”,”A”))))

51

01

@ 5,5 SAY “Grade

: “ + NH

4(2 (

>

#7 #

#<

'( '

'(

'

#7 # '( 46 !

5

>

#<

'(

'(

#7 #

!

$

Dim NA as Integer Dim NH as String * 2 INPUT “Masukkan Nilai Akhir : “,NA IF NA<50 THEN NH=”E” ELSEIF NA<60 THEN NH=”D” ELSEIF NA<70 THEN NH=”C” ELSEIF NA < 80 THEN NH=”B” ELSE NH=”A” END IF 4(22 ! %% 8/8

-

'(

0 */ ! !

''(

/

!

( %%

$

#

'( !

!

$

57

01

#

%

/ %

! % %

!

! %

%% !

A %%

! !

% A

!

%

4(4( ( ! ! P @

%%

#7 #

$ @ 3,3 SAY “Nilai Akhir : “ GET bil DEFA 0 PICT “999” READ DO CASE CASE bil < 50 Grade=”E” CASE bil < 60 Grade=”D” CASE bil < 70 Grade=”C” CASE bil < 80 Grade=”B” OTHERWISE Grade=”A” ENDCASE @ 5,5 SAY “Grade : “ + grade

4(4 ( > ! ! > > $

Dim NA as Integer Dim NH as String * 2 INPUT “Masukkan Nilai Akhir : “,NA SELECT CASE NA CASE IS<50 Grade=”E” CASE 50 TO 59

8$

01

Grade=”D” CASE 60 TO 79 Grade=”C” CASE 80 TO 89 Grade=”B” CASE ELSE Grade=”A” END SELECT PRINT “Gradenya : “,grade 4(42 ( * *

JC

C > C $

VAR NA : Integer; Grade : String; BEGIN Write(‘Masukkan Nilai Akhir : ‘);Readln(NA); CASE NA OF 0..49 : grade :=’E’; 50..59 : grade :=’D’; 60..69 : grade :=’C’; 70..79 : grade :=’B’; ELSE grade:=’A’; END; END. 8 8

( " '2 ' / 4 (( ( P'&" & , "J P'&" & ;)& J P + +(.(' H &' + ; & J

$

%

%

FOR x=1 TO 10 ? x ENDFOR

8/

01

!

P&'! (.('+J

6

6+;

= , 0 : ? 6*

$

%

%

!

+8

! !

FOR x=1 TO 10 STEP 2 ? x ENDFOR 6;=0?

4

( ( P'&" & , "J P'&" & ;)& J P + +(.(' H &' + ; & J

$

%

P&'! (.('+J

%

!

6

%

!

+8

FOR x=1 TO 10 PRINT x NEXT 6+;

= , 0 : ? 6*

$

%

! !

FOR x=1 TO 10 STEP 2 ? x NEXT 6;=0?

4

(2 ( P'&" &

, "J

P'&" &

P + +(.(' H &' + C $

%

;)& J

; &J

%

!

6

%

!

+8

FOR x=1 TO 10 DO WRITE(x:3); NEXT 6+; $

= , 0 : ? 6* %

FOR x=1 TO 10 DO BEGIN

8

01

! !

WRITE(x:3); x:=x+1; NEXT P

! %

+! /6

6

! 4) P)U65

!

6;=0?

8 4

@)&"( ( ( @ > P; '-& &J P + +(.('+ H&' + ; &J >

799

% 9 " '7# 4! % 9 " '7#5 #T' % 4'(

#<5

%

!

$ SET TALK OFF I=1 DO WHILE I<= 10 ? I I=I+1 ENDDO

4 > P; '-& &J P + +(.('+H&' +

; &J

@ $ I=1 WHILE I<= 10 PRINT I I=I+1 WEND

4

2 ( @

>

P; '-& &J

P + +(.('+H&' +

85

; &J

01

! !

%%

( @

% %

%

C $ Var I : integer; BEGIN I:=1; WHILE I<=10 DO BEGIN WRITE(I); I:=I+1; END; END.

8

5 >
(<( + ! %

4

% %%

( ) 799

+, ># #

-

2 ( D@ > H >E P; '-& &J P + +(.('+H&' + ; &J > %

>

!

P + +(.('+ H&' + ; &J D@ > H >E P; '-& &J %

$ I=1 DO WHILE I<=10 PRINT I I=I+1 LOOP

I=1 DO UNTIL I=11 PRINT I I=I+1 LOOP

P66

I=1 DO PRINT I I=I+1

88

01

!

%

LOOP WHILE I<=10

I=1 DO PRINT I I=I+1 LOOP UNTIL I=11

4

22 ( ># # G @< '7 G

H H

$ Var I : integer ; Begin I:=1; REPEAT WRITE(I); I:=I+1; UNTIL I>10 End.

80

01

%%

-

!

!

!

!

%

% % ! ! %

%

!

%

4

%

! !

4 !

! -

! !

%

%

- % %

%

! % % % % ! ! ! / %% ! ! / %%

%

%

! %

% (

!(%

! % !

%

4 '!+& ' % ! 0* % ! < (

%8

!

% %/

/

!

/ !

%

% % ! %

!

5/ %

%

! 5

! !

%

%

%

%

%

0/ 5((

(;"

&

!(-

(

!

% !

>9$# @># G H/ ( ) >9$# @># % ! % %

%

/ (9T >9 %

% %

!

% !

9 G % ! !

-

%

% % !

% H

4B >L5

%

(

9

"

#

G"

H

> $

Set Talk Off Clear Set Color To Do ucap Procedure ucap ? “Selamat Pagi” Return

5( % ! !% "# 5 ! %

% % %

% ! %

&

% %

1 !

%

%%

8

01

1 ! % % !

4& , 9 ! 8 % % % % %

%%

% ! !

'

! !

! %

%

%

%

%

( #$7 >#

@

%

@

#< @

' @ #<

%

@

& 6,

%!

%&

, ,

)%&%

DECLARE SUB CETAKGARIS () CLS LOCATE 2, 5: PRINT "CETAK CETAK" & %% LOCATE 4, 5: CETAKGARIS LOCATE 6, 5: PRINT "HALO CETAK-CETAK" LOCATE 8, 5: CETAKGARIS END SUB CETAKGARIS FOR I = 1 TO 50 PRINT "-"; NEXT END SUB

5(2 ( % @ 2

I

! !

! I

2

!

L !

4 %

%

I 2

I

2

!

7

4 %

5

' @

%

%

I %

%

$

Program Contoh_Prosedur;

8#

01

@

5

Uses crt; Var I : integer; Procedure Sapa; Begin Writeln(‘Hai, Selamat Datang’); end; Begin For I := 1 to 4 do Sapa; & %% readln; end.

0

(;" 5 G

&

'!+& '

( (@<$ '9< % H/ %% / ! < ! %% -

%

(9T >9 %

!

%

%% ! ># @>< G %

! % !

%

%

(@<$ '9< %

/ !

8

%

!

(@<$ '9< ! H &

%

4!

! %

%

%

-

%8 %!

5

(

=/= =/,

(

C C

CU " # C U $%&' "

G"

#

!

%

-

(

!

H )

>

*+ * T

A

!

%

!

$

Set Talk Off Clear Set Color To @ 5,5 Say “Hasilnya : “ + STR(Tambah(7,5)) Function Tambah Parameter Angka1,Angka2 X=Angka1+Angka2 Return X

5 (

!

%

-

-

(

( #$7 ># (@<$ '9<

%

81

01

@

%

#< (

' ( @ #<

%

@

$ DECLARE FUNCTION tambah (a AS INTEGER, b AS INTEGER) CLS DIM a AS INTEGER, b AS INTEGER LOCATE 2, 4: INPUT "nilai dari a ", a LOCATE 4, 4: INPUT "nilai dari b ", b LOCATE 6, 4: PRINT "nilai dari a ditambah b "; tambah (a, b) FUNCTION tambah (a AS INTEGER, b AS INTEGER) tambah = a + b END FUNCTION

5

2 ( %

I

!

@ 2

!

! I

( 2

2

!

L !

4 %

%

5

I I

2

!

%

7

4 %

-

' ( @

%

I %

%

@

$ Program Fungsi1; Uses crt; Var v,t:real; Function Luas(l,p:real):real; Begin Luas:=l*p; < End;

&

%% 7

Begin Clrscr; Write(‘masukan luas:’);readln(l); Write(‘masukan panjang:’);readln(p); Write(‘masukan tinggi:’);readln(t);

87

01

5

(

Write(‘Luas:’,luas(l,p):5:3); V:=(luas(l,p))*t; Writeln(‘Volume :’,5:3); Readln;

&

%% (

End.

05

(;"

8 (@<$ '9< ( 8(

& % %%

.(+( 8A ! #> GA 6/A %

> &

% +/

>9$# @># H %%

!

52( ( " D

4

/ /

5

> (

> $ Set Talk Off Clear Set Color To Do Jumlah With 9,3 ? Tambah(7,5) Procedure Jumlah Parameter Angka1,Angka2 ? Angka1+Angka2 Return Function Tambah Parameter Angka1,Angka2 X=Angka1+Angka2 Return X

52 & 6,

%!

% !% #

,

)%&%

DECLARE SUB CETAKGARIS (panjang AS INTEGER) CLS LOCATE 2, 5: PRINT "CETAK CETAK" LOCATE 4, 5: CETAKGARIS (20) LOCATE 6, 5: PRINT "HALO CETAK-CETAK" LOCATE 8, 5: CETAKGARIS (40) END

0$

01

-

SUB CETAKGARIS (panjang AS INTEGER) FOR I = 1 TO panjang PRINT "-"; NEXT END SUB

522 $ 8( % %% procedure WrStr(X, Y: integer; S: string); var SaveX, SaveY: Integer; begin SaveX := WhereX; SaveY := WhereY; GotoXY(X, Y); Write(S); GotoXY(SaveX, SaveY); end; function UpCaseStr(S: string): string; var I: Integer; begin for I := 1 to Length(S) do if (S[I] >= 'a') and (S[I] <= 'z') then Dec(S[I], 32); UpCaseStr := S; end;

08 54(

(;"

&

!

%!

%

!

G

(

H

!

%

#

6>9$# @># 9

%

$& )

:

"&

Set talk off Set status off Set procedure to unit.prg

:

Procedure jumlah ? “Hai” Return Function tambah Parameter a,b X=a+b Return X

? tambah (7,5)

54 ! %

.! ! %

!

-

9 9&

' 8

! 8(

8

%

%% @

0/

01

!

-

%

(+

542 ! !

!

0*

%

)

! %

%%

%% -

!

(? )

!

! 0*

!

) % %% 0* % 1 ' . X '&+ +<

) I J

'&+ &'+( 4 !( * J@ J$ J A J2

%K

%

8-

/A

!

%

K K K !

K H4

-

,

'

(

,

(

-

&.<"(.('+ +& ' * % #

I H4

,

(

2 % #

I

! %

%%

'

,

(

!

$& )

1

Program coba; Uses crt, aku;

$

Unit aku; Interface : Procedure a; Procedure b;

Begin a; End.

Implementation : Procedure a; Begin Write(“Hai”); end; Procedure b; Begin Write(“halo”); End;

0

01

% ! !

! !

!" #

%

6

%!

!" #

!

%

%

O

! 9

% %

% /

% ! *

!

% ;

% !

%

% /

%

), %&%

( 6

!

+

<

A

;

&

=

&

%

,

&

% )

0

' A

'

(+(

-

A

%

%

6*

<

66

(

C

%% ` !

E

)

(

%

%

% %

"

60

2

%

%

6;

6,

!

!

)

7

%

! A

-

6+ ' A

%

(

!

6=

!

!

% _

6

% )

-@

!

%

: ?

8

%

-

'2 '

-

%

A

/

%

/

)

%

%

-

%

% %

!

C

E

A

%

-

2

!

% %

% %

8

( 6 +

'- " #)

#

'

(+(

'-

!

%

# '-

'2 '

'-

%%

#)

;

"

7

7

% A

!

%

& =

(

< )

< )

!

%

(

@ 8(@$ '9< ,

-

!8(

0

-

#

:

'

?

&

6*

"

66

9

%

(

$

%%

! " -

05

01

-(

(

6

9

-

+

'

-

;

@

'

(+( &

)

%

2 !

2

% %

=

!

A

!

!

) #

0

#

8 %

:

%

6*

@

66

7

)

)

--

&

!

#9( 4#

%

6+

-

) ( 4!

-

% %

F #A !

!

' A

6=

(

! 6

%

(

%

!

4!

%%

+

-

6,

5

5 (

6

-(

%

6;

60

%

-

,

'2 '

5 %

' A

A

6:

-

6?

@

-

-

+*

2

!

+6

#

-

++

) %

+;

4 ! 5

!

+

(

+=

' A

-

! %

!

%

%

+,

!

+0

' A

+:

7

+?

9

;*

'

;6

$

;+

'

!

%

!

!

!

!

) )

&

!

$9<

)

;;

7 !

)

-

) #<

;,

#L'< )

#L'< #L'<

;0

#<

;:

'

;?

9

*

) %

#< )

)

)

)

)

6

9

+

#

%

%

!

%

' A

8 !

) %

;=

% A

% !

!

;

!

%

) 8

)

8

08

01

4

5

;

'

%

%

(

-

=

9!

,

@

0

' A

:

$

)

-

%

-

) !

?

-

%

%

%

% &

=*

%%

=6

' A

=+

' A

@ 7'$

-

#T ><

-

#T ><

=

9( )

==

'< #>( $# )

=,

' A

=0

&

!

9

=?

@

,6

' A

,+

A

,;

' A

,

$

& %% & %% 9"< 9

! A

A

!

%A

,0

% )

'( (9>

! % %

!

%

!

%

% ! % *5

#< % 9

%% 4

-

)

!

)

A

!

A

!

%8 %

%8

)

,:

$

,?

@

0*

@

06

'

0+

@

0;

'& 7#&#<

0

$

0=

>

0,

$

00

(

A

-

0?

'

%

:*

7 !

:6

7 !

:+

@

:;

' A

:

@<'

:=

aIa )

&

!

:,

a a )

&

!

&

@

8

%

A A -

-

'9< )

'& 7#&#< $9<

!

A -

!

0:

?*

% 9(

-

,,

:?

#

-

! _

,=

::

$

-

9"< 9 ) -

%% '< #>( $#

#< )

=:

%

9

=;

:0

" '7#

9 )

!

'9< F #

)

%

)

)

) )

) !

-

!

%

% )

@<'

a/a ) a4a ) a5a ) aPa )

00

01

I

!

!

/

!

&

!

4

!

&

!

5

!

&

!

P

!

!

?6

a Pa )

&

!

?+

aQa

a4 a )

&

!

Q

?;

aSa

a 5a )

&

!

S

?

aa )

&

!

?=

a a )

&

!

2

!

?,

A

?0

' A

?:

'

??

(

(9> %

6** 6*6

! A

A

%

!

!

P

&

!

5

!

! ! %

!

%%

)

(9>

!

%

A %

' A

! 4

!

8

!

'

%

%

% --

6*+

%

6*;

'

6*

9

6*=

'<7'<#

6*,

$

)

%

A A

!

!

)

)

)

)

6*0 6*:

9A

6*?

<

(9>/ " '7#

66*

% (9>/ " '7# ! %

66+

$

66;

#

66

$

66,

&

660 66:

-

!

#

A

-

!

-

%

%

$

#

8

'

-

4

-

< ' A

Y

-

6++

' A

A

!

! -

6+;

!

6+

% (

! A

6+0

!

6+:

&

6+?

#< '(

6;*

#

A A

%

%% -

6;6

A

6;;

$

6;

#)

6;=

' A

6;,

' A

A A

$

6;?

$

6 *

' A

6 6

$

!

A ! -

% A

6 +

A ' A

-

)

-

6;0 6;:

%

:*:0

%

6+6

6 ;

># #

8

66?

6+,

># #

-

!

) -

0

01

#< '(

%

5

6

$

A

6 = 6 ,

! (

(

6 0

9!

6 :

7

)

6 ?

2'> @ 7 )

6=*

&

6=6

2

6=+

$

! -

) -

6=;

)

-

6=

(

6==

' A

6=,

&

6=0

$

6=:

' A

6=?

+:,8+:0

6,*

' A

6,6

$

6,+

)

!

-

-

) !

%

! !

!

-

% & )

6,;

)

6,

-

6,=

A

6,, 6,0

60*

)

)

$

)

6,: 6,?

!

!

-

)

! )

#)

!

-

% %

0#

01

%

%

%

!