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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

- 20 -
Info.Phone := '711711';
-
Input;
-
Input;
Info.Phone := '789698';
-
Input;
InputInfo( Info );
Input;
-
HashPrint( H );
}
Phone := '711711';
if
HashFind( H, Phone, Info )
then
else
InputPhone( Phone );
if
HashFind( H, Phone, Info )
then
else
ter> ...' );
ReadLn
end
. 
                                       - 20 -
  Info.Phone := '711711';
  ,QIR),2        F_evgbdh\ ZggZy hi_jZpby aZibkb \ owr-lZ[ebpm ^he`gZ [ulv \uiheg_gZ `
  Input;

  ^ >ZggZy hi_jZpby aZibkb \ owr-lZ[ebpm ^he`gZ [ulv hldehg_gZ `
  Input;

  Info.Phone := '789698';
  ,QIR),2        =hj[_gdh He_] >Zgbeh\bq DZn_^jZ FH WZggZy hi_jZpby aZibkb \ owr-lZ[ebpm ^he`gZ [ulv \uiheg_gZ `
  Input;

  ^ <\h^ kljmdlmju ,QIR ihevah\Zl_e_f `
  InputInfo( Info );
  Input;

  ^ I_qZlv aZiheg_gguo yq__d owr-lZ[ebpu `
  HashPrint( H );

  ^                            Ihbkd                                  }

  :ULWH/Q     Ihbkd !   
  Phone := '711711';
  :ULWH/Q    Ihbkd NBH ih ghf_jm l_e_nhgZ       3KRQH      
 if HashFind( H, Phone, Info )
   then :ULWH/Q   NBH  ,QIR),2
   else :ULWH/Q   MdZaZgguc ghf_j l_e_nhgZ g_ gZc^_g              
  ^ <\h^ ghf_jZ l_e_nhgZ ihevah\Zl_e_f `
  InputPhone( Phone );
  :ULWH/Q    Ihbkd NBH ih ghf_jm l_e_nhgZ       3KRQH      
 if HashFind( H, Phone, Info )
   then :ULWH/Q   NBH  ,QIR),2
   else :ULWH/Q   MdZaZgguc ghf_j l_e_nhgZ g_ gZc^_g              
  :ULWH/Q      GZ`fbl_ deZ\brm (Qter> ...' );
  ReadLn

end.

Страницы