: ; .
Delphi Win32 Language .
( ) ( 1):
1
| |||
Real48 | -2.9 1039.. 1.7 1038 6 | ||
Single | -1.5 1045 .. 3.4 1038 4 | ||
Double | -5.0 10324.. 1.7 10308 8 | ||
Extended | -3.6 104951.. 1.1 104932 10 |
( ) ( 2):
2
Shortint | -128..127 | 8 | |
Smallint | -32768..32767 | 16 | |
Longint | -2147483648..2147483647 | 32 | |
Int64 | -263..263-1 | 64 | |
Byte | 0..255 | 8 | |
Word | 0..65535 | 16 | |
Longword | 0..4294967295 | 32 |
( Char) , .
( Boolean) : False () True ().
, , .. .
, , ( Const), , ( Var) , .
3
3.
1 | +, - not | |
2 | *, / div, mod and | , |
3 | +, - or, xor | , |
4 | =,<>,<,>,<=,>= | () |
|
|
. .
div , mod , :
(9 - 2) div 2 = 3; 7 mod 2 = 1
( 4) SysUtils Math, uses:
4
, | |||
abs(x) | integer, real | integer, real | │x│ |
arctan(x) | integer, real | real | arctg(x) |
cos(x) | integer, real | real | cos(x) |
sin(x) | integer, real | real | sin(x) |
exp(x) | integer, real | real | ex |
ln(x) | real, real | real | ln(x) |
sqrt(x) | integer, real | real | √x |
sqr(x) | integer, real | integer, real | x2 |
ord(x) | integer | ASCCI- | |
succ(x) | |||
pred(x) | |||
round(x) | real | integer | |
trunk(x) | real | integer | |
int(x) | real | real | |
frac(x) | real | real | |
odd(x) | integer | boolean | True (-), False (-) |
random(range) | integer | integer | x 0<= <range |
random | - | real | x 0<= x<1 |
uppercase(x) | char | char | |
lowercase(x) | char | char | |
, | |||
inc(x,n) | integer | integer | n |
inc(x) | integer | integer | 1 |
dec(x,n) | integer | integer | n |
dec(x) | integer | integer | 1 |
randomize | - | - | . random |
, ( ), .
:
< >:= <>, ( ) . ,
s:= sqrt(p*(p- a)*(p- b)*(p- c)) 蠠 f:= (a> c) and (a< b),
s , f .
():
read (< >) readln (< >),
< > - , , . , ( , ). . <Enter>. readln read , readln . , ( 8).
|
|
():
write (< >) writeln (< >),
< > - , , . , . write , . writeln , . . , .. . : , , . . . , a=2, b=-13 =-75,123456
writeln ( :3,a=,a:2, b=,b:5, c=c:10:5). :
a= 2 b= -13 c= -75.12346. , .
1: . , , .
1:
Program Example_1;
{$APPTYPE CONSOLE}
Uses SysUtils;
Var x1,y1,x2,y2,x3,y3:longint; //
a12,a23,a31:real; //
r1,r2:real48; //
Begin
writeln(' ');
writeln(' 1 ');
Readln(x1,y1);
writeln(' 2 ');
Readln(x2,y2);
writeln(' 3 ');
Readln(x3,y3);
{ }
r1:=abs(x1-x2);r2:=abs(y1-y2);
a12:=sqrt(sqr(r1)+sqr(r2));
r1:=abs(x2-x3);r2:=abs(y2-y3);
a23:=sqrt(sqr(r1)+sqr(r2));
r1:=abs(x1-x3);r2:=abs(y1-y3);
a31:=sqrt(sqr(r1)+sqr(r2));
(* *)
writeln('=========================================================');
writeln(' ');
writeln(' x1 y1 x2 y2 x3 y3 1 - 2 2 - 3 3 - 1');
writeln('_________________________________________________________');
Writeln;
writeln(x1:5,y1:5,x2:5,y2:5,x3:5,y3:5,a12:8:2,a23:8:2,a31:8:2);
writeln('_________________________________________________________');
writeln('=========================================================');
|
|
Readln;
End.
(.1):
.1. ( 1)
: . , {} (**). Turbo Delphi //, .
1. .
2. , .
3. ( ) .
4. .
5. , .
6. , .
7. , .
8. , 0.
9. ( ).
10. .
11. , .
12. , .
13. . .
14. . .
15. . .
16. . .
17. . .
18. . .
19. , , .
20. , , .
21. ( ) . .
22. ( ) .
23. , ( 0, - ).
24. ( ) .
25. , , .