p

r

o

g

r

a

m

e

n

s

h

u

1

1

a

a

f

i

m

p

l

i

c

i

t

n

o

n

e

r

e

a

l

:

:

x

,

y

,

y

a

,

y

b

r

e

a

l

:

:

a

,

b

,

v

e

r

y

s

m

a

l

l

i

n

t

e

g

e

r

:

:

n

a

=

1

.

0

b

=

1

0

.

0

v

e

r

y

s

m

a

l

l

=

1

.

0

e

-

2

y

a

=

m

y

_

k

a

n

s

u

u

(

a

)

y

b

=

m

y

_

k

a

n

s

u

u

(

b

)

i

f

(

y

a

*

y

b

>

0

.

0

)

s

t

o

p

d

o

n

=

1

,

9

9

x

=

0

.

5

*

(

a

+

b

)

y

=

m

y

_

k

a

n

s

u

u

(

x

)

w

r

i

t

e

(

*

,

*

)

n

,

x

,

a

b

s

(

x

-

s

q

r

t

(

2

.

0

)

)

,

a

,

b

,

y

i

f

(

b

-

a

<

v

e

r

y

s

m

a

l

l

)

e

x

i

t

i

f

(

y

*

y

a

>

0

.

0

)

t

h

e

n

a

=

x

y

a

=

y

e

l

s

e

b

=

x

y

b

=

y

e

n

d

i

f

e

n

d

d

o

w

r

i

t

e

(

*

,

*

)

n

,

x

,

a

b

s

(

x

-

s

q

r

t

(

2

.

0

)

)

c

o

n

t

a

i

n

s

f

u

n

c

t

i

o

n

m

y

_

k

a

n

s

u

u

(

z

)

r

e

a

l

,

i

n

t

e

n

t

(

i

n

)

:

:

z

r

e

a

l

:

:

m

y

_

k

a

n

s

u

u

m

y

_

k

a

n

s

u

u

=

z

*

*

2

-

2

.

0

e

n

d

f

u

n

c

t

i

o

n

m

y

_

k

a

n

s

u

u

e

n

d

p

r

o

g

r

a

m

e

n

s

h

u

1

1

a

a

f