.


:




:

































 

 

 

 





. . VAR (), , .

:

Var < 1>:< 1>;

< 2>:< 2>;

......................................

< N>:< N>;

: var i, j, k, n, m:integer;

x, y, z, max, min:real;

uslov:boolean;

simvol:char;

a,b: array[1..15] of real;

d, cd:array[1..5,1..7} of integer;

S, dad:month;

- , , , .

Turbo Pascal . . . , . .

. PROCEDURE FUNCTION, .

, ( ).

:

Function < > (< >:< >,...):< >;

< , , >;

{ }

Begin

< >:=<>; { }

End;

: y=xn.

function stepen(n:integer; x:real):real;

var i:integer;

Begin

stepen:=1;

for i:=1 to n do stepen:=stepen*x;

End;

stepen(9,alfa);

(, ) . , .

-

.

:

Procedure < > (< .1 >,< .2 >,... < .n >,):;

< , , >;

{ }

Begin

< >; { }

End;

( ), var. . .

Turbo Pascal , . ; . Turbo Pascal : ().

, , . : , , .

(:=) , , , . .

:

< >:=<>;

: alfa_67:= (sqrt(a)-exp((b-c)*ln(2.5+1/a)))/(d+ln((a+b)*c)/ln(3));

(goto) , , - , .

:

GOTO <>;

: goto 36; goto beta8;

.

:

< >( );

: ClrScr; { }

InitWork(a,b,c,d); { }

. .

:

BEGIN

GOTO <>; { }

<>: { }

END;





:


: 2015-11-05; !; : 2301 |


:

:

,
==> ...

1751 - | 1685 -


© 2015-2024 lektsii.org - -

: 0.011 .