MAX:=A[1];
FOR I:=2 TO N DO
IF (a[i]>max)then
begin
max:=a[i];
end;
ϳ
a b
a b
exp(b * ln(a))
Pascal :
+ ;
;
* ;
/ ;
div ;
mod .
128 5, 25 128 div 5, , 3 128 mod 5, : 128 div 5 = 25; 128 mod 5=3.
Abs(x) . | |. 䳿 Abs , Real .
Sqr(x) . 2. 䳿 Sqr , Real .
Sqrt(x) . . 䳿 Sqrt Real .
, , .
Exp(x) . . 䳿 Exp Real .
Ln(x) . ln . 䳿 Ln Real .
.
Sin(x) c . Sin . 䳿 Sin Real .
Cos(x) c . Cos. 䳿 Cos Real .
Arctan(x) . arctg . 䳿 Arctan Real p/2 + p/2.
Round(x) , . 䳿 Round IntegerLongint .
Trunc(x) : . 䳿 Trunc IntegerLongint .
Frac(x) : , . 䳿 Frac IntegerLongint .
Odd(x) , . 䳿 Odd Boolean true, false .
Int(x) , , , trunc, 䳿 trunc, 䳿 Int real.
|
|
Length(st) st. , . , st[0], , st[0], a ord(st[0])!
Copy(st, m, n ) stn , m. .
Concat(st1, st2) ᒺ . , +, .
Val(st, m, kod) st m. kod<> 0, .
Str(m, st) , val.
Delete(st, m, n) n m st.
Insert(st2, st1, n) st1 st2 n.