V .
V , .
v , . ( , ).
V , . .
V .
V , .
V .
. , . ( 6, 13 14 ).
1. | |
2. | |
3. | |
4. | |
5. | |
6. | |
7. | |
8. | |
9. | |
10. | |
11. | |
12. | |
13. | |
14. | |
15. | |
16. | |
17. | |
18. | |
19. | |
20. | |
21. | |
22. | |
23. | |
24. | |
25. |
1.
. . , . :
ü . , - ( ) . .
ü . . :
o (, , ) ;
o ;
o ;
o ;
o .
. Program , Label, Const, Type, Var, , , Begin End, 1, 2.
ü . { }. , . . . , . Begin End .
|
|
ü . , , .
ü . (, ) , .
ü . , . .
ü - . (-) , .
2.
R L. :
,
H , : .
:
.1.
, , , , . . H, S V , S V .
, ( , , ).
, PI. , .
:
{***************************************************}
{: CONUS. }
{: . }
{ : }
{ R ; L ; }
{ H ; S ; }
{ V . }
{ : . }
{: . }
{: .. }
{ : 10 2006 . }
{***************************************************}
Program CONUS;
Var H, L, R, S, T, V: real;
Begin
Writeln( );
Read(R,L);
Wriyeln(R=, R, L=, L);
H:=Sqrt(L*L-R*R);
T:=PI*R*R;
S:=T+PI*R*L;
V:=T*H/3;
Writeln( :);
Writeln(H=, H, V=, V, S=, S)
End. {CONUS}
, . R=3 , L=5 . : H=4 , S=75,36 2, V=37,68 3.
|
|
:
:
R=3.000000E+00 L=5.000000E+00 H=4.000000E+00
V=3.767990E+01
S=7.539820E+01
, .
3.
, :
Ø ;
Ø ;
Ø ;
Ø .
. , . . , . . , . : , . . , . , . , , , . , . , .
, , , . , ; . , . , , . , . , , . , , , .
, , , . , :
Ø ;
Ø ;
Ø .
, ( , , ..). , , , .
|
|
, . ( , ). , :
Run-time error <nnn> at <xxxx: yyyy>
: nnn xxxx: yyyy, nnn , xxxx: yyyy (: ) . - . - , , Search/Find Error ( Search/Find Error, , ). Destination Disk.
() , . ( , , ), , , .
. . . . ( , , , -). , , Options/Compiler.
: . , , (). . , , . / . . , .
|
|
, , .. . / , (- ), . , (, ) , () , /. . , , . .
, -, . : , , , , , , .
(Debugger) :
/ ;
;
, ;
, , , . , /, .
(Turbo Debugger td.exe) : / , / ., . . ( ).
Out of memory | ||
Identifier expected | . , . | |
Unknown identifier | . | |
Duplicate identifier | . | |
Syntax error | . , . | |
Error in real constant | . | |
Error in integer constant | . | |
String constant exceeds line | . . | |
Unexpected end of file | . , BEGIN END . | |
Line too long | . | |
12, 33 | Type identifier expected | . |
Variable identifier expected | . | |
Error in type | . | |
Type mismatch | : , , . | |
Ordinal type expected | . | |
30.. 32 | Constant expected | . |
Invalid function result type | . | |
36, 37 | Begin (End) expected | BEGIN (END). |
38.. 40 | Integer (ordinal, Boolean) expression expected | (, ) . |
Operand types do not match operator | . | |
Error in expression | . | |
IIIegal assignment | . | |
50, 54, 57, 58 | DO (OF, THEN, TO, DOWNTO) expected | DO (OF, THEN, TO, DOWNTO). |
Division by zero | . | |
Cannot Read or Write variables of type | . | |
Constant and case types do not match | CASE . | |
Constant out of range | . | |
Integer or real expression expected | INTEGER REAL. | |
85.. 95 | ;, :, ,, =, :=, [ or (., ] or )., ., .. expected | . |
Invalid FOR control variable | FOR. | |
98, 102, 103, 104, 106 | Integer (String, Real, Ordinal, Character) variable expected | ( STRING, REAL, , CHAR). |
Overflow in arithmetic operation | . LONGINT. | |
Case constant out of range | CASE . | |
Error in statement | . | |
Invalid floating point operation | . | |
Invalid procedure or function reference | . |
|
|
Invalid numeric format | . | |
Division by zero | . | |
Range check error | . | |
Floating point overflow | . . | |
Invalid floating point operation | . | |
Arithmetic overflow error | . |
1. . Pascal, 3- . . . .: -, 2003. 328 .
2. .. Pascal . .: -, 2005. 416 .
3. .., .., .. . Turbo Pascal Delphi. 3- . : , 2002. 144 .
4. .. Turbo Pascal 7.0 Delphi. .: BHV -, 1997. 240 .
5. .., .., .. : . .: , 2005. 438 .
6. .. . : . .: , 2003. 393 .
7. .. . : . .: , 2006. 317 .
8. .. Turbo Pascal . 7.0: . . .: , 1996. 464 .
9. Turbo Pascal 7.0 / .. .: , 2002. 216 .
10. 7.0 / .. . .: һ: , 2004. 270 .