╨╧рб▒с > ■ $ & ■ # ье┴ 9 ЁR┐ bjbj¤╧¤╧ 9 Яе Яе Л l м м м м м м м └ n n n n z └ │ Є Ъ Ъ Ъ Ъ Ъ Ъ Ъ Ъ $ е ┼
^ @ - м Ъ Ъ Ъ Ъ Ъ @ " м м Ъ Ъ m " " " Ъ ~ м Ъ м Ъ " Ъ " ° " м м Ъ О ╘¤q¤$└└ о n ╕ Г 0 │ # ╨ R # " └ └ м м м м ┘ F O R T R A N ∙[C / C + + ¤QpeДvМ(u
F o r t r a n ∙[C / C + + ¤QpeДvМ(uwQ gИ_═СБЙДvЮ[EЦaIN0hQшРДvW i n d o w s A P I ¤Qpe¤Р/f(uC эЛ КЩQДv0БЙ)R(uW i n d o w s @b╨cЫOДv NЫN√|▀~ЯR¤А ВYЩQY┐~ z zП^ █ПLИ
YBgДvЗeЎN═d\OI{
NяSРMQ0WБЙO(uW i n d o w s A P I ¤Qpe ┘ПЎe1\X[(WМ(uC эЛ КДv¤QpeДvюХШШ0цSY(W NЫNvQ╓NДv:WT М(uC / C + + ¤Qpe_N/fASR═СБЙДv0
F o r t r a n М(u N,ВДvC ¤QpeЦЩHQБЙ(WЁXf¤QpeеcуSДvЎePБЙ(uC ^\'`c·Q¤Qpe╟С(uДv/fC М(uж~Ъ[0C ^\'`O¤QpeДvh╞Л&{hQшР╪S:N\ЩQ ┘ПЎe╪ПБЙO(uA L I A S ^\'`cЪ[¤QpeДvh╞Л&{0 gT╪ПБЙ>f:yДvc·Q┬Spe OР╣e_0
ЛOВY NbЧДv N*NC ¤Qpe
i n t F a c t ( i n t n )
{
i f ( n > 1 )
r e t u r n ( n * F a c t ( n - 1 ) ) ;
r e t u r n 1 ;
}
М(uГ[ДvF o r t r a n ;N zП^:N
P R O G R A M M A I N
I N T E R F A C E
I N T E G E R ( 4 ) F U N C T I O N F a c t ( n )
! M S $ A T T R I B U T E S C , A L I A S : F a c t : : F a c t
I N T E G E R ( 4 ) n
! M S $ A T T R I B U T E S V A L U E : : n
E N D F U N C T I O N
E N D I N T E R F A C E
I U N T E G E R ( 4 ) N
N = 1 0
W R I T E ( * , * ) F A C T I O N A L O F , N , I S , F a c t ( N )
E N D
FO/f ВYЬg
NbЧДv¤QpeF a c t /f(WC + + zП^-NЪ[INДv гРHNВYЬgБЙ(WF o r t r a n -N∙[Г[█ПLИМ(u F a c t ДvЪ[IN/f┼_{ШЩQ:N NbЧДvb__Mb¤А:NF o r t r a n zП^М(u0
E x t e r n C i n t F a c t ( i n t n )
{
i f ( n > 1 )
r e t u r n ( n * F a c t ( n - 1 ) ) ;
r e t u r n 1 ;
}
W i n d o w s A P I ¤Qpe}Ж6q/f(uC эЛ КЩQДv0FO/fГ[╟С(uДvМ(uж~Ъ[:NS T D C A L L ж~Ъ[ ┘П N╣p ЧБЙшla0цSY√ЛАяSхN┬SАF O R T R A N P O W E R S T A T I O N :NЮ[░sW i n d o w s A P I еcуS А╨cЫOДv!jWWДvРn zП^ ВYm s f w i n . f 9 0 m t . f 9 0 0
ж и ░ ▓ Ц Ш ░ ▓ ╕ ║ ╛ └ И К М О ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ o( & n < T z Д Ф ╛ ╥ ╓ ° & h ┬ ю & @ \ x В ╥ ┌ z ░ ┤ ¤ ї ї ¤ ¤ ¤ я я я щ ї ї ї ї ї ї с с с с с с с ¤ щ щ Д▒WD┬`Д▒ Д│`Д│ ДЕ`ДЕ ДдWD╚ `Дд ¤ ┤ ╚ ·
∙ ∙ ё щ ч ДдWD╚ `Дд ДЕWD3`ДЕ Д│`Д│ 7 0 &P 1Р82P ░В. ░╞A!░"░#Ра$Ра%░ ░S░р Рй
i F @ё F ckЗe $1$ a$ $ CJ KH PJ _HaJ mH nHsH tH A@Є б ╪ЮдЛ╡k=ДW[SO )@в ё uШx Л ╖ * = B J _ i k | Й У ┤ с ў . < A i m ╜ ╪ ┌ ф ¤ Н Ш 0 А АШ А АШ А АШ 0 А АШ 0 А АШ 0 А АШ 0 А АШ 0 А АШ 0 А АШ 0 А АШ А АШ А АШ А АШ А АШ А АШ А АШ А АШ А АШ А АШ А АШ А АШ А АШ А АШ 0 А АШ 0 А АШ 0 А АШ 0 А АШ 0 А АШ А АШ А АЪ 0 А А ┤
3 > C D M T { Ж Р С з м ╢ ╛ ├ ─ ╒ ╓ р с ц ч ¤ % & ) k o v { V e m w { } А Н Ф Ь а ░ ╖ ╝ - В Г Й К Н - 0 B D J P _ e Ш а ╣ ╝ ъ Є ў · . 7 A G ╠ ╤ ▄ ▐ ш ю ¤ ? Н 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ъ Ў - < @ ¤ ? К Н l i h m X C : \ D o c u m e n t s a n d S e t t i n g s \ A d m i n i s t r a t o r \ A p p l i c a t i o n D a t a \ M i c r o s o f t \ W o r d \ ъБиRb`
Y ▌OX[Зech 1 . a s d l i h m F : \ T e x t \ F O R T R A N - C . d o c @А К К ,щШ К К ( Л А А А
U n k n o w n GР Зz А T i m e s N e w R o m a n 5Р А S y m b o l 3&Р Зz А A r i a l ;РЖ Л[SO S i m S u n 1Й д h E║I╞[║I╞ Г ь ! - ! ) , . : ; ? ] } и ╖ ╟╔ & 6"0000 0 0
00000 = @ \ ] ^ р ( [ { ╖ 0
0 00000 ; [ с х аi Ь ВА Ц 2ГQ F O R T R A N ∙[C / C + + ¤QpeДvМ(u l i h m l i h m ■ рЕЯЄ∙OhлС +'│┘0 | Р Ш ╝ ╚ ╪ ф Ё
8 D
P \ d l t и FORTRAN╢╘C/C++║п╩¤╡─╡ў╙├ 0 ORT lihm AN╢ ihm ihm Normal ╢ lihm l ╢ 1 hm Microsoft Word 9.0 ─@ ╚ @ ЖуK·$└@ Кл^¤$└ Г ь ■ ╒═╒Ь.УЧ +,∙о0 h p | Д М Ф Ь д м ┤
╝ с и A Ц №
FORTRAN╢╘C/C++║п╩¤╡─╡ў╙├ ╠т─┐
■
■ ■ ! " ■ ¤ % ■ ■ ■ R o o t E n t r y └ F `Вr¤$└' А 1 T a b l e W o r d D o c u m e n t 9 S u m m a r y I n f o r m a t i o n ( D o c u m e n t S u m m a r y I n f o r m a t i o n 8 C o m p O b j f O b j e c t P o o l `Вr¤$└`Вr¤$└ ■ ■
└ F Microsoft Word ╬─╡╡
MSWordDoc Word.Document.8 Ї9▓q