, -
!!! .
( ).
1. ( )
4, : 2,5 , 1,5 .
(, , , . , ..) .
- :
: Times New Roman,
: 14,
: ,
: ,
( 1,25 )
- :
: Times New Roman, ,
: 14,
:
: Times New Roman,
: 14,
:
- :
: Courier New,
: 11 12,
: ,
: ,
. .
.
(.. , ).
.
!
.
2.
1) .
2) (, , ) . ( , ).
: Times New Roman, 12, .
3) :
<_> <_>
!
4) /
5) . , , ..
:
1
2.3
3
4.4
5 n
( ):
1 //
|
|
|
1. .
3.4 ,
( : <_>)
3.4 Vvod
( : )
3.4 Obrabotka
( : )
6) . , , (, , , , ).
:
1) 1.
1
2) 2 n . , , . , , .
2 n
3) 3 n .
3 n
3.
1) , ( ) , (. 3.1).
3.1
Turbo Pascal 7.0 , .
2) (, , ) .
:
Courier New, 11 12, , .
3) , , .
:
function MatrixSummation(); //
procedure SortByMax(); //
var num_colls: integer; //
var InputFileName: string; //
function Print2DMatrixToScreen(); //
:
procedure Processing(); // ,
procedure Vvod(); // .
var aaa: integer; //
var my_array: array of integer; // my ,
: i, j, k, p, t, s ( i1, i2, j1, j2,). - .
. , ( , ).
|
|
|
4) (. 3.2 3.3)
:
, .
.
3.2
Function SaveToFile(file_name: String, radius: Real, square: Real): bool;
const MAX_SIZE_OF_ARRAY = 100;
var number: integer;
Begin
number: = 1;
end.
5) - , (, ), . .
3.3
const MAX_SIZE_OF_ARRAY = 100;
Var
my_array1: array[0MAX_SIZE_OF_ARRAY] of real; //
my_array2: array[1100] of real; //
i, size: integer;
begin
for i:=1 to size do //
for i:=1 to 7 do //
end.
6) (. 3.4)
| 3.4 () Program FormatExample; // type var a,b: real; // // // -------------------------------------- function Sqare(); begin end; // -------------------------------------- procedure OutputData (); begin end; // -------------------------------------- // begin repeat if(a>b) thenWriteln ( ); if() then begin for () do begin end; else begin repeat until (); end; until (); end. | 3.4 ( ) Program FormatExample; // type var a,b: real; // // // -------------------------------------- function Sqare(); begin end; // -------------------------------------- procedure OutputData (); begin end; // -------------------------------------- // begin // repeat if(a>b) thenWriteln ( ); if() then begin for () do begin end; else begin repeat until (); end; until(); end. |
7) :
- , ,
-
-
(. 3.5)
3.5
Program IntegralLeftRect;
//
//
var a,b,c: real; //
integral: real; //
eps: real; //
n: integer; //
Begin
//
// eps
Repeat
// n
until () // ,
// n 2n
//
//
End.
4.
. . , .
:
<_> - <>
5.
1) . (. )
2)
|
|
|
3) , .
4) , . , , ( ) , , .
5)
6) , , , . , , .
8) ,
| 5.1. | |
 m ,
n ,
| 
|
| 5.2. , . , | |
  
|   
|
| 5.3. , .. , . | |
| 
(
, )
|
| 5.4. , . . | |
 
|  
|
6.
1. :
) ,
) / . :
-
- ( ), , , ..
,
(, Esc)
, , , .
:
[0,..,100], N =
( ) A[1] =
.
, .
:
:
: 2
: 3
:
2.0 -3.0 5.2
-1.2 2.4 7.1
, Enter - Esc -
) . , ( , , x = 25 .
|
|
|
2. ( -). . , , 3 : , . - , .
,
- , , ,
- ( ) , .
.
