- 2004
. . . , . .
29 2003 . ( 2).
充..4
充5
1. ...7
2. .13
2.1. 酅.13
2.1.1. 腅14
2.1.2. ⅅ15
2.1.2.1. () ..15
2.1.2.2. 16
2.1.2.3. ...17
2.1.2.4. 19
2.2. 酅20
2.2.1. 酅...20
2.2.2. .22
2.2.3. ...23
2.3. .25
2.3.1. , 녅....25
2.3.2. ()...28
2.3.2.1. .28
2.3.2.2. .30
3. 腅.31
4. PASCAL.33
5. PASCAL.34
6. PASCAL ...37
.40
C , , , , MS Office.
, , , , , .
|
|
.
Borland Pascal, Pascal.
.
Pascal Borland Pascal (Turbo Pascal), , Pascal .
, [2].
, , , [1], , .
Pascal.
, [1, . 5-7], :
; ;
; ;
; .
, .
.
, , (). , , , , .
, , (), .
Pascal [1, . 58-61] :
; ;
; ;
; .
Pascal :
; ( );
; ( );
; ( );
; ( ).
.
:
rogram primer1;
primer1 , .
[1, . 59-61] , , , , , , .
|
|
:
Const
n=50;
k=25.5;
:
Var
a, b: real;
i, k: integer;
X: array [1..20] of real;
Y: array [1..10,1..10] of integer;
, a b , i k , X , 20- , Y ( 10*10), .
[1, .46] begin end, , end .
.
.
:
a:=1;
b:=5;
x:=a+b;
y:=1-3.4*c;
z:=d*x+2.5*y-1.53;
, , , .
:
sin(x), cos(x), ln(x), exp(x), sqrt(x) . sinx, cosx, lnx, ex, Öx .
read, readln, write, writeln.
- :
readln(b1,b2,,bn); ( )
writeln(b1,b2,,bn); ( )
b1,b2,,bn - , .
begin end , .
Pascal , .
, .
Pascal , [1, . 51 - 54]. if.
if:
if _ then 1 lse 2;
1, 2 .
, begin - end.
if:
1) ;
2) , true (), 1, - 2;
3) , if.
if else:
if _ then 1;
1 , _ true (), , if.