P o d s t a w y P r o g r a m o w a n i a
W y k a d t r z e c i :
I n s t r u k c j e w a r u n k o w e i i t e r a c y j n e .
1 . I n s t r u k c j a w a r u n k o w a
J e [l i w p r o g r a m i e w y k o n a n i e o k r e [l o n y c h i n s t r u k c j i j e s t z a l e |n e o d p e w n y c h
w a r u n k w t o m o |e m y s k o r z y s t a z j e d n e j z d w c h i s t n i e j c y c h w P a s c a l u
k o n s t r u k c j i j z y k o w y c h . P i e r w s z z n i c h j e s t i n s t r u k c j a w a r u n k o w a . O t o j e j
s c h e m a t o g l n y :
i f w a r u n e k t h e n i n s t r u k c j a 1 e l s e i n s t r u k c j a 2 ;
T e n z a p i s m o |e m y p r z e c z y t a j a k o : j e [l i w a r u n e k j e s t p r a w d z i w y , t o w y k o n a j
i n s t r u k c j a 1 , w p r z e c i w n y m p r z y p a d k u w y k o n a j i n s t r u k c j a 2 . W a r u n e k m o |e b y
z m i e n n t y p u b o o l e a n l u b w y r a |e n i e m , k t r e g o w a r t o [ m a t a k i w a [n i e t y p . Z a
p o m o c s c h e m a t u b l o k o w e g o m o |n a p r z e d s t a w i d z i a a n i e i n s t r u k c j i w a r u n -
k o w e j n a s t p u j c o :
S t a r t
C z y w a r u n e k N I E
p r a w d z i w y ?
T A K
i n s t r u k c j a 1
i n s t r u k c j a 2
S t o p
M o |l i w e j e s t t e | p o m i n i c i e c z o n u e l s e t e j i n s t r u k c j i , w w c z a s m a o n a p o s t a :
i f w a r u n e k t h e n i n s t r u k c j a ;
2
a j e j d z i a a n i e m o |n a o p i s a n a s t p u j c y m s c h e m a t e m b l o k o w y m :
S t a r t
C z y w a r u n e k N I E
p r a w d z i w y ?
T A K
i n s t r u k c j a
S t o p
Z a m i a s t z o |o n y c h i n s t r u k c j i w a r u n k o w y c h , n p . :
i f y < 0 t h e n i f z > 0 t h e n i f x < > 0 t h e n a : = ( y + 2 ) / x e l s e e l s e e l s e a : = 1 ;
m o |n a s t o s o w a p r o s t s z y z a p i s c z c w a r u n k i z a p o m o c o d p o w i e d n i c h o p e r a -
t o r w :
i f ( y < 0 ) a n d ( z > 0 ) a n d ( x < > 0 ) t h e n a : = ( y + 2 ) / x ;
i f y > = 0 t h e n a : = 1 ;
3 . I n s t r u k c j a w i e l o k r o t n e g o w y b o r u
J e [l i w p r o g r a m i e i s t n i e j e k i l k a g r u p i n s t r u k c j i , k t r y c h w y k o n a n i e z a l e |y o d
k i l k u w a r t o [c i j e d n e j z m i e n n e j l u b j e d n e g o w y r a |e n i a , t o m o |e m y u |y
i n s t r u k c j i w i e l o k r o t n e g o w y b o r u , z a m i a s t s t o s o w a i n s t r u k c j i f . T a i n s t r u k c j a
m a n a s t p u j c p o s t a o g l n :
3
c a s e s e l e k t o r o f
w a r t o [_ 1 : i n s t r u k c j a _ 1 ;
w a r t o [_ 2 : i n s t r u k c j a _ 2 ;
w a r t o [_ 3 : i n s t r u k c j a _ 3 ;
.
.
.
w a r t o [_ n : i n s t r u k c j a _ n ;
e l s e i n s t r u k c j a ;
e n d ;
W a r t o [c i w t y m w y r a |e n i u m u s z m i e [c i s i t y p i e s e l e k t o r a . Z a m i a s t
p o j e d y n c z e j w a r t o [c i m o |e m y p r z y k a |d y m p r z y p a d k u u m i e [c i i c h g r u p ,
r o z d z i e l a j c j e p r z e c i n k a m i l u b p o d a i c h z a k r e s , n p . : 0 . . 5 . C z o n e l s e m o |n a
p o m i n . S e l e k t o r j e s t z m i e n n t y p u p o r z d k o w e g o l u b w y r a |e n i e m m a j c y m
w a r t o [ t e g o t y p u . O t o s c h e m a t b l o k o w y d l a t e j i n s t r u k c j i :
S t a r t
C z y T A K
s e l e k t o r = w a r t o [_ 1
?
i n s t r u k c j a _ 1
N I E
C z y T A K
s e l e k t o r = w a r t o [_ 2
?
i n s t r u k c j a _ 2
N I E
i n s t r u k c j a
S t o p
4
4 . I n s t r u k c j e i t e r a c y j n e ( p t l e )
J e [l i z a c h o d z i k o n i e c z n o [ k i l k u k r o t n e g o w y k o n a n i a i n s t r u k c j i , t o w j z y k u
P a s c a l m o |e m y u c z y n i t o z a p o m o c t r z e c h d o s t p n y c h i n s t r u k c j i i t e r a c y j n y c h
( p t l i ) . P i e r w s z a z n i c h , p t l a f o r , w y s t p u j e w d w c h p o s t a c i a c h i p o z w a l a
p o w t r z y i n s t r u k c j u s t a l o n l i c z b r a z y . O t o s c h e m a t y d l a o b u p o s t a c i t e j
i n s t r u k c j i :
f o r l i c z n i k : = w p t o w k d o i n s t r u k c j a ;
f o r l i c z n i k : = w p d o w n t o w k d o i n s t r u k c j a ;
Z m i e n n a l i c z n i k n a z y w a n a j e s t l i c z n i k i e m l u b z m i e n n s t e r u j c p t l i . M u s i
o n a b y t y p u p o r z d k o w e g o . W p r z y p a d k u p i e r w s z e j p o s t a c i p t l i w a r t o [ p o -
c z t k o w a ( w p ) p o w i n n a b y m n i e j s z a l u b r w n a w a r t o [c i k o Dc o w e j ( w k ) .
W p r z y p a d k u d r u g i e j p o s t a c i p o w i n n a b y w i k s z a l u b r w n a . O t o s c h e m a t
b l o k o w y d l a p i e r w s z e j p o s t a c i p t l i f o r :
S t a r t
C z y
w p < = w k ? T A K
l i c z n i k : = w p
N I E
i n s t r u k c j a
T A K l i c z n i k = w k ?
N I E
l i c z n i k : = l i c z n i k + 1 i n s t r u k c j a
S t o p
P r z y k a |d y m p o w t r z e n i u p t l i f o r j e j l i c z n i k j e s t a u t o m a t y c z n i e z w i k s z a n y
( n a d a w a n a m u j e s t w a r t o [ n a s t p n a w t y p i e ) l u b z m n i e j s z a n y . D z i a a n i e
i n s t r u k c j i f o r k o Dc z y s i k i e d y l i c z n i k o s i g n i e w a r t o [ w k . J e [l i l i c z b a
p o w t r z e D p t l i b d z i e z a l e |n a o d s p e n i e n i a o k r e [l o n e g o w a r u n k u , t o n a l e |y
z a s t o s o w a p t l w h i l e l u b r e p e a t . O t o o g l n e p o s t a c i e t y c h p t l i :
5
w h i l e w a r u n e k d o i n s t r u k c j a ;
r e p e a t i n s t r u k c j a u n t i l w a r u n e k ;
Z a p i s p t l i w h i l e m o |e m y o d c z y t a n a s t p u j c o : d o p k i s p e n i o n y j e s t w a r u n e k
w y k o n u j i n s t r u k c j , n a t o m i a s t p t l r e p e a t n a s t p u j c o : p o w t a r z a j i n s t r u k c j ,
d o p k i w a r u n e k n i e j e s t s p e n i o n y . O t o s c h e m a t y b l o k o w e d l a o b u i n s t r u k c j i :
S t a r t
i n s t r u k c j a
w a r u n e k ? T A K
N I E
S t o p
S t a r t
i n s t r u k c j a
N I E
w a r u n e k ?
T A K
S t o p
W a r u n e k w p r z y p a d k u o b u r o d z a j w p t l i m u s i s p e n i a t a k i e s a m e w y -
m a g a n i a , j a k w p r z y p a d k u i n s t r u k c j i w a r u n k o w e j . W e w n t r z p t l i m u s i m y
u m i e [c i i n s t r u k c j , k t r e z a g w a r a n t u j , |e w a r u n e k d l a p t l i w h i l e p r z e s t a n i e
k i e d y [ b y p r a w d z i w y , a d l a p t l i r e p e a t s t a n i e s i k i e d y [ p r a w d z i w y . W s z y s t k i e
p t l e m o |n a z a g n i e |d |a , t z n . w e w n t r z p t l i u m i e s z c z a i n n p t l , n i e -
k o n i e c z n i e t e g o s a m e g o t y p u .
6
4 . I n s t r u k c j e c o n t i n u e i b r e a k
I n s t r u k c j i c o n t i n u e i b r e a k w j z y k u P a s c a l u |y w a m y w y c z n i e w p o c z e n i u
z i n s t r u k c j a m i i t e r a c y j n y m i . U m i e s z c z a m y j e w e w n t r z p t l i , a l e n i e w y s t p u j
w n i c h s a m o d z i e l n i e s c z [c i i n s t r u k c j i w a r u n k o w y c h . J e [l i w a r u n e k j e s t
s p e n i o n y , t o i n s t r u k c j a b r e a k p r z e r y w a w y k o n a n i e p t l i , n a t o m i a s t i n s t r u k c j a
c o n t i n u e p r z e r y w a w y k o n a n i e b i e |c e j i t e r a c j i ( p o w t r z e n i a ) p t l i i p r z e c h o d z i
d o n a s t p n e j .
5 . I n s t r u k c j e s t r u k t u r a l n e ( z o |o n e )
J e [l i c h c e m y z g r u p o w a k i l k a i n s t r u k c j i , t a k a b y b y y o n e t r a k t o w a n e j a k o j e d -
n a , t o m u s i m y w t y m c e l u u |y n a w i a s w s y n t a k t y c z n y c h b e g i n i e n d . I n s t r u k -
c j e , k t r e m a j b y z g r u p o w a n e r a z e m u m i e s z c z a m y m i d z y t y m i s o w a m i
k l u c z o w y m i . T a k k o n s t r u k c j n a z y w a m y i n s t r u k c j s t r u k t u r a l n l u b z o |o n .
W p r z y p a d k u i n s t r u k c j i w a r u n k o w y c h i w i e l o k r o t n e g o w y b o r u m o |e o n a n a m
p o s u |y d o o b j c i a w a r u n k a m i w i k s z e j l i c z b y p o j e d y n c z y c h i n s t r u k c j i .
W p r z y p a d k u p t l i f o r i w h i l e u m o |l i w i a w i e l o k r o t n e w y k o n a n i e g r u p y
i n s t r u k c j i . P t l a r e p e a t n i e w y m a g a s t o s o w a n i a i n s t r u k c j i s t r u k t u r a l n e j .
U w a g a : p o o s t a t n i e j i n s t r u k c j i z n a j d u j c e j s i m i d z y b e g i n i e n d n i e j e s t
w y m a g a n e u m i e s z c z a n i e [r e d n i k a , a l e d o b r y m z w y c z a j e m j e s t n i e s t o s o w a n i e
s i d o t e j z a s a d y . P o s o w i e e n d w w i k s z o [c i p r z y p a d k w u m i e s z c z a m y
[r e d n i k . W y j t k i e m o d t e j r e g u y j e s t b l o k g w n y p r o g r a m u , k t r y r w n i e | j e s t
i n s t r u k c j z o |o n . W j e g o p r z y p a d k u p o s o w i e k l u c z o w y m e n d w y s t p u j e
z a w s z e k r o p k a .
6 . I n s t r u k c j a g o t o
I n s t r u k c j a g o t o m o |e b y u |y t a j a k o z a m i e n n i k o p i s y w a n y c h w c z e [n i e j p t l i .
W y m a g a o n a z a d e k l a r o w a n i a i u m i e s z c z e n i a w p r o g r a m i e e t y k i e t y o k r e [l a j c e j
p u n k t d o k t r e g o m a p r z e j [ s t e r o w a n i e p o w y k o n a n i u i n s t r u k c j i g o t o . P o n i e -
w a | s o w o k l u c z o w e g o t o w y s t p u j e w w i k s z o [c i p o p u l a r n y c h j z y k w
p r o g r a m o w a n i a b y o o n o n a d u |y w a n e p r z e z p r o g r a m i s t w , c o p r o w a d z i o d o
p o w s t a w a n i a t r u d n y c h d o a n a l i z y k o d w zr d o w y c h p r o g r a m w . U w a g n a t o
z j a w i s k o z w r c i w y b i t n y i n f o r m a t y k t e o r e t y c z n y E d s g e r D i j k s t r a , k t r y
w j e d n y m z e s w y c h a r t y k u w w r c z z a k a z a u |y w a n i a w p r o g r a m a c h t e j
i n s t r u k c j i . O b e c n i e j e s t o n a u |y w a n a b a r d z o r z a d k o . S t o s u j e s i j n a j c z [c i e j
d o o b s u g i b d w , l u b w t e d y , k i e d y t r z e b a p r z y s p i e s z y d z i a a n i e p r o g r a m w
( o p t y m a l i z a c j a c z a s u w y k o n a n i a p r o g r a m u ) .
7
7 . P r z y k a d y
P i e r w s z y p r z y k a d i l u s t r u j e u |y c i e o s a w i o n e j i n s t r u k c j i g o t o 1 o r a z i n s t r u k c j i
c o n t i n u e . Z a d a n i e m p r o g r a m u j e s t w y p i s a n i e l i c z b n a t u r a l n y c h o d 1 d o 1 5 n a
e k r a n , a n a s t p n i e w y p i s a n i e w s z y s t k i c h l i c z b n a t u r a l n y c h p a r z y s t y c h o d 2 d o
2 0 w k o l e j n y c h w i e r s z a c h .
p r o g r a m s k o k _ i _ k o n t y n u a c j a ;
u s e s c r t ;
l a b e l e t y 1 ;
v a r
i : b y t e ;
b e g i n
e t y 1 : i : = i + 1 ;
w r i t e l n ( i ) ;
i f i < > 1 5 t h e n g o t o e t y 1 ;
r e a d l n ;
i : = 0 ;
{ W y p i s z w s z y s t k i e p a r z y s t e . }
w h i l e i < > 2 0 d o
b e g i n
i : = i + 1 ;
i f o d d ( i ) t h e n c o n t i n u e ;
w r i t e l n ( i ) ;
e n d ;
r e a d l n ;
e n d .
P i e r w s z a c z y n n o [ j e s t z r e a l i z o w a n a z a p o m o c i n s t r u k c j i g o t o . W e w n t r z
p t l i w a r t o [ z m i e n n e j i j e s t z w i k s z a n a o j e d e n ( m o |n a z a m i a s t z a s t o s o w a n e j
t u i n s t r u k c j i p r z y p i s a n i a u |y p r o c e d u r y i n c ) i w y p i s y w a n a n a e k r a n .
W i n s t r u k c j i w a r u n k o w e j n a s t p u j e s p r a w d z e n i e , c z y w a r t o [ i j e s t r |n a o d
1 5 . J e [l i n i e , t o w y k o n y w a n y j e s t s k o k d o i n s t r u k c j i o z n a c z o n e j e t y k i e t e t y 1 ,
j e [l i t a k , t o p r o g r a m w y k o n u j e n a s t p n w k o l e j n o [c i i n s t r u k c j , c z y l i r e a d l n .
W y p i s a n i e l i c z b y p a r z y s t y c h r e a l i z o w a n e j e s t z a p o m o c i n s t r u k c j i w h i l e . T u
r w n i e | w y k o r z y s t y w a n a j e s t z m i e n n a i , k t r e j p r z e d w y k o n a n i e m p t l i
p o n o w n i e j e s t n a d a w a n a w a r t o [ 0 . T y m r a z e m w i n s t r u k c j i w a r u n k o w e j
b a d a m y , c z y j e j w a r t o [ j e s t n i e p a r z y s t a , j e [l i t a k , t o w r a c a m y n a p o c z t e k
p t l i , p o m i j a j c i n s t r u k c j w r i t e l n ( i ) . P r o s z z w r c i u w a g n a z a s t o s o w a n i e
1 Z g o d n i e z z a l e c e n i a m i E . D i j k s t r y , p r o s z j e j n i e w y k o r z y s t y w a w s w o i c h p r o g r a m a c h , c h y b a |e
o t r z y m a c i e P a Ds t w o w p r o s t p o l e c e n i e j e j u |y c i a .
8
i n s t r u k c j i s t r u k t u r a l n e j w t e j p t l i . J e [l i n i e u |y l i b y [m y s w k l u c z o w y c h b e g i n
i e n d , t o w y k o n y w a a b y s i t y l k o i n s t r u k c j a i : = i + 1 ; 2 P r o s z r w n i e | z w r c i
u w a g n a f o r m a t o w a n i e k o d u zr d o w e g o . W s z y s t k i e i n s t r u k c j e , k t r e
z a m k n i t e s w i n s t r u k c j i s t r u k t u r a l n e j , z a p i s a n e s z w c i c i e m w y n o s z c y m
d w i e s p a c j e . R w n i e | w p r z y p a d k u f r a g m e n t w p r o g r a m u z a m k n i t y c h
w s e k c j a c h t y p u v a r , c o n s t l u b i n s t r u k c j a c h w a r u n k o w y c h i w i e l o k r o t n e g o
w y b o r u z a l e c a s i s t o s o w a n i e t a k i c h w c i . N i e s o n e w y m a g a n e p r z e z
k o m p i l a t o r , a l e p o p r a w i a j c z y t e l n o [ k o d u .
D r u g i p r z y k a d o w y p r o g r a m o b l i c z a n a j w i k s z y w s p l n y d z i e l n i k w e d u g a l -
g o r y t m u E u k l i d e s a , k t r y z o s t a p o d a n y n a p i e r w s z y m w y k a d z i e .
p r o g r a m N W D ;
u s e s c r t ;
v a r
M , N , R : w o r d ;
b e g i n
c l r s c r ;
w r i t e l n ( P o d a j d w i e l i c z b y n a t u r a l n e , w i k s z e o d z e r a . ) ;
r e a d l n ( N , M ) ;
r e p e a t
R : = M m o d N ;
i f R = 0 t h e n w r i t e l n ( N W D = , N ) ;
M : = N ;
N : = R ;
u n t i l R = 0 ;
r e a d l n ;
e n d .
A n a l i z u j c t e n p r o g r a m m o |n a z a u w a |y , |e n i e j e s t o n d o k a d n i m p l e m e n t a -
c j w s p o m n i a n e g o a l g o r y t m u , p o n i e w a | k i e d y R o s i g n i e w a r t o [ z e r o n a d a l
z o s t a n w y k o n a n e d w i e o p e r a c j e p r z y p i s a n i a .
K o l e j n y p r o g r a m p o k a z u j e , j a k w p r o s t y s p o s b z a b e z p i e c z y p r o g r a m p r z e d
b d e m u |y t k o w n i k a p o l e g a j c y m n a w p r o w a d z e n i u c i g u z n a k w n i e b d c y c h
l i c z b , k i e d y p r o g r a m w y m a g a w a [n i e l i c z b y 3 . W y k o r z y s t a n a j e s t d o t e g o c e l u
p r o c e d u r a v a l , k t r a k o n w e r t u j e c i g u z n a k w n a l i c z b . P r o c e d u r a t a
2 M a a d y g r e s j a : P r z y o p i s i e p t l i w h i l e i r e p e a t w s p o m n i a n e b y o , |e n a l e |y u m i e [c i w n i c h i n -
s t r u k c j e , k t r e z a p e w n i s p e n i e n i e w a r u n k u i c h z a k o Dc z e n i a . O p i s y w a n a i n s t r u k c j a p e n i
m i d z y i n n y m i t a k w a [n i e r o l , g d y | z m i e n i a w a r t o [ z m i e n n e j i o d k t r e j z a l e |n e j e s t z a -
k o Dc z e n i e p t l i . I n s t r u k c j a t a j e s t z b d n a w p r z y p a d k u p t l i f o r , d l a k t r e j i n k r e m e n t a c j a
l i c z n i k a j e s t w y k o n y w a n a a u t o m a t y c z n i e .
3 C z y l i p r z e d p o d a n i e m z y c h d a n y c h n a w e j [c i e p r o g r a m u .
9
w y k o n y w a n a j e s t w p t l i r e p e a t d o m o m e n t u , a | u |y t k o w n i k p o d a c i g z n a k w
b d c y l i c z b i k o n w e r s j a s i p o w i e d z i e ( z m i e n n a k o d b d z i e w w c z a s m i a a
w a r t o [ 0 ) . O p i s a n e r o z w i z a n i e j e s t c z [c i z a g a d n i e n i a n a z y w a n e g o
w e r y f i k a c j d a n y c h w e j [c i o w y c h . K a |d y d o b r z e n a p i s a n y p r o g r a m p o w i n i e n
z a w i e r a k o d s p r a w d z a j c y p o p r a w n o [ w p r o w a d z a n y c h d a n y c h .
p r o g r a m w e r y f i k a c j a ;
v a r
i , k o d : i n t e g e r ;
n a p : s t r i n g ;
b e g i n
r e p e a t
r e a d l n ( n a p ) ;
v a l ( n a p , i , k o d ) ;
u n t i l k o d = 0 ;
w r i t e ( i ) ;
r e a d l n ;
e n d .
P o w y |s z y p r o g r a m m o |n a u z u p e n i o i n s t r u k c j e i n f o r m u j c e u |y t k o w n i k a
o w y n i k u k o n w e r s j i i i n s t r u u j c e g o c o r o b i g d y s i o n a n i e p o w i e d z i e .
N a s t p n y p r z y k a d t o p r o g r a m l i c z c y s i l n i . A b y z r o z u m i e j e g o d z i a a n i e n a j -
p i e r w p r z y p o m n i j m y s o b i e d e f i n i c j d z i a a n i a s i l n i a :
0 ! = 1
1 ! = 1
n ! = 1 * 2 * 3 * . . . * ( n - 1 ) * n
W y p i s z m y k i l k a p r z y k a d w s i l n i d l a m a y c h n :
1 ! = 1
2 ! = 1 * 2
3 ! = 1 * 2 * 3
4 ! = 1 * 2 * 3 * 4
c z y l i
2 ! = 1 ! * 2
3 ! = 2 ! * 3
4 ! = 3 ! * 4
1 0
Z p o w y |s z e j t a b e l i w y n i k a , |e j e [l i z n a m y w a r t o [ ( n - 1 ) ! , t o a b y p o l i c z y n ! n a -
l e |y p o m n o |y t w a r t o [ p r z e z n . T o s p o s t r z e |e n i e w y k o r z y s t y w a n e j e s t
w p r o g r a m i e l i c z c y m s i l n i e :
p r o g r a m s i l n i a ;
u s e s c r t ;
v a r
s i l : w o r d ;
i , n : b y t e ;
b e g i n
s i l : = 1 ;
r e p e a t
w r i t e l n ( P o d a j l i c z b n a t u r a l n n a l e |c d o p r z e d z i a u [ 0 , 8 ] ) ;
r e a d l n ( n ) ;
u n t i l n < = 8 ;
f o r i : = 1 t o n d o s i l : = s i l * i ;
w r i t e l n ( W a r t o [ s i l n i w y n o s i : , s i l ) ;
r e a d l n ;
e n d .
W z m i e n n e j n p r o g r a m b d z i e p r z e c h o w y w a w a r t o [ d l a k t r e j n a l e |y o b l i c z y
s i l n i . W a r t o [ t a p o b i e r a n a j e s t o d u |y t k o w n i k a z a p o m o c p r o c e d u r y r e a d l n .
N i e p o w i n n a o n a b y m n i e j s z a n i | 0 i w i k s z a n i | 8 , d l a t e g o p r o c e d u r a r e a d l n
j e s t u m i e s z c z o n a w p t l i r e p e a t , k t r a s p r a w d z a , c z y u |y t k o w n i k p o d a
w a [c i w w a r t o [. W y z n a c z e n i e s i l n i o d b y w a s i w p t l i f o r . C z [c i o w e w y n i k i
s p r z e c h o w y w a n e w z m i e n n e j s i l , k t r a w c z e [n i e j m u s i b y z a i n i c j a l i z o w a n a
w a r t o [c i 1 . P r z e [l e d zm y w y k o n a n i e t e j p t l i d l a n = 3 . W y k o n a s i o n a t r z y r a -
z y . Z a p i e r w s z y m r a z e m w z m i e n n e j s i l z n a j d z i e s i w a r t o [ i l o c z y n u 1 * 1 , p o
d r u g i m w y k o n a n i u z n a j d z i e s i t a m w a r t o [ i l o c z y n u 1 * 2 , a z a t r z e c i m 2 * 3 . N a -
l e |y z a u w a |y , |e w a r t o [ z m i e n n e j i ( l i c z n i k a p t l i ) j e s t a u t o m a t y c z n i e z w i k -
s z a n a o 1 p o k a |d y m w y k o n a n i u p t l i . O g r a n i c z e n i e w a r t o [c i z m i e n n e j n w i |e
s i z t y p e m z m i e n n e j s i l , w k t r e j p r z e c h o w y w a n y s w y n i k i c z [c i o w e i w y n i k
o s t a t e c z n y . D l a n > 8 n a s t p u j e p r z e p e n i e n i e , c z y l i o t r z y m y w a n e w a r t o [c i n i e
m i e s z c z s i w t y p i e w o r d .
Z a g n i e |d |a n i e p t l i j e s t i l u s t r o w a n e p r o g r a m e m w y z n a c z a j c y m k o l e j n e l i c z b y
p i e r w s z e . N a j p r o s t s z y s p o s b n a z n a l e z i e n i e w s z y s t k i c h l i c z b p i e r w s z y c h z o k r e -
[l o n e g o p r z e d z i a u p o l e g a n a z b a d a n i u , c z y k a |d a z n i c h d z i e l i s i p r z e z l i c z b y
o d n i e j m n i e j s z e ( o p r c z o c z y w i [c i e z e r a i j e d y n k i ) . O t o k o d p r o g r a m u , k t r y
d z i a a w e d u g t a k i e g o a l g o r y t m u .
1 1
p r o g r a m p r i m e s ;
u s e s c r t ;
v a r
i , j : w o r d ;
p r i m e : b o o l e a n ;
b e g i n
c l r s c r ;
f o r i : = 2 t o h i g h ( w o r d ) d o
b e g i n
p r i m e : = t r u e ;
f o r j : = 2 t o i - 1 d o
i f i m o d j = 0 t h e n
b e g i n
p r i m e : = f a l s e ;
b r e a k ;
e n d ;
i f p r i m e t h e n w r i t e ( i , , ) ;
e n d ;
r e a d l n ;
e n d .
Z e w n t r z n a p t l a f o r , p e n i r o l g e n e r a t o r a l i c z b z p r z e d z i a u [ 2 , 6 5 5 3 5 ] , k t r e
m a j p o d l e g a s p r a w d z e n i u . T e l i c z b y s w a r t o [c i a m i z m i e n n e j s t e r u j c e j i .
S p r a w d z e n i e l i c z b y d o k o n y w a n e j e s t w p t l i w e w n t r z n e j . P r z e d j e j
r o z p o c z c i e m z a k a d a m y , |e t e s t o w a n a w a r t o [ j e s t l i c z b p i e r w s z , c o
s p r o w a d z a s i d o n a d a n i a z m i e n n e j p r i m e , w a r t o [c i t r u e . T a z m i e n n a p e n i r o l
z n a c z n i k a , o k r e [l a j c e g o , c z y b a d a n a l i c z b a j e s t p i e r w s z a . W w e w n t r z n e j p t l i
f o r s p r a w d z a m y p r a w d z i w o [ n a s z e g o z a o |e n i a , c z y l i d z i e l i m y s p r a w d z a n
l i c z b , p r z e z w s z y s t k i e k t r e j p o p r z e d z a j . J e [l i l i c z b a n i e j e s t p i e r w s z a , t o
p o d z i e l i s i b e z r e s z t y p r z e z j e d n z n i c h 4 . J e [l i z a j d z i e t a k a s y t u a c j a t o
n a d a j e m y z m i e n n e j p r i m e w a r t o [ f a l s e i p r z e r y w a m y w y k o n a n i e p t l i
w e w n t r z n e j i n s t r u k c j b r a k e . J e [l i b a d a n a l i c z b a j e s t p i e r w s z a , t o p t l a n i g d y
n i e z o s t a n i e p r z e r w a n a p r z e z i n s t r u k c j b r e a k i z m i e n n a p r i m e n i e z m i e n i s w e j
w a r t o [c i . P o z a k o Dc z e n i u p t l i w e w n t r z n e j w i n s t r u k c j i w a r u n k o w e j b a d a m y ,
c z y p r i m e m a w a r t o [ t r u e j e [l i t a k , t o w y p i s u j e m y b a d a n l i c z b n a e k r a n , b o
j e s t o n a l i c z b p i e r w s z .
Z n a j c k o n s t r u k c j p t l i f o r o r a z o p e r a t o r y b i t o w e m o |e m y w p r o s t y s p o s b
z n a l e z r e p r e z e n t a c j b i n a r n l i c z b y d z i e s i t n e j z a p i s a n e j w z m i e n n e j o k r e [l o -
n e g o t y p u 5 . O t o k o d p r o g r a m u :
4 I n a c z e j : r e s z t a z d z i e l e n i a b d z i e r w n a z e r o .
5 I n a c z e j : p r z e d s t a w i l i c z b d z i e s i t n w k o d z i e d w j k o w y m .
1 2
p r o g r a m d e c 2 b i n ;
u s e s c r t ;
c o n s t
j = 3 2 7 6 8 ;
v a r
x : w o r d ;
i : b y t e ;
b e g i n
c l r s c r ;
w r i t e l n ( P o d a j l i c z b n a t u r a l n . ) ;
r e a d l n ( x ) ;
w r i t e l n ( R e p r e z e n t a c j a t e j l i c z b y w k o d z i e b i n a r n y m t o : ) ;
f o r i : = 0 t o 8 * s i z e o f ( x ) - 1 d o
i f x a n d ( j s h r i ) = 0 t h e n w r i t e ( 0 ) e l s e w r i t e ( 1 ) ;
r e a d l n ;
e n d .
Z a k a d a m y , |e l i c z b a k t r b d z i e m y c h c i e l i p r z e l i c z y j e s t p r z e c h o w y w a n a
w z m i e n n e j t y p u w o r d . Z a m i a n a j e j r e p r e z e n t a c j i n a b i n a r n o p i e r a s i n a
f a k c i e , |e w p a m i c i k o m p u t e r a j e s t o n a p r z e c h o w y w a n a w a [n i e w p o s t a c i
d w j k o w e j . P r z e l i c z e n i e o d b y w a s i w p t l i f o r . Z m i e n n a i b d c a l i c z n i k i e m
p t l i p r z y j m u j e w a r t o [c i o d 0 d o 1 5 ( t a k w a r t o [ d a w y r a |e n i e 8 * s i z e o f ( x ) - 1 ) .
S t a a j m a w a r t o [ 3 2 7 6 8 , c o o d p o w i a d a l i c z b i e b i n a r n e j , k t r e j n a j s t a r s z y b i t
j e s t j e d y n k , a p o z o s t a e m a j w a r t o [ z e r o . T e n p o j e d y n c z y u s t a w i o n y b i t
w s t a e j j j e s t p r z e s u w a n y w p r a w o ( z a p o m o c o p e r a t o r a s h r ) o t y l e m i e j s c , i l e
w s k a z u j e w a r t o [ z m i e n n e j i , c o d a j e e f e k t j e g o p r z e s u w a n i a o j e d n p o z y c j
w k a |d e j i t e r a c j i . O t r z y m a n a w a r t o [ j e s t u |y w a n a n a s t p n i e j a k o a r g u m e n t
o p e r a t o r a a n d . D r u g i m a r g u m e n t e m t e g o o p e r a t o r a j e s t w a r t o [ z e z m i e n n e j x .
J e [l i t e n s a m b i t w z m i e n n e j x , c o b i t o w a r t o [c i j e d e n w w y n i k u w y r a |e n i a
i s h r j m a w a r t o [ j e d e n , t o o p e r a t o r a n d z w r c i w a r t o [ r |n o d z e r a , j e [l i
n i e - z w r c i w a r t o [ z e r o . T o p o z w a l a n a m w y p i s a w a r t o [c i p o s z c z e g l n y c h
b i t w n a e k r a n . Z a s a d d z i a a n i a p r o g r a m u m o |n a p o k a z a n a l i c z b a c h
c z t e r o b i t o w y c h :
1 3
L i c z b a p r z e l i c z a n a m a p o s t a d w j k o w 0 1 0 1 , c z y l i 5 d z i e s i t n i e :
0 1 0 1 a n d 1 0 0 0 = 0 w y p i s u j e m y 0
0 1 0 1 a n d 0 1 0 0 < > 0 w y p i s u j e m y 1
0 1 0 1 a n d 0 0 1 0 = 0 w y p i s u j e m y 0
0 1 0 1 a n d 0 0 0 1 < > 0 w y p i s u j e m y 1
N a l e |y z a u w a |y , |e t m e t o d m o |n a r w n i e | z a s t o s o w a d o l i c z b z a p i s a n y c h
w k o d z i e U 2 , c z y l i p r z e c h o w y w a n y c h w z m i e n n y c h t y p u i n t e g e r i l o n g i n t 6 .
N a s t p n y p r z y k a d l i c z y p i e r w i a s t k i r w n a n i a k w a d r a t o w e g o . O k a z u j e s i , |e
w z o r y z n a n e z e s z k o y [r e d n i e j n i e d a j p o p r a w n y c h w y n i k w w i m p l e m e n t a c j i
a "c j"b
k o m p u t e r o w e j , j e [l i , z e w z g l d u n a w a d y t y p w z m i e n n o p r z e c i n -
k o w y c h . A b y u z y s k a p r a w i d o w e w a r t o [c i n a l e |y u |y n a s t p u j c y c h w z o r w :
c
q a"- 1 "[ b s g n b " ] x = q , x =
, , g d z i e s g n j e s t f u n k c j m a j c
1 2
2 a q
w a r t o [ 1 d l a b > = 0 i - 1 d l a b < 0 . O t o k o d p r o g r a m u , k t r y l i c z y p i e r w i a s t k i
r w n a n i a k w a d r a t o w e g o , w e d u g p o d a n y c h w z o r w .
p r o g r a m r o w n a n i e _ k w a d r a t o w e ;
u s e s c r t ;
v a r
a , b , c , q , d e l t a : r e a l ;
b e g i n
c l r s c r ;
w r i t e l n ( P o d a j w s p c z y n n i k i r w n a n i a k w a d r a t o w e g o : ) ;
w r i t e l n ( W s p c z y n n i k a m u s i b y r |n y o d z e r a ! ) ;
w r i t e ( a : ) ; r e a d l n ( a ) ;
w r i t e ( b : ) ; r e a d l n ( b ) ;
w r i t e ( c : ) ; r e a d l n ( c ) ;
d e l t a : = s q r ( b ) - 4 * a * c ;
i f d e l t a > = 0 t h e n
b e g i n
i f b < 0 t h e n q : = - 0 . 5 * ( b - s q r t ( d e l t a ) ) e l s e q : = - 0 . 5 * ( b + s q r t ( d e l t a ) ) ;
w r i t e l n ( x 1 = , q / a : 7 : 4 , x 2 = , c / q : 7 : 4 ) ;
e n d ;
r e a d l n ;
e n d .
O s t a t n i e p r z y k a d y d o t y c z w y l i c z a n i a w a r t o [c i t a k i c h f u n k c j i m a t e m a t y c z n y c h ,
6 I s t n i e j d w i e s t a e M a x I n t e g e r i M a x L o n g I n t , k t r e s r w n e n a j w i k s z y m w a r t o [c i o m j a k i e
m o |n a p r z e c h o w a w z m i e n n y c h o t y p a c h o d p o w i e d n i o i n t e g e r i l o n g i n t . N i e m o g o n e j e d n a k
p e n i r o l i s t a e j j w p o w y |s z y m p r o g r a m i e . W p r z y p a d k u t y c h t y p w t r o l m u s z p e n i s t a e
o n a j m n i e j s z y c h w a r t o [c i a c h . T o z e w z g l d u n a s t o s o w a n i e k o d u U 2 .
1 4
t a k i c h j a k c o s i e x p . I s t n i e j o c z y w i [c i e w P a s c a l u g o t o w e f u n k c j e l i c z c e
w a r t o [c i k o s i n u s a i e x , a l e w a r t o w i e d z i e j a k s o b i e p o r a d z i , g d y b y n i e b y y o n e
d o s t p n e . W a r t o [c i t y c h f u n k c j i m o |n a o b l i c z y z n a s t p u j c y c h s z e r e g w :
2 3 k
x x x x
x
e = 1 . . . . . .
1 ! 2 ! 3 ! k !
2 4 6 2 "k
x x x x
c o s x = 1 - - . . . - 1 k " . . .
2 ! 4 ! 6 ! 2 "k !
P i e r w s z y z p r e z e n t o w a n y c h p o n i |e j p r o g r a m w o b l i c z a w a r t o [ k o s i n u s a d l a
k t a / 3 . ( k t p o d a j e m y w r a d i a n a c h ! ) :
p r o g r a m c o s i n u s ;
u s e s c r t ;
c o n s t
e p s = 1 E - 1 1 ;
v a r
x , e , n : r e a l ;
i : i n t e g e r ;
b e g i n
c l r s c r ;
x : = p i / 3 ; e : = 1 ; n : = 1 ; i : = 1 ;
w h i l e ( a b s ( c o s ( x ) - e ) ) > e p s d o
b e g i n
n : = n * ( - 1 * x * x / ( ( 2 * i - 1 ) * ( 2 * i ) ) ) ;
e : = e + n ;
i n c ( i ) ;
e n d ;
w r i t e l n ( c o s ( x ) : 1 0 : 1 0 ) ;
w r i t e l n ( e : 1 0 : 1 0 ) ;
r e a d l n ;
e n d .
Z a n i m z a c z n i e m y a n a l i z t e g o p r o g r a m u n a l e |y z a u w a |y , |e k a |d y k o l e j n y
e l e m e n t s z e r e g u o t r z y m u j e m y m n o |c j e g o p o p r z e d n i k a p r z e z w y r a |e n i e
2
x
-
, g d z i e i j e s t n u m e r e m p o z y c j i e l e m e n t u w s z e r e g u 7 .
2 "i - 1 "2 "i
W p r o g r a m i e z m i e n n a x m a n a d a n w a r t o [ k t a , d l a k t r e g o c h c e m y o b l i c z y
k o s i n u s , a z m i e n n e e ( p r z e c h o w u j e s u m e l e m e n t w ) , n ( w a r t o [ k o l e j n y c h
e l e m e n t w c i g u ) i i ( p o z y c j a e l e m e n t u w c i g u ) s z a i n i c j a l i z o w a n e w a r t o [c i 1 .
O b l i c z e n i a s d o k o n y w a n e w p t l i w h i l e , k t r a k o Dc z y s i , k i e d y u z y s k a n y
p r z e z p r o g r a m w y n i k r |n i s i c o d o w a r t o [c i b e z w z g l d n e j o s t a e p s o d
w a r t o [c i u z y s k a n e j z f u n k c j i c o s 8 . W w i e r s z u n : = n * ( - 1 * x * x / ( ( 2 * i - 1 ) * ( 2 * i ) ) ) ; l i c z o n e
s w a r t o [c i k o l e j n y c h e l e m e n t w s z e r e g u , a w n a s t p n y m w i e r s z u s o n e
7 A b y s i o t y m p r z e k o n a w y s t a r c z y p o d z i e l i p r z e z s i e b i e d w a s s i e d n i e e l e m e n t y , w k o l e j n o [c i
p r a w y p r z e z l e w y .
8 J e s t t o p o d s t a w o w a z a s a d a p o r w n y w a n i a d w c h l i c z b z m i e n n o p o z y c y j n y c h . N i e m o |e m y i c h
p o r w n a b e z p o [r e d n i o , b o n i g d y n i e z n a m y i c h d o k a d n e g o r o z w i n i c i a . W y l i c z a m y w i c i c h
r |n i c i s p r a w d z a m y , c z y j e s t m n i e j s z a o d u s t a l o n e j , b a r d z o m a e j l i c z b y .
1 5
d o d a w a n e d o w y n i k u k o Dc o w e g o .
P o d o b n i e n a p i s a n y j e s t p r o g r a m l i c z c y w a r t o [ e k s p o n e n t y . W t y m p r z y p a d k u
x
w a r t o [c i k o l e j n y c h e l e m e n t w c i g u r |n i s i o c z y n n i k . P r o g r a m l i c z y
i
w a r t o [ e 2 4 . O t o j e g o k o d zr d o w y :
{ $ N + }
p r o g r a m e x p o n e n t a ;
u s e s c r t ;
c o n s t
e p s = 1 E - 1 1 ;
v a r
e , x , n : e x t e n d e d ;
i : w o r d ;
b e g i n
c l r s c r ;
e : = 1 ; n : = 1 ; x : = 2 4 ; i : = 1 ;
w h i l e ( a b s ( e x p ( x ) - e ) ) > e p s d o
b e g i n
n : = n * ( x / i ) ;
e : = e + n ;
i n c ( i ) ;
e n d ;
w r i t e l n ( F u n k c j a e x p : , e x p ( x ) : 1 0 : 1 0 ) ;
w r i t e l n ( E x p z s z e r e g u : , e : 1 0 : 1 0 ) ;
r e a d l n ;
e n d .
P r o s z z w r c i u w a g , n a z a s t o s o w a n i e d y r e k t y w y k o m p i l a t o r a { $ N + } , k t r a
n a k a z u j e m u u |y c i e r o z k a z w k o p r o c e s o r a m a t e m a t y c z n e g o . J e s t o n a
w y m a g a n a w [r o d o w i s k u T r u b o P a s c a l , w [r o d o w i s k u F r e e P a s c a l m o |e , a l e n i e
m u s i w y s t p o w a . D z i k i t e m u m o |e m y k o r z y s t a z t y p u e x t e n d e d . P r o g r a m
d z i a a r w n i e | d l a i n n y c h w a r t o [c i x , a l e n i e w s z y s t k i e o n e p r o w a d z d o
p o p r a w n y c h w y n i k w . F u n k c j a c o s d o s t p n a s t a n d a r d o w o w j z y k u P a s c a l ,
p r a w d o p o d o b n i e n i e w y z n a c z a w a r t o [c i z s z e r e g u , g d y | j e s t t o c z a s o c h o n n e . W
p r z y p a d k u k o s i n u s a l e p i e j j e s t u m i e [c i w t a b l i c y w a r t o [c i t e j f u n k c j i d l a
t y p o w y c h w a r t o [c i k t a . J e [l i u |y t k o w n i k z a |y c z y s o b i e w a r t o [c i k o s i n u s a ,
k t r e j n i e m a w t a b l i c y , t o m o |n a j w y l i c z y z a p o m o c k o s i n u s a s u m y l u b
r |n i c y k t w .
O p i s a n e m e t o d y w y z n a c z a n i a w a r t o [c i f u n k c j i m o |n a r w n i e | z a s t o s o w a d o
f u n k c j i s i n u s . P o n i |e j , d l a z a i n t e r e s o w a n y c h p o d a j w z r n a s z e r e g T a y l o r a
i M c l a u r i n a , z k t r y c h z o s t a y w y p r o w a d z o n e s z e r e g i d l a k o s i n u s a
i e k s p o n e n t y :
1 6
i
"
f ' ' x f x
0 0
s z e r e g T y l o r a : f x = f x f ' x "x - x "x - x 2 . . . = "x - x i
"
0 0 0 0 0
2 ! i !
i = 0
"
f ' ' 0 0
2 i i
s z e r e g M c l a u r i n a : f x = f 0 f ' 0 "x "x . . . = f "x
"
2 ! i !
i = 0
( S z e r e g M c l a u r i n a u z y s k u j e m y z s z e r e g u T a y l o r a p o d s t a w i a j c z a x w a r t o [
0
z e r o . )
1 7
Wyszukiwarka
Podobne podstrony:
PP1 wykladPP1 wyklad 8PP1 wyklad 5PP1 wyklad 1PP1 wyklad 2PP1 wykladPP1 wyklad 4PP1 wyklad 5PP1 wyklad 9PP1 wykladPP1 wyklad 4PP1 wykladSieci komputerowe wyklady dr FurtakWykład 05 Opadanie i fluidyzacjaWYKŁAD 1 Wprowadzenie do biotechnologii farmaceutycznejwięcej podobnych podstron