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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

- 9 -
\u\_^_lgZwdjZgkh^_j`bfh_aZdjulhclbibabjh\ZgghcdhgklZglubaij_^u^ms_]h
ijbf_jZ
6. Ijbf_jfh^meyHi_jZpbbgZ^fZljbpZfb
AZ^ZqZ
<uqbkeblv \ujZ`_gb_ \b^Z f(X) = 2*X
3
- 5*X
2
+ 3*X - 2*I ]^_ X –\\h^bfZy
ihevah\Zl_e_ffZljbpZjZaf _jghklb
×
3.
AZ^ZqZ
<uqbkeblvagZq_gb_\ujZ`_gby(A+B
T
)*B]^_A – fZljbpZjZaf_jghklb
×
3,
B – fZljbpZjZaf_jghklb
×
2, B
T
– ljZgkihgbjh\ZggZyfZljbpZB.
J_r_gb_^ZgguoaZ^Zq[Zabjm_lkygZh[s_ffh^me_\dhlhjhfj_Zebah\Zgu
hi_jZpbbgZ^fZljbpZfb
(*******************************************************************)
(* *)
(* *)
(*******************************************************************)
unit
Matrix;
interface
const
type
Dimension = 1
TL = array
[Dimension] of
TM = array
[Dimension] of
TMatrix = record
end
;
procedure
MatrixI( Dim: Dimension; var Result: TMatrix );
procedure
MatrixTranspose( A: TMatrix;
var
Result: TMatrix ); 
                                      -9-
\u\_^_lgZwdjZgkh^_j`bfh_aZdjulhclbibabjh\ZgghcdhgklZglubaij_^u^ms_]h
ijbf_jZ



                 6. Ijbf_jfh^meyHi_jZpbbgZ^fZljbpZfb

     AZ^ZqZ
     _ckl\bl_evgu_ agZq_gby        `
                                  ^ jZaf_jghkl_c fZljbpu           `
    0             70             ^ FZljbpZ                        `
  end;

  ^

Страницы