информа / _Pascal10 / 01 / urok1p

-------------| BorlandPascal 7.0 |--------------
-------------| Ћб­®ў­лҐ Є®­бвагЄжЁЁ п§лЄ  |--------------

Program Primer; {- ­ §ў ­ЁҐ Їа®Ја ¬¬л}
{demo} {- Є®¬¬Ґ­в аЁ©}
Uses CRT; {- а §¤Ґ« ®ЇЁб ­Ёп ¬®¤г«Ґ©}
Var a, s: integer; {- а §¤Ґ« ®ЇЁб ­Ёп ЇҐаҐ¬Ґ­­ле}


Begin {- ­ з «® ®б­®ў­®Ј® Ў«®Є  Їа®Ја ¬¬л}
{- Їа®жҐ¤га  ®зЁбвЄЁ нЄа ­  (ЇаЁ¬Ґа ЁбЇ®«м§®ў ­Ёп ¬®¤г«п CRT)}
ClrScr;

{- ўлў®¤ ­  нЄа ­ бва®ЄЁ "Ќ ¦¬ЁвҐ ..."}
Writeln('Ќ ¦¬ЁвҐ ENTER');

{- ®¦Ё¤ ­ЁҐ ­ ¦ вЁп ENTER}
Readln;

{- ўлў®¤ ­  нЄа ­ бва®ЄЁ "‚ўҐ¤ЁвҐ ..."}
Write('‚ўҐ¤ЁвҐ зЁб«®: ');

{- бзЁвлў ­ЁҐ зЁб«  ў ЇҐаҐ¬Ґ­­го  }
Readln(a);

{- ®ЇҐа в®а ЇаЁбў Ёў ­Ёп}
s:= a+5;

{- ўлў®¤ ­  нЄа ­ бва®ЄЁ "‚л ўўҐ«Ё ..." Ё §­ зҐ­Ёп ЇҐаҐ¬Ґ­­®© s}
Writeln('‚л ўўҐ«Ё зЁб«® a, а ў­®Ґ ', s);

{- ўлў®¤ Їгбв®© бва®ЄЁ}
Writeln;
End. {- Є®­Ґж Їа®Ја ¬¬л}

_________________________________________________________
‡ ¤ ­ЁҐ:
1. Ќ ЇЁб вм Їа®Ја ¬¬г б㬬Ёа®ў ­Ёп зЁбҐ«.

2.  . „ ­  бв®а®­  Єў ¤а в  a. Ќ ©вЁ ҐЈ® ЇҐаЁ¬Ґва Ё Ї«®й ¤м.
Ў. „ ­л бв®а®­л Їаאַ㣮«м­ЁЄ  a Ё b. Ќ ©вЁ ҐЈ® Ї«®й ¤м Ё ¤«Ё­г ¤Ё Ј®­ «Ё.
ў. „ ­ ¤Ё ¬Ґва ®Єаг¦­®бвЁ d. Ќ ©вЁ ҐҐ ¤«Ё­г (pi = 3.14) Ё Ї«®й ¤м.
Ј. „ ­  ¤«Ё­  аҐЎа  ЄгЎ  a. Ќ ©вЁ ®ЎкҐ¬ ЄгЎ  Ё Ї«®й ¤м ҐЈ® Ї®ўҐае­®бвЁ.
¤. „ ­л ¤«Ё­л ॡҐа a, b, c Їаאַ㣮«м­®Ј® Ї а ««Ґ«ҐЇЁЇҐ¤ . Ќ ©вЁ
ҐЈ® ®ЎкҐ¬ Ё Ї«®й ¤м Ї®ўҐае­®бвЁ.
Ґ. „ ­л ¤ў  зЁб«  a Ё b. Ќ ©вЁ Ёе б।­ҐҐ  аЁд¬ҐвЁзҐбЄ®Ґ Ё б।­ҐҐ
ЈҐ®¬ҐваЁзҐбЄ®Ґ.
с. „ ­л Є вҐвл Їаאַ㣮«м­®Ј® ваҐгЈ®«м­ЁЄ  a Ё b. Ќ ©вЁ ҐЈ® ЈЁЇ®вҐ­г§г
Ё ЇҐаЁ¬Ґва P.
¦. „ ­л ¤ў  ЄагЈ  б ®ЎйЁ¬ 業в஬ Ё а ¤Ёгб ¬Ё R1 Ё R2 (R1>R2). Ќ ©вЁ
Ї«®й ¤Ё нвЁе ЄагЈ®ў,   в Є¦Ґ Ї«®й ¤м Є®«мж , ў­Ґи­Ё© а ¤Ёгб Є®в®а®Ј®
а ўҐ­ R1,   ў­гв७­Ё© а ¤Ёгб а ўҐ­ R2.
§. ђҐиЁвм «Ё­Ґ©­®Ґ га ў­Ґ­ЁҐ Ax + B = 0, § ¤ ­­®Ґ бў®Ё¬Ё Є®нддЁжЁҐ­в ¬Ё
A Ё B (Є®нддЁжЁҐ­в A <> 0).
Ё. Ќ ©вЁ §­ зҐ­ЁҐ дг­ЄжЁЁ y = 4(x-3)^6 - 7(x-3)^3 + 2 ЇаЁ ¤ ­­®¬ x.