Лабораторные работы по СП (1-20) / 19 / RECURS

Џа®Ја ¬¬Ёа®ў ­ЁҐ ४габЁў­ле  «Ј®аЁв¬®ў

ђҐЄгабЁп Ґбвм з१ўлз ©­® 㤮Ў­ п Ё Ї®«Ґ§­ п  «Ј®аЁв¬ЁзҐбЄ п бвагЄвга .
ђҐЄгабЁў­лҐ  «Ј®аЁв¬л ў Їа®Ја ¬¬Ёа®ў ­ЁЁ ॠ«Ё§говбп ў ४габЁў­ле
Ї®¤Їа®Ја ¬¬ е. ђҐЄгабЁў­®© бзЁв Ґвбп Ї®¤Їа®Ја ¬¬ , Є®в®а п Їаאַ Ё«Ё Є®бўҐ­­®
(зҐаҐ§ ¤агЈЁҐ Ї®¤Їа®Ја ¬¬л) ®Ўа й Ґвбп Є ᥡҐ - б Ё­л¬Ё д ЄвЁзҐбЄЁ¬Ё
Ї а ¬Ґва ¬Ё (Ё­ зҐ ४габЁп Ўл«  Ўл ЎҐбЄ®­Ґз­®©).

Ћб®ЎҐ­­®б⨠४габЁў­ле Ї®¤Їа®Ја ¬¬:
1. ®Ўа йҐ­ЁҐ б ¬®© Є ᥡҐ;
2. ­ «ЁзЁҐ гб«®ўЁп § ўҐа襭Ёп, Ї®§ў®«по饥 Їа®Ја ¬¬Ґ ЇаҐЄа вЁвм ўл§лў вм ᥡп.
€в Є, ४габЁо ў Їа®Ја ¬¬Ёа®ў ­ЁЁ ¬®¦­® ®ЇаҐ¤Ґ«Ёвм Є Є ᢥ¤Ґ­ЁҐ § ¤ зЁ Є в Є®©
¦Ґ § ¤ зҐ, ­® ¬ ­ЁЇг«Ёаго饩 Ў®«ҐҐ Їа®бвл¬Ё ¤ ­­л¬Ё.

‚ ᮢ६Ґ­­ле бЁб⥬ е Їа®Ја ¬¬Ёа®ў ­Ёп Є®а४⭮Ґ дг­ЄжЁ®­Ёа®ў ­ЁҐ ४габЁў­ле
Ї®¤Їа®Ја ¬¬ ®ЎҐбЇҐзЁў Ґвбп б Ї®¬®ймо б⥪ . ‘⥪ Ґбвм бўп§­ п бвагЄвга  ¤ ­­ле,
Ї®бв஥­­ п ­  ЇаЁ­жЁЇҐ "ЇҐаўл© ЇаЁиҐ« - ЇҐаўл© ўл襫" (First In - First Out,
FIFO): ў­®ўм ¤®Ў ў«пҐ¬лҐ ®ЎкҐЄвл Ї®¬Ґй овбп ў ­ з «®, ўҐаиЁ­г б⥪ , Ё
ўлЎЁа овбп ⮦Ґ «Ёим Ё§ ўҐаиЁ­л.

‘⥪ Ґбвм з१ўлз ©­® 㤮Ў­ п бвагЄвга  ¤ ­­ле ¤«п ¬­®ЈЁе § ¤ з ўлзЁб«ЁвҐ«м­®©
вҐе­ЁЄЁ. Ќ ЁЎ®«ҐҐ вЁЇЁз­  в Є п § ¤ з , Є Є ®ЎҐбЇҐзҐ­ЁҐ ў«®¦Ґ­­ле ўл§®ў®ў
Їа®жҐ¤га. ЏаҐ¤Ї®«®¦Ё¬, Ё¬ҐҐвбп Їа®жҐ¤га  A, Є®в®а п ўл§лў Ґв Їа®жҐ¤гаг B,   в 
ў бў®о ®зҐаҐ¤м - Їа®жҐ¤гаг C. Љ®Ј¤  ўлЇ®«­Ґ­ЁҐ Їа®жҐ¤гал A ¤®©¤Ґв ¤® ўл§®ў  B,
Їа®жҐ¤га  A ЇаЁ®бв ­ ў«Ёў Ґвбп, Ё гЇа ў«Ґ­ЁҐ ЇҐаҐ¤ Ґвбп ­  ўе®¤­го в®зЄг
Їа®жҐ¤гал B. Љ®Ј¤  B ¤®е®¤Ёв ¤® ўл§®ў  C, ЇаЁ®бв ­ ў«Ёў Ґвбп B, Ё гЇа ў«Ґ­ЁҐ
ЇҐаҐ¤ Ґвбп ­  Їа®жҐ¤гаг C. Љ®Ј¤  § Є ­зЁў Ґвбп ўлЇ®«­Ґ­ЁҐ Їа®жҐ¤гал C,
гЇа ў«Ґ­ЁҐ ¤®«¦­® ўҐа­гвмбп ў B - ў в®зЄг, б«Ґ¤гойго §  ўл§®ў®¬ C. ЏаЁ
§ ўҐа襭ЁЁ B гЇа ў«Ґ­ЁҐ ¤®«¦­® ўҐа­гвмбп ў A - ў в®зЄг, б«Ґ¤гойго §  ўл§®ў®¬ B.

Џа ўЁ«м­го Ї®б«Ґ¤®ў вҐ«м­®бвм ў®§ўа в®ў «ҐЈЄ® ®ЎҐбЇҐзЁвм, Ґб«Ё ЇаЁ Є ¦¤®¬
ўл§®ўҐ Їа®жҐ¤гал § ЇЁблў вм  ¤аҐб ў®§ўа в  ў б⥪. ’ Є, Є®Ј¤  Їа®жҐ¤га  A
ўл§лў Ґв Їа®жҐ¤гаг B, ў б⥪ § ­®бЁвбп  ¤аҐб ў®§ўа в  ў A; Є®Ј¤  B ўл§лў Ґв C,
ў б⥪ § ­®бЁвбп  ¤аҐб ў®§ўа в  ў B. Љ®Ј¤  C § Є ­зЁў Ґвбп,  ¤аҐб ў®§ўа в 
ўлЎЁа Ґвбп Ё§ ўҐаиЁ­л б⥪  - нв®  ¤аҐб ў®§ўа в  ў B. Љ®Ј¤  § Є ­зЁў Ґвбп B, ў
ўҐаиЁ­Ґ б⥪  ­ е®¤Ёвбп  ¤аҐб ў®§ўа в  ў A, Ё ў®§ўа в Ё§ B Їа®Ё§®©¤Ґв ў A.

ЊҐе ­Ё§¬ ўл§®ў  дг­ЄжЁЁ Ё«Ё Їа®жҐ¤гал ў п§лЄҐ ўлб®Є®Ј® га®ў­п бгйҐб⢥­­®
§ ўЁбЁв ®в  аеЁвҐЄвгал Є®¬ЇмовҐа  Ё ®ЇҐа жЁ®­­®© бЁб⥬л. ‚ ¬ЁЄа®Їа®жҐбб®а е
Intel, Є Є ў Ў®«миЁ­б⢥ ᮢ६Ґ­­ле Їа®жҐбб®а­ле  аеЁвҐЄвга, Ї®¤¤Ґа¦Ёў Ґвбп
 ЇЇ а в­л© б⥪. Ћ­ а бЇ®«®¦Ґ­ ў Ћ‡“, гЄ § вҐ«м б⥪  ᮤҐа¦Ёвбп ў Ї аҐ
бЇҐжЁ «м­ле ॣЁбва®ў SS:SP, ¤®бвгЇ­ле Їа®Ја ¬¬Ёбвг. ЂЇЇ а в­л© б⥪
а биЁапҐвбп ў бв®а®­г 㬥­м襭Ёп  ¤аҐб®ў, гЄ § вҐ«м ҐЈ®  ¤аҐбгҐв ЇҐаўл©
бў®Ў®¤­л© н«Ґ¬Ґ­в.

‘ЁбвҐ¬л Їа®Ја ¬¬Ёа®ў ­Ёп ¤«п Ў«®з­®-®аЁҐ­вЁа®ў ­­ле п§лЄ®ў ЁбЇ®«м§гов б⥪ ¤«п
а §¬ҐйҐ­Ёп ў ­Ґ¬ «®Є «м­ле ЇҐаҐ¬Ґ­­ле Їа®жҐ¤га Ё Ё­ле Їа®Ја ¬¬­ле Ў«®Є®ў. ‘⥪
а §ЎЁв ­  да Ј¬Ґ­вл - Ў«®ЄЁ Ї®б«Ґ¤®ў вҐ«м­ле п祥Є. Љ ¦¤л© ўл§®ў Ї®¤Їа®Ја ¬¬л
ЁбЇ®«м§гҐв да Ј¬Ґ­в б⥪ , ¤«Ё­  Є®в®а®Ј® § ўЁбЁв ®в ўл§лў о饩 Ї®¤Їа®Ја ¬¬л.
ЏаЁ Є ¦¤®©  ЄвЁўЁ§ жЁЁ Їа®жҐ¤гал Ї ¬пвм ¤«п ҐҐ «®Є «м­ле ЇҐаҐ¬Ґ­­ле ўл¤Ґ«пҐвбп
ў б⥪Ґ; ЇаЁ § ўҐа襭ЁЁ Їа®жҐ¤гал нв  Ї ¬пвм ®бў®Ў®¦¤ Ґвбп. Џ®бЄ®«мЄг ЇаЁ
ўл§®ў е Їа®жҐ¤га ўбҐЈ¤  бва®Ј® б®Ў«о¤ Ґвбп ў«®¦Ґ­­®бвм, ў ўҐаиЁ­Ґ б⥪  ўбҐЈ¤ 
­ е®¤Ёвбп Ї ¬пвм, ᮤҐа¦ й п «®Є «м­лҐ ЇҐаҐ¬Ґ­­лҐ  ЄвЁў­®© ў ¤ ­­л© ¬®¬Ґ­в
Їа®жҐ¤гал.

’ Є, ў ®ЎйҐ¬ б«гз Ґ ЇаЁ ўл§®ўҐ Їа®жҐ¤га®© A Їа®жҐ¤гал B Їа®Ёб室Ёв б«Ґ¤го饥:
1. ‚ ўҐаиЁ­г б⥪  Ї®¬Ґй Ґвбп да Ј¬Ґ­в ­г¦­®Ј® а §¬Ґа .
2. “Їа ў«Ґ­ЁҐ ЇҐаҐ¤ Ґвбп ЇҐаў®¬г ®ЇҐа в®аг Їа®жҐ¤гал B.
3. ЏаЁ § ўҐа襭ЁЁ а Ў®вл Їа®жҐ¤гал B гЇа ў«Ґ­ЁҐ ЇҐаҐ¤ Ґвбп Їа®жҐ¤гॠA.

ќв®в ЇаЁҐ¬ ¤Ґ« Ґв ў®§¬®¦­®© «ҐЈЄго ॠ«Ё§ жЁо ४габЁў­ле Їа®жҐ¤га. Љ®Ј¤ 
Їа®жҐ¤га  ўл§лў Ґв б ¬  ᥡп, ¤«п ўбҐе ҐҐ «®Є «м­ле ЇҐаҐ¬Ґ­­ле ўл¤Ґ«пҐвбп ­®ў п
Ї ¬пвм ў б⥪Ґ, Ё ў«®¦Ґ­­л© ўл§®ў а Ў®в Ґв б® бў®Ё¬ б®Ўб⢥­­л¬ ЇаҐ¤бв ў«Ґ­ЁҐ¬
«®Є «м­ле ЇҐаҐ¬Ґ­­ле. Љ®Ј¤  ў«®¦Ґ­­л© ўл§®ў § ўҐаи Ґвбп, § ­Ё¬ Ґ¬ п ҐЈ®
ЇҐаҐ¬Ґ­­л¬Ё ®Ў« бвм Ї ¬пвЁ ў б⥪Ґ ®бў®Ў®¦¤ Ґвбп Ё  Євг «м­л¬ бв ­®ўЁвбп
ЇаҐ¤бв ў«Ґ­ЁҐ «®Є «м­ле ЇҐаҐ¬Ґ­­ле ЇаҐ¤л¤г饣® га®ў­п. ‡  бзҐв нв®Ј® ў в ЄЁе
п§лЄ е, Є Є Pascal Ё C, «оЎлҐ Їа®жҐ¤гал Ё дг­ЄжЁЁ ¬®Јгв ўл§лў вм б ¬Ё ᥡп.
ђҐЄгабЁп ЁбЇ®«м§гҐв б⥪ ў бЄал⮬ ®в Їа®Ја ¬¬Ёбв  ўЁ¤Ґ, ­® ўбҐ ४габЁў­лҐ
Їа®жҐ¤гал ¬®¦­® ॠ«Ё§®ў вм ЎҐ§ ४габЁЁ, ­® б пў­л¬ ЁбЇ®«м§®ў ­ЁҐ¬ б⥪ .

‚ а拉 б«гз Ґў ४габЁў­го Ї®¤Їа®Ја ¬¬г ¬®¦­® Ї®бва®Ёвм ­ҐЇ®б।б⢥­­® Ё§
д®а¬ «м­®Ј® ¬ вҐ¬ вЁзҐбЄ®Ј® ®ЇЁб ­Ёп § ¤ зЁ. ’ Є®ў ЇаЁ¬Ґа ४габЁў­®©
Ї®¤Їа®Ја ¬¬л ўлзЁб«Ґ­Ёп д Єв®аЁ « .

n! = n * (n-1)!, Ґб«Ё n>0
n! = 1, Ґб«Ё n=0

Function Fact(n:byte):longint;
begin
if n=0
then Fact:=1
else Fact:=n*Fact(n-1)
end;