, – , , . .
, , Turbo Pascal ( ).
? . , . , . , . Pascal, Java, Basic C. . Java, , . C – , ( ). , Pascal Basic. ( ). , , C C++, .
, Pascal Basic , , Turbo Pascal 7.0 QBasic. , , 50 . Turbo Pascal .
, , .
, , «». , , : Q+W=E. ?
E ( – ). ( 250 ). :
:
- ;
- ;
- . , «#», «%», «$», «~» .
«red_velvet4», «exo» «shi_nee». , , «btob» «BtoB» . «» , . . , . , , , , – . Integer («»).
, , .
, , «». :
Program shi_nee;
Var Q, W, E: integer;
BEGIN
E:=Q+W;
END.
, . . program shi_nee – . , . , , , .
«var». , (integer).
«BEGIN» - «END» , , . ; , .
, . var, begin, const . end . , «BEGIN» - «END», .
, , E=15, :
Q:=15:
W:=20;
E:=Q+W;
. , .
Turbo Pascal, , . Ctrl+F9. , . , , , . , «» , , error 85: «;» expexted. , - . , , .
?
. , , , begin end. , , . . «» Turbo Pascal . , «» .
, , . 50 100 . .
, , . , 1. , . . , , . , , : .
( ) , . , real, integer.
(.. ) :
Var a: array [5..40] of char;
b: real;
i: integer;
BEGIN
For i:=5 to 40 read (ch[i]);
For i:=5 to 40 write (ch[i]:3);
Readln;
END.
, , , 35 . ([5..40]) – 5 40. BEGIN 35 (, ), . .
– , « », . . , .
( ) : «array [10..b, 10..f] of » «array [10..b] of array [10..f] of ».
b f – . ( ), . , , – .
type:
Const b=24; f=13;
Type cherry=array [10..b, 10..f] of real;
Var n: cherry;
( ):
Const b=24; f=13;
Var n: array [10..b, 10..f] of real;
, .
– , . (real, integer .). , – . «» . :
Seulgi1: array of char;
Yeri: array of real;
, , .
, «» , , . , , . , .
– . , , , , .
, , . , , . «» , «uses graph;».
, , :
InitGraph (var driver, choke: real; Path: string);
driver , integer; choke – , ; path .