Pascal
| Boolean (1 ) 0- false 1- true | Pointer (4 ) | ||||||||
| Real (6 ) | Char (1 ) | String (256 ) | |||||||
| ShortInt (1 ) -128-+127 | Integer (2 ) -32768.. +32767 | LongInt (4 ) -231..231-1 | 1) Byte (1 ) 0..255 | 2) Word (2 ) 0..65535 | |||||
.
() 0
 |
1
1 1
2 ( )
, .
.
+ - 0
- - 1
.
- ShortInt
- LongInt
4
Pascal
| Uses Const Type Var Label Function Procedure Begin < > End. |  -
-
-
-
-
-
-
 -
-
|
Const < 1> = <1>;
< 2> = <2>;
..
Const n=5;
Pi=3.141592;
Ch=a;
MyStr=I love you!;
Ok=true;
, , , , , , , , , . 128 Pascal. 63.
| A | () |
| Omega | Ω() |
| _123 | 123_( ) |
, .
Var < 1>: < 1>;
< 2>: < 2>;
< 3>: < 3>;
..
Var a:byte;
Ch:char;
MyST:Srting;
B,c,d:real;
{ }
Type < >< , , >;
.
Vector=array[1..5] of real;
Matrix=array[1..10] of Vector;
Real=Byte; {, }
.
, , .
| not | * / Div Mod and | + - or | > < >= <= <> Xor |
Not
*
/
Div
|
|
|
Mod
And , ()
+
-
Or , ()
>
<
>= ,
<= ,
<>
Xor , 2
| And | Or | Xor | Not | |||||||
| a | b | a and b | a | b | a or b | a | b | a xor b | a | Not a |
Sin x => sin(x)
Cos x => cos(x)
x2 => sqr(x)
 => sqrt(x)
ex => exp(x)
|x| => abs(x)
Ln x => ln(x)
Trunc(x)
Round(x)
Int(x)
Frac(x)
Random(x)
Arctan x => arctan(x)
Frac (x)
| 2 (Real) |
ai a[i]
aij a[i,j] a[i][j]
c[i[k]]
1) a:=5;
a:=b;
a:=sin(sqrt(x)+5);
2) ( ) begin
end;
3) if < > then <>
[else <>];
{max(a,b), min(a,b)}
Var a,b: real;
Min,max: real;
Begin
Write( 2 );
Readln(a,b);
If a=b then write ( ) else
If a>b then begin
Max:=a;
Min:=b;
Write(max ,max,min ,min);
End else
Max:=b;
Min:=a;
Write(max ,max,min ,min);
End;
End.
:
else
