) , () . 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
) . , .. , . , , . , .. , .