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. |