Модульное программирование в Турбо Паскале. Бакланов М.В - 17 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

- 17 -
procedure InputPhone(var Phone: TPhone);
procedure
InputInfo(var Info: TInfo);
-
procedure
HashInit( var HTable: THashTable );
- -
one. }
function
HashFind( var HTable: THashTable; Phone: TPhone;
var
Info: TInfo ): Boolean;
- -
-
function
HashAdd( var HTable: THashTable; Info: TInfo ): Boolean;
- }
procedure
HashPrint(
var
HTable: THashTable );
implementation
function
ValidPhone( Phone: TPhone ): Boolean;
var
i: Integer;
begin
if
Length(Phone)=PhoneLen then
begin
i:=0;
repeat
i:=i+1
until
(i>PhoneLen)
or
not
(Phone[i]
in
['0'..'9']);
ValidPhone := i>PhoneLen
end
else ValidPhone := false
end
;
procedure
InputPhone(var Phone: TPhone);
begin
repeat
ReadLn ( Phone )
until
ValidPhone ( Phone );
end
; 
                                  - 17 -
 procedure InputPhone(var Phone: TPhone);

  ^ <\h^ kljmdlmju ,QIR `
 procedure InputInfo(var Info: TInfo);

  ^ BgbpbZebaZpby owr-lZ[ebpu                                `
 procedure HashInit( var HTable: THashTable );

  ^ Ihbkd \ owr-lZ[ebp_ ,QIR - bgnhjfZpby h[ Z[hg_gl_      `
  ^ k bkdhfuf ghf_jhf l_e_nhgZ 3Kone.                       }
  ^ Nmgdpby \ha\jZsZ_l agZq_gb_ BKLBG: _keb l_e_nhg gZc^_g `
 function HashFind( var HTable: THashTable; Phone: TPhone;
                    var Info: TInfo ): Boolean;

  ^ PhoneLen) or not (Phone[i] in ['0'..'9']);
    ValidPhone := i>PhoneLen
  end else ValidPhone := false
end;

^ <\h^ l_e_nhgZ `
procedure InputPhone(var Phone: TPhone);
begin
  repeat
   :ULWH      <\_^bl_ l_e_nhg    
    ReadLn ( Phone )
  until ValidPhone ( Phone );
end;

^ <\h^ kljmdlmju ,QIR `

Страницы