| m n | |
| program -; | program primer; var x,y: integer; |
| procedure (); | procedure swap(var m,n:integer); |
| var s: integer; | |
| begin | begin |
| s:=m; m:=n; n:=s | |
| end; | end; |
| BEGIN | BEGIN |
| read(x,y); swap(x,y); writeln(x:10,y:10) | |
| END. | END. |
| (n) (m) | |
| program -; | program primer; var x,y: integer; |
| function (): -; | function power(m,n:integer):integer; |
| var s,i: integer; | |
| begin | begin |
| s:=1; for i:=1 to n do s:=s*m; power:=s | |
| end; | end; |
| BEGIN | BEGIN |
| read(x,y); writeln(power(x,y)) | |
| END. | END. |
III.
| () | () | |
| () | char | 'a' |
| #13 | ||
| string | '' | |
| ''#13#10':' |
| length(s) | n:=length(s) | |
| pos(s1,s2) | s1 s2 ( ) | n:=pos('+',s) |
| copy(s,p,n) | s n, p | c:=copy(s,4,2) |
| concat(s1,s2,s3,...sn) | ( ) | c:=concat(s,';',t,'.') |
| upcase(c) | ( ) | c:=upcase(c) |
| chr(n) | n | c:=chr(n) |
| ord(c) | c | n:=ord(c) |
| succ(c) | ASCII | c:=succ(c) |
| pred(c) | ASCII | c:=pred(c) |
| delete(s,p,n) | s n, p | delete(s,n,1) |
| insert(s1,s2,p) | s1 s2, p | insert('+',s,1) |
| val(s,x,r) | s x r | val(s,x,nan) |
| str(x:f,s) | x s f | str(x:10,s) |
| str(x:10:2,s) | ||
| s1 + s2 | ( ) | s:=s+';'+t+'.' |
| () | [ - ] | const a = [ 0..100 ]; |
| () | set of [ - ] | var a: set of [ '0'..'9', '+', '-' ]; |
| const A = [ 'A'..'Z', 'a'..'z' ]; | |
| const B = [ 'a'..'z' ]; | |
| const C = [ ''..'', ''..'', ''..'', '', '' ]; | - |
| const D = [ ''..'' ]; | - |
| const M = [ '0'..'9' ]; | 0 9 |
| const N = [ 0..100 ]; | 0 100 |
|
|
|
| var a set of [ 'A'..'Z', 'a'..'z' ]; | |
| var b set of [ 'a'..'z' ]; | |
| var c set of [ ''..'', ''..'', ''..'', '', '' ]; | - |
| var d set of [ ''..'' ]; | - |
| var m set of [ '0'..'9' ]; | 0 9 |
| var n set of [ 0..100 ]; | 0 100 |
| 1 + 2 | 1 2 | ['0'..'9'] + ['+'] |
| 1 - 2 | 1 2 | ['a'..'z'] - ['x'..'z'] |
| 1 * 2 | 1 2 | ['a'..'m'] * ['c', 'i', 'n'] |
| true | ||
| in | not (s[i] in ['a'..'z']) | |
| 1 = 2 | 1 2 | |
| 1 <> 2 | 1 2 | |
| 1 < 2 | 1 2 | |
| 1 <= 2 | 1 2 2 | |
| 1 > 2 | 1 2 | |
| 1 >= 2 | 1 2 2 |
IV.
| () | text | var t: text; |
| file of - | var a: file of integer; |
| read(, ) | read(t,a,b,c); | |
| readln(, ) | readln(t,a,b,c); | |
| write(, ) | write(t,x,y,z); | |
| writeln(, ) | writeln(t,x,y,z); | |
| assign(, ) | assign(t,'c:\text\info.txt'); | |
| reset() | reset(t); | |
| rewrite() | rewrite(t); | |
| close() | close(t); | |
| eof() | , true () | while not eof(t) do read(t,a); |
| eoln() | , true () | while not eoln(t) do read(t,a); |
| = record | type data = record |
| -1: -1; | x:integer; |
| -2: -2; | y:integer; |
| -N: -N; | t:string; |
| end; | end; |
| var a1, a2, a3: data; |
| -: ^-; | var pdata: ^data; |
| -^ | pdata^:= 0; |
| new(-) | ( ) | new(pdata); |
| dispose(-) | (:=nil) | dispose(pdata); |
| () | |
| = object (-) | type donkey = object (animals) |
| -1: -1; | x:integer; |
| -2: -2; | y:integer; |
| -N: -N; | t:string; |
| -1(); | function run(m:string):boolean; |
| -2(); | procedure show; |
| -N(); | procedure hide; |
| end; | end; |
| var a1, a2, a3: donkey; |
|
|
|
