. . . .
. , ( ,) () (), . :
type = ( );
, . , .
1. week ():
type week = ( Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);
, . pred(), succ(), ord():
ord() ;
succ() ;
pred() .
week :
Sunday<Monday<Tuesday<Wednesday<Thursday<Friday<Saturday;
ord( Sunday )=0;
ord( Tuesday )=2;
succ( Friday ) =Saturday;
pred( Saturday ) = Friday;
, , Low() High(), . , week: Low(week)= Sunday, High(week)= Saturday.
.
, , . , boolean, char integer ( #xxx , ASCII xxx):
Type
Boolean= (false, true);
char= #0..#255;
integer= -32768..32767;
. , week, day_off ():
Type
day_off = ( Sunday, Saturday);
Sunday, Saturday, week.
, , :
var days: week;
, :
var days: ( Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);
.
1. ?
2. ?
3. ?
|
|
4. ?
5. ?
6. ( )?
type _ = (, );
7. week: ord( Wednesday );ord( Friday )?
8. type day_off = ( Sunday, Saturday): Low(day_off); High(day_off)?
. Char String
har , ASCII. . String () 255 ( har), 1 (8 ), . , 255 . :
Var S1: String[40];
Str: String;
S1 40 ( 40×8=320 ), Str - 255 .
:
1) ( ),
2) , .
, .
, .
, ( ).
1 :
Var Str1, Str2: String[20]; Ch1, Ch2:Char;
Begin
Str1:=uter;
Str2: =;
Ch1=Str1[5]; Ch2=Str2[5];
WriteLn(' Ch1=', Ch1, ' Ch2=', Ch2);
End.
:
Ch1=u Ch2=
, (, , , ..).
.
1. Length(S). , . Length(S), S - , . .
2. :
S:='computer';
Writeln(' ', S, ' ', Length(S),' ')
: