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: