.


:




:

































 

 

 

 





program Tabsqrt;

Var

i: integer;

procedure Line (n:integer;c:char); { }

Var

i: integer;

Begin

for i:=1 to n do write(c);

Writeln;

end;

begin { }

Writeln( );

Line (14,=);

Writeln ( );

Line (14,=);

for i:=1 to 5 do begin

Writeln (i:5, ,Sqrt(i):6:3);

Line (14,-);

end;

end.

 

:

 

==============

==============

1 1,000

------------------------

2 1,414

------------------------

3 1,732

------------------------

4 2,000

-----------------------

5 2,236

----------------------

Line, . . Line (, ) .

var, . .

 


- -.

. .

, , .

, , .

var, , -. - (. . -) , , . - .

SqLeOkr.

 

program sqring;

Var

{ }

r,l,s:real; {, }

{ }

procedure SqLeOkr (r:real; var s:real; var l:real);

{r - ,s - , l - }

Const

pi=3.14159;

Begin

s:=pi*r*r;

l:=2*pi*r;

end;

{ }

Begin

Writeln ( :);

Write ( <Enter>);

Readln (r);

l:=0; s:=0;

SqLeOkr (r,s,l);

{ }

Writeln ( :,r:6:3);

Writeln (: , l:6:3, : , s:7:3);

end.

.

Pascal , , . . , , , . .

, , . ( ), .


:

program p;

Var

x: integer; { }

procedure p1;

Var

y: integer; { }

Begin

{ x y}

end;

Begin

{ x}

{ y }

end.

 

p1 , , , p1 . . , .

, , , .


, :

 

program p;

Var

i:integer;

procedure proc;

Var

i:integer;

Begin

i:=100;

end;

Begin

i:=1;

proc;

writeln(i);

end.

 

1, proc i, .

, .

program p;

Var

name: string [10]; { }

procedure GetName;

Begin

Write( );

Readln(name);

end;

begin { }

GetName

Writeln(name);

end.


, GetName .

 

?

, . .

 


procedure SoprPar (r1,r2,r3:real; var sr:real);

 

Begin

sr:=(r1+r2+r3)/(r1*r2*r3);

end;

function SoprPar (r1,r2,r3:real):real;

Var

sr:real;

Begin

sr:=(r1+r2+r3)/(r1*r2*r3);

SoprPar:=sr;

end;


 

, , . , sr:= SoprPar (r1,r2,r3); SoprPar (r1,r2,r3, sr);.

 

, ?

:

, , .

 


10.

. . , , .

:

, : , , , . .


10:

 

 






:


: 2015-10-19; !; : 586 |


:

:

, ,
==> ...

741 - | 735 -


© 2015-2024 lektsii.org - -

: 0.024 .