.


:




:

































 

 

 

 


-,

5

-

 

-.

 

5.2.1 (. 5.1) y.

5.2.2 - .

5.2.3 .

5.2.4 x, y .

5.2.5 .

5.2.6 :

- ;

- ;

- .

5.2.7 .

5.2.8 .

 

-,

5.3.1 .

- . , .

. , .

: , forward (. 5.3.2).

- / :

Program Name_Prog;

{ () }

uses...

const...

type...

var...

{ 1}

Procedure Proc1 (...);

Const...;

Type...;

Var...;

Begin

End;

{ 2}

Procedure Proc2 (...);

Const...;

Type...;

Var...;

Begin

End;

{ 1}

Function Func1 (...):Real;

Const...;

Type...;

Var...;

Begin

End;

{ }

Begin

....... { )

End.

, . , , , . , .

, .

 

5.3.2 . .

, , (.. - , ).

, . , . , .

:

Procedure <> (< >) <>;

Const...;

Type...;

Var...;

{ }

Begin <>

End;

<> - , ., Proc1.

- () , ., Step:real,

Mas: _mas,..., .

-, - ( Var), ( Procedure) - ( Function), , Var .

<> - : Interrupt, External, Assanbler, Inline, Forward.

Forward. , , Forward, .

:

< >{< >);

, .. ; ; .

, -.

, . , , .

, , . , .. .

 

. - . - , "" , "" - .

 
 

 
 

. 5.1. . 5.2. - .

, , , . . , . - . 5.1.

 

procedure Outp(a: massiv; N,M: integer);

var i,j:integer;

begin

for i:=1 to N do

begin

for j:=1 to M do

write (a[i,j]);

writeln;

end;

end;

 

, . , , , - massiv. , (5x3) Outp(C,5,3).

, , , , . , , , -. - - (. . 5.2).

procedure Inp(var A:massiv; N,M:integer);

var i,j:integer;

begin

for i:=1 to N do begin

for j:=1 to M do read(a[i,j]); readln;

end; end;

 

1. . t , , x .

{ }

Program primer1;

var

y: real;

procedure Vvod(t:string; var x:real);

begin

Writeln(t);

Readln(x);

end;

Begin

Vvod( A,A); { Vvod}

Vvod( B,B); { Vvod}

y:=a*b;

Writeln(y=, y:5:3);

End.

 

5.3.3 . .

, - . , , .

, , . function, () , , , . , :

Function <>[(< >)]:< >

Const...;

Type...;

Var...;

Begin

<>

End;

<> - , ., Fun1;

< > - () , ., Step:real, Mas: Type_mas,.... ;

< > - , . Integer, Real, .

, . .

. , .

2. (n+1)

Program Primer2;

var y:real; n:integer;

Function Factorial (n:integer): Real;

Var

i, f: integer;

Begin

i:=1;

f:=1;

while i<=n do

begin

f:=f*i;

i:=i+1;

end;

Factorial:=f;

End;

Begin

writeln( n);

readln(n);

y:=Factorial(n+1);

writeln( =,y:3:2);

End.

 

- , , . , .

 

5.3.4 -.

- . , .

(, , , ) , . .

, . , , , , .

3. :

.

, . , . - - . 5.6.

 
 


 

. 5.6. - 3.

 

program Expression;

var x,:real;

procedure Vvod(t:string; var x:real);

begin

Writeln(t);

Readln(x);

end;

function lg(x:real):real; { }

begin

lg:=ln(x)/ln(10)

end;

function tg (x: real): real; { }

begin

tg:=sin(x)/cos(x)

end;

BEGIN

vvod(' ',x);

y:=lg(sqr(tg(x))+sqr(cos(x)))/sqr(tg(x+sqr(lg(x)))+sqr(sin(x));

writeln('y=',y:10:4);

END.

 

:

3.4
= 0.0045

 


1.

function step(x,a:real):real;

begin

step:=exp(a*ln(x));

end;

 

2. arccos (x)

function arccos(x:real):real;

begin

arccos:=1/cos(x);

end;

 


5. 5.1. ?

5.5.2. ?

5.5.3. ?

5.5.4. -?

5.5.5. - - ?

5.5.6. ?

5.5.7. ?

5.5.8. .

5.5.9. .

5.5.10. ?

5.5.11. - -, ?

5.5.12 ? ?

 

 


1.

1. 2.
3. 4.
5. 6.
7. 8.
9. 10.
11. 12.
13. 14.
15. 16.
17. 18.
19. 20.

 



<== | ==>
|
:


: 2016-09-03; !; : 468 |


:

:

, .
==> ...

795 - | 770 -


© 2015-2024 lektsii.org - -

: 0.073 .