информа / _Pascal10 / 02 / UROK2P

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

‚Ґвў«Ґ­ЁҐ ў Pascal:

If .. then If .. then
Begin Begin
... ...
End; End
Else
Begin
...
End;

‘зҐвзЁЄ б«гз ©­ле зЁбҐ« (­  ЇаЁ¬ҐаҐ):
Randomize; - Їа®жҐ¤га . ЏаЁўп§лў Ґв ­ з. §­ зҐ­ЁҐ Random Є
бЁб⥬­®¬г ўаҐ¬Ґ­Ё.
a:= Random(100); - д®а¬Ёа®ў ­ЁҐ ЇбҐў¤®б«гз ©­®Ј® зЁб« .

–ЁЄ«л ў Pascal:

€вҐа жЁ®­­лҐ:

Repeat While (гб«.) do
begin
... ...
Until (гб«.) end


„ҐвҐа¬Ё­Ёа®ў ­­л©:

i - бзҐвзЁЄ жЁЄ« 
For i:= <­.§.> to <Є.§.> do
begin
...
end
_________________________________________________________
‡ ¤ ­ЁҐ:
1. Ќ ЇЁб вм Їа®Ја ¬¬л б㬬Ёа®ў ­Ёп зЁбҐ« ®в 1 ¤® 100, ЁбЇ®«м§гп ўбҐ
жЁЄ«ЁзҐбЄЁҐ Є®­бвагЄжЁЁ (Repeat..Until, While..Do, For..to). Ќ ©вЁ
б।­ҐҐ  аЁд¬ҐвЁзҐбЄ®Ґ нвЁе зЁбҐ«.
2. Ќ ЇЁб вм Їа®Ја ¬¬г а бзҐв  §­ зҐ­Ёп дг­ЄжЁЁ ‘. €бЇ®«м§®ў вм
гб«®ў­л© ®ЇҐа в®а.

{ px-sqrt(x^3-1,5)-sin(x) }
 . { C= ------------------------------- }
{ sqrt(ln(|x^2-p/(x^2+1,5)|+0,2)) }

{ ln(3a+x^3) }
Ў. { C= ------------------------------- }
{ |2(5*x^2-5)| }

{ 2x^3-20+sin(2x) }
ў. { C= ------------------------------- }
{ sqrt(px-3,4) }

{ exp(-sqrt(x^5-6)) }
Ј. { C= ------------------------------- }
{ (x-4)p }

{ sqrt(x^2-6x+2p)-cos(x) }
¤. { C= ------------------------------- }
{ ln(|x^4-5/(x+15)|+0,2) }

{ x^4-2x^3+6x-3 }
Ґ. { C= ------------------------------- }
{ sqrt(ln(2x)-5p) }

{ x-sqrt(sin(x^2)) }
с. { C= ------------------------------- }
{ (x^3-8)*2p }

{ sin(x)+cos(3x) }
¦. { C= ------------------------------- }
{ sqrt(x^2-2x+4) }

{ 8x+13px^4-exp(0.2x) }
§. { C= ------------------------------- }
{ x^3-15p }

{ 3p+12x/(12-x) }
Ё. { C= ------------------------------- }
{ sqrt(2x-4x^2+5) }