.


:




:

































 

 

 

 


. . . . .




) , () . N1, ,Nm, T1, ,Tm, . , , , . r.Ni, r , Ni N1, ,Nm. Record N1:T1; .. Nm:Tm; End. ) ????? ) , N1, ,Nm. f(N1) Ti i = 1, ,m . m, , tiTi. Real2=RealReal {<t1,t2>,t1real,t2real} , . type tTochka=record x,y: real; end; {x,y } record ugol,radius:real; end; { } ) : with r do s, r , s , r.Ni Ni. : S, Ni r.Ni. ) -???????    

13

, - , . .

: set of T, .

:

set of T a1, ,an . . , a1, , an .

[E1, , En], Ei , i1 Ej2, i1 Ej2 , [2,2,1,,7].

: , , , , .

:

 

1) [1, 2, 3, 4] * [3, 4, 5, 6] => [3, 4]

2) [a..z]*[A..E, k] => [k]

3) [5<4, true and false] * [true] => []

 

 

1. .

X in S ~ XÎS

S1<=S2 ~ S1 S2

2. - .

S1+S2 ~ S1ÈS2

S1*S2 ~ S1ÇS2

S1-S2 ~ S1\ S2

3. - .

( ).

Fs(x)=true(~)xÎS

- , .

x Î S ~ Fs(x) =true

S1 S2 ~ " x Î S1 (x Î S2)

x Î S1 È S2 ~ fs1(x) or fs2(x)

x Î S1 Ç S2 ~ fs1(x) and fs2(x)

x Î S1\ S2 ~ fs1(x) and not fs2(x)

 

.

((x>=1)and(x<=10)) or ((x>=20)and(x<=40))

x:n[1..10]+[20..40]

 

n.

 

Program Eratos(input,output);

Type tNumbers=0,255;

Var n:integer;

Primes: set of tNumbers;

Numbers: set of tNumbers;

Begin

Read(n);

Numbers:=[2,n]

Primes:=[ ];

While not (p:n numbers) do p:=p+1;

P:=p+1;

While k<=n do

begin

Numbers:=numbers[k];

K:=k+p;

end;

For k:=1 to n do if k:n primes then write(k);

end.

14

- , .

 

.

 

(. . ).

.

 

.

.

text (textfile)

, , Var.

Var f: text;

.

()

text integer, real, char, string.

1. assign (AssignFile)

( , ) ( ). assign .

Assign( (, ), ( ))

:

Assign(f,c:\dir\file.txt);

2. Eof(f); . , .

3. Read(f, v1, , vn); Write(f, e1, , em); .

4. Reset(f);

() . reset read, f. Input Output , .

5. Rewrite(f);

, write, f.

reset rewrite input output. .

6. close(f) (CloseFile(f))

assign, . , .

:

, text , , . . , , .

: c1cn

ci= 0,1,

: c1cn.d1dm .

DEP , D , P . DEP = D10P

: readln(f) , writeln(f) .

readln(f,x1,,xn) Û read(f,x1,,xn); readln(f);

writeln(f,e1,,en)Û write(f,e1,,en); writeln(f);

 

.

file of T, Җ , .

: , .

: Assign (AssignFile), reset, rewrite, eof, close (CloseFile) . read write , .

Read(f,v), f , v .

Write(f,e), f , .

readln, writeln, eoln .


file - .

same

 

( ).

 

() {

- X n, n - X :

X^n X^xn.

n. X^n X n. R^3 ( ), 3 R.

n = 0, X^0 , .

 

 

- ( ).

Your own example.

 

15

) . , .. , . , , . , .. , .





:


: 2016-11-23; !; : 865 |


:

:

, , . , .
==> ...

1566 - | 1397 -


© 2015-2024 lektsii.org - -

: 0.018 .