информа / _Pascal10 / 05 / urok05p

-------------| BorlandPascal 7.0 |--------------
-------------| ЋЇҐа в®ал п§лЄ . Њ ббЁўл |--------------

Њ ббЁўл:
a: array [1..10] of char - ®Ўкпў«Ґ­ЁҐ ®¤­®¬Ґа­®Ј® ¬ ббЁў ,
б®бв®п饣® Ё§ 10 н«Ґ¬Ґ­в®ў вЁЇ  "бЁ¬ў®«".
b: array [1..10, 1..10] of real - ¤ўг嬥а­л© ¬ ббЁў ¤а®Ў­ле зЁбҐ«.

ЏаЁ¬Ґа ўў®¤  n н«Ґ¬Ґ­в®ў ¬ ббЁў :
for i:=1 to n do
begin
writeln('ўўҐ¤ЁвҐ',i,'-н«Ґ¬Ґ­в ¬ ббЁў ');
readln(matrix[i]);
end;

‚ў®¤ Ї®«м§®ў вҐ«мбЄЁе вЁЇ®ў ¤ ­­ле ў Pascal:

‚ Pascal Єа®¬Ґ бв ­¤ ав­ле вЁЇ®ў (real, integer Ё ¤а.) Їа®Ја ¬¬Ёбв
¬®¦Ґв ўў®¤Ёвм бў®Ё. ‘ў®© вЁЇ ¤ ­­ле ¬®¦Ґв Ўлвм Ї®«Ґ§Ґ­ ¤«п ᮧ¤ ­Ёп
ў«®¦Ґ­­ле вЁЇ®ў ¤ ­­ле (­ ЇаЁ¬Ґа, б«®¦­ле ¬ ббЁў®ў),   в Є¦Ґ (­Ґ ў
Ї®б«Ґ¤­оо ®зҐаҐ¤м) ¤«п 㬥­м襭Ёп Їа®Ја ¬¬­®Ј® Є®¤ .

Program ...
uses ...
type myarr = array [1..10] of integer;
var a,b,c: myarr;

Begin
...
End.

_________________________________________________________
‡ ¤ ­ЁҐ:
1. ‚лЇ®«­Ёвм ЇҐаў®Ґ § ¤ ­ЁҐ Ї® ¬ ббЁў ¬.

 . „ ­® 楫®Ґ зЁб«® N (> 1),   в Є¦Ґ ЇҐаўл© з«Ґ­ A Ё §­ ¬Ґ­ вҐ«м D
ЈҐ®¬ҐваЁзҐбЄ®© Їа®ЈаҐббЁЁ. ‘д®а¬Ёа®ў вм Ё ўлўҐбвЁ ¬ ббЁў а §¬Ґа  N,
ᮤҐа¦ йЁ© N ЇҐаўле з«Ґ­®ў ¤ ­­®© Їа®ЈаҐббЁЁ:
A, A*D, A*D^2, A*D^3, ...

Ў. „ ­® 楫®Ґ зЁб«® N (> 2). ‘д®а¬Ёа®ў вм Ё ўлўҐб⨠楫®зЁб«Ґ­­л©
¬ ббЁў а §¬Ґа  N, ᮤҐа¦ йЁ© N ЇҐаўле н«Ґ¬Ґ­в®ў Ї®б«Ґ¤®ў вҐ«м­®бвЁ
зЁбҐ« ”ЁЎ®­ ззЁ F(K):
F(1) = 1, F(2) = 1, F(K) = F(K-2) + F(K-1), K = 3, 4, ...

ў. „ ­ ¬ ббЁў а §¬Ґа  N. ‚뢥бвЁ ҐЈ® н«Ґ¬Ґ­вл ў ®Ўа в­®¬ Ї®ап¤ЄҐ Ё
Ё§¬Ґ­Ёвм §­ ЄЁ (®ваЁж вҐ«м­лҐ зЁб«  ­  Ї®«®¦ЁвҐ«м­лҐ Ё ­ ®Ў®а®в).

Ј. „ ­ 楫®зЁб«Ґ­­л© ¬ ббЁў а §¬Ґа  N. ‚뢥бвЁ ў­ з «Ґ ўбҐ ᮤҐа¦ йЁҐбп
ў ¤ ­­®¬ ¬ ббЁўҐ зҐв­лҐ зЁб«  ў Ї®ап¤ЄҐ ў®§а бв ­Ёп Ёе Ё­¤ҐЄб®ў,
  § вҐ¬ - ўбҐ ­ҐзҐв­лҐ зЁб«  ў Ї®ап¤ЄҐ гЎлў ­Ёп Ёе Ё­¤ҐЄб®ў.

¤. „ ­ ¬ ббЁў A а §¬Ґа  N (N - зҐв­®Ґ зЁб«®). ‚뢥бвЁ ҐЈ® н«Ґ¬Ґ­вл
б зҐв­л¬Ё ­®¬Ґа ¬Ё ў Ї®ап¤ЄҐ ў®§а бв ­Ёп ­®¬Ґа®ў:
A(2), A(4), A(6), ..., A(N). “б«®ў­л© ®ЇҐа в®а ­Ґ ЁбЇ®«м§®ў вм.

Ґ. „ ­ ¬ ббЁў A а §¬Ґа  N. ‚뢥бвЁ ў­ з «Ґ ҐЈ® н«Ґ¬Ґ­вл б ­ҐзҐв­л¬Ё
­®¬Ґа ¬Ё ў Ї®ап¤ЄҐ ў®§а бв ­Ёп ­®¬Ґа®ў,   § вҐ¬ - н«Ґ¬Ґ­вл б зҐв­л¬Ё
­®¬Ґа ¬Ё ў Ї®ап¤ЄҐ гЎлў ­Ёп ­®¬Ґа®ў:
A(1), A(3), A(5), ..., A(6), A(4), A(2).

с. „ ­® 楫®Ґ зЁб«® N (> 0). ‘д®а¬Ёа®ў вм Ё ўлўҐб⨠楫®зЁб«Ґ­­л©
¬ ббЁў а §¬Ґа  N, ᮤҐа¦ йЁ© б⥯Ґ­Ё ¤ў®©ЄЁ ®в ЇҐаў®© ¤® N-©:
2, 4, 8, 16, ...

¦. „ ­ ¬ ббЁў A а §¬Ґа  N. ‚뢥бвЁ ҐЈ® н«Ґ¬Ґ­вл ў б«Ґ¤го饬 Ї®ап¤ЄҐ:
A(1), A(N), A(2), A(N-1), Ђ(3), A(N-2), ...

§. „ ­ ¬ ббЁў A а §¬Ґа  N. ‚뢥бвЁ ҐЈ® н«Ґ¬Ґ­вл ў б«Ґ¤го饬 Ї®ап¤ЄҐ:
A(1), A(2), A(N), A(N-1), A(3), A(4), A(N-2), A(N-3), ...

Ё. „ ­® 楫®Ґ зЁб«® N (> 0). ‘д®а¬Ёа®ў вм Ё ўлўҐб⨠楫®зЁб«Ґ­­л©
¬ ббЁў а §¬Ґа  N, ᮤҐа¦ йЁ© N ЇҐаўле Ї®«®¦ЁвҐ«м­ле ­ҐзҐв­ле зЁбҐ«:
1, 3, 5, ...



2. ‚лЇ®«­Ёвм ўв®а®Ґ § ¤ ­ЁҐ Ї® ¬ ббЁў ¬.

 . „ ­ ¬ ббЁў A а §¬Ґа  N. ‘д®а¬Ёа®ў вм ­®ўл© ¬ ббЁў B в®Ј® ¦Ґ
а §¬Ґа , н«Ґ¬Ґ­вл Є®в®а®Ј® ®ЇаҐ¤Ґ«повбп б«Ґ¤гойЁ¬ ®Ўа §®¬:
B(K) = 2*A(K), Ґб«Ё A(K) < 5 Ё«Ё A(K)/2 ў Їа®вЁў­®¬ б«гз Ґ.

Ў. „ ­® зЁб«® R Ё ¬ ббЁў A а §¬Ґа  N. Ќ ©вЁ н«Ґ¬Ґ­в ¬ ббЁў , Є®в®ал©
­ ЁЎ®«ҐҐ Ў«Ё§®Є Є зЁб«г R (в® Ґбвм в Є®© н«Ґ¬Ґ­в A(K), ¤«п Є®в®а®Ј®
ўҐ«ЁзЁ­  |A(K)-R| пў«пҐвбп ¬Ё­Ё¬ «м­®©).

ў. „ ­ ¬ ббЁў а §¬Ґа  N. Ќ ©вЁ ­®¬Ґа  ¤ўге Ў«Ё¦ ©иЁе н«Ґ¬Ґ­в®ў
Ё§ нв®Ј® ¬ ббЁў  (в® Ґбвм н«Ґ¬Ґ­в®ў б ­ Ё¬Ґ­миЁ¬ ¬®¤г«Ґ¬ а §­®бвЁ) Ё
ўлўҐбвЁ нвЁ ­®¬Ґа  ў Ї®ап¤ЄҐ ў®§а бв ­Ёп.

Ј. „ ­ 楫®зЁб«Ґ­­л© ¬ ббЁў а §¬Ґа  N. …б«Ё ®­ пў«пҐвбп ЇҐаҐбв ­®ўЄ®©,
в® Ґбвм ᮤҐа¦Ёв ўбҐ зЁб«  ®в 1 ¤® N, в® ўлўҐбвЁ 0; ў Їа®вЁў­®¬
б«гз Ґ ўлўҐбвЁ ­®¬Ґа ЇҐаў®Ј® ­Ґ¤®ЇгбвЁ¬®Ј® н«Ґ¬Ґ­в .

¤. „ ­ ¬ ббЁў A а §¬Ґа  N. ‘д®а¬Ёа®ў вм ­®ўл© ¬ ббЁў B в®Ј® ¦Ґ
а §¬Ґа  Ї® б«Ґ¤го饬㠯ࠢЁ«г: н«Ґ¬Ґ­в B(K) а ўҐ­ б㬬Ґ н«Ґ¬Ґ­в®ў
¬ ббЁў  A б ­®¬Ґа ¬Ё ®в 1 ¤® K.

Ґ. „ ­ 楫®зЁб«Ґ­­л© ¬ ббЁў A а §¬Ґа  N (<=15). ЏҐаҐЇЁб вм ў ­®ўл©
楫®зЁб«Ґ­­л© ¬ ббЁў B ўбҐ н«Ґ¬Ґ­вл б Ї®ап¤Є®ўл¬Ё ­®¬Ґа ¬Ё, Єа в­л¬Ё
в६ (3, 6, ...), Ё ўлўҐбвЁ а §¬Ґа Ї®«г祭­®Ј® ¬ ббЁў  B Ё ҐЈ®
ᮤҐа¦Ё¬®Ґ. “б«®ў­л© ®ЇҐа в®а ­Ґ ЁбЇ®«м§®ў вм.

с. „ ­ ¬ ббЁў A а §¬Ґа  N. ‘д®а¬Ёа®ў вм ­®ўл© ¬ ббЁў B в®Ј® ¦Ґ
а §¬Ґа  Ї® б«Ґ¤го饬㠯ࠢЁ«г: н«Ґ¬Ґ­в B(K) а ўҐ­ б।­Ґ¬г  аЁд¬ҐвЁзҐбЄ®¬г
н«Ґ¬Ґ­в®ў ¬ ббЁў  A б ­®¬Ґа ¬Ё ®в 1 ¤® K.

¦. „ ­ ¬ ббЁў A а §¬Ґа  N. ‘д®а¬Ёа®ў вм ­®ўл© ¬ ббЁў B в®Ј® ¦Ґ
а §¬Ґа  Ї® б«Ґ¤го饬㠯ࠢЁ«г: н«Ґ¬Ґ­в B(K) а ўҐ­ б।­Ґ¬г  аЁд¬ҐвЁзҐбЄ®¬г
н«Ґ¬Ґ­в®ў ¬ ббЁў  A б ­®¬Ґа ¬Ё ®в K ¤® N.

§. „ ­л ¤ў  ¬ ббЁў  A Ё B а §¬Ґа  5, н«Ґ¬Ґ­вл Є®в®але гЇ®а冷祭л
Ї® ў®§а бв ­Ёо. ЋЎкҐ¤Ё­Ёвм нвЁ ¬ ббЁўл в Є, зв®Ўл १г«мвЁагойЁ©
¬ ббЁў C (а §¬Ґа  10) ®бв «бп гЇ®а冷祭­л¬ Ї® ў®§а бв ­Ёо.

Ё. „ ­л вਠ楫®зЁб«Ґ­­ле ¬ ббЁў  A, B Ё C а §¬Ґа  N(A), N(B), N(C)
ᮮ⢥вб⢥­­®, н«Ґ¬Ґ­вл Є®в®але гЇ®ап¤®зҐ­л Ї® гЎлў ­Ёо. ЋЎкҐ¤Ё­Ёвм
нвЁ ¬ ббЁўл в Є, зв®Ўл १г«мвЁагойЁ© 楫®зЁб«Ґ­­л© ¬ ббЁў D
(а §¬Ґа  N(A) + N(B) + N(C)) ®бв «бп гЇ®а冷祭­л¬ Ї® гЎлў ­Ёо.