MathCad w2 -programowanie 1

13. Paleta programowa w systemie MATHCAD

Paleta programowa ulatwia definiowanie bardziej zlozonych algorytmów. Wszystkie dostepne instrukcje nalezy
wybierac tylko z paska Programing.

Dost

ę

pne operacje na palecie Programming słu

żą

do konstruowania programów i oznaczaj

ą

:

Add Line

- wstawienie kolejnej linii dla instrukcji programowych
Pierwsze u

ż

ycie Add Line definiuje podprogram - kolejne zastosowanie zwi

ę

ksza

liczb

ę

linii. Ostatnie miejsce zarezerwowane - powinno zawiera

ć

warto

ść

zwracan

ą

przez podprogram.

←

- instrukcja przypisania

if

- instrukcja warunkowa ma posta

ć

: wyra

ż

enie

if

warunek i umo

ż

liwia obliczenie

warto

ś

ci wyra

ż

enia tylko wtedy, gdy spełniony zostanie zadeklarowany warunek

otherwise

- instrukcja stosowana wspólnie z instrukcj

ą

if oznaczaj

ą

ca "w pozostałych

przypadkach"

∈

for

- instrukcja p

ę

tli "dla" umo

ż

liwia wielokrotne obliczenie sekwencji wyra

ż

e

ń

while

- instrukcja iteracyjna "dopóki" umo

ż

liwiaj

ą

ca okre

ś

lenie warunku zako

ń

czenia p

ę

tli

break

- instrukcja powoduj

ą

ca przerwanie wykonywania p

ę

tli

continue

- instrukcja inicjuj

ą

ca rozpocz

ę

cie wykonania kolejnego obrotu p

ę

tli

return

- instrukcja wyj

ś

cia z podprogramu, w przypadku funkcji w "znaku braku",

wpisuje si

ę

wynik funkcji

Przykład 1 Wyznaczy

ć

pole trójk

ą

ta o bokach a, b, c.

pole a b

,

c

,

(

)

"Zle boki"

return

a

b

c

+

>

b

a

c

+

>

∨

c

a

b

+

>

∨

if

p

a

b

+

c

+

←

p p

a

−

(

)

⋅

p

b

−

(

)

⋅

p

c

−

(

)

⋅

return

otherwise

:=

Przykład 2 Wznaczy

ć

x!

silnia x

( )

1

x

1

≤

if

x silnia x

1

−

(

)

⋅

otherwise

:=

silnia 3

( )

6

=

MathCad w2 -programowanie 2

Przykład 3 Wyznaczy

ć

sum

ę

elementów wektora B.

Wyznaczy

ć

sum

ę

elementów dowolnego wektora.

ORIGIN

1

≡

C

1

2.25

3

1.88

−

2





























:=

B

1.1

2

3.5

2

1.7

8.3

9

3

−

















































:=

suma w

( )

s

0

←

s

s

w

i

+

←

i

1 length w

( )

..

∈

for

s

return

:=

suma_B

s

0

←

s

s

B

i

+

←

i

1 length B

( )

..

∈

for

:=

suma_B

24.6

=

1

length B

( )

i

B

i

∑

=

24.6

=

suma B

( )

24.6

=

1

length C

( )

i

C

i

∑

=

6.37

=

suma C

( )

6.37

=

Przykład 5 Wyznaczy

ć

sum

ę

dodatnich elementów wektora

suma_dod x

( )

s

0

←

s

s

x

i

+

←

x

i

0

>

if

i

1 length x

( )

..

∈

for

s

return

:=

suma_dod B

( )

27.6

=

ss

suma_dod C

( )

:=

ss

8.25

=

MathCad w2 -programowanie 3

Przykład 4
Wyznaczy

ć

warto

ść

odsetek dla lokaty PV po upływie ka

ż

dego kolejnego miesi

ą

ca.

Oprocentowanie w skali miesi

ą

ca wynosi r. Obliczenia przeprowadzi

ć

dla jednego

roku. Wykona

ć

dwa warianty symulacji:

odsetki nie s

ą

kapitalizowane

••••

odsetki kapitalizowane s

ą

co miesi

ą

c

••••

Wyniki obliczen przechowa

ć

w tablicach

Odsp PV r

,

n

,

(

)

PV r

⋅

n

⋅

:=

Odss PV r

,

n

,

(

)

PV

1

r

+

(

)

n

1

−





⋅

:=

procent_prosty PV r

,

n

,

(

)

Ods

i

PV r

⋅

i

⋅

←

i

1 n

..

∈

for

Ods

:=

PP

procent_prosty 1000 1%

,

12

,

(

)

:=

słowo return mo

ż

na pomin

ąć

procent_prosty 1000 1%

,

12

,

(

)

1

1

2

3

4

5

6

7

8

9

10

11

12

10

20

30

40

50

60

70

80

90

100

110

120

=

PP

1

1

2

3

4

5

6

7

8

9

10

11

12

10

20

30

40

50

60

70

80

90

100

110

120

=

procent_skladany PV r

,

n

,

(

)

Ods

i

PV

1

r

+

(

)

n

1

−





⋅

←

i

1 n

..

∈

for

Ods

return

:=

procent_skladany 1000 1%

,

12

,

(

)

1

1

2

3

4

5

6

7

8

9

10

11

12

126.825

126.825

126.825

126.825

126.825

126.825

126.825

126.825

126.825

126.825

126.825

126.825

=

MathCad w2 -programowanie 4

Przykład 5: Dane s

ą

obroty (w tys. zł) n sklepów firmy „AAA”. Policzy

ć

:

liczbe sklepów, w których obroty sa wieksze od

ś

redniej

••••

ró

ż

nic

ę

mi

ę

dzy maksymaln

ą

warto

ść

obrotów a minimaln

ą

warto

ść

i

ą

obrotów

••••

wieksze_sr obr

(

)

sr

suma obr

(

)

length obr

(

)

←

k

0

←

k

k

1

+

←

obr

i

sr

>

if

i

1 length obr

(

)

..

∈

for

k

return

:=

obr

READPRN "obroty.txt"

(

)

:=

mean obr

(

)

64.493

=

obr

1

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

88

120

41

10.3

10.1

12.4

82

39

77

65

78

56

97

52

83

70

=

wieksze_sr obr

(

)

17

=

roznica obr

(

)

max

obr

1

←

min

obr

1

←

max

obr

i

←

obr

i

max

>

if

min

obr

i

←

obr

i

min

<

if

i

2 length obr

(

)

..

∈

for

max

min

−

:=

roznica obr

(

)

109.9

=