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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

- 15 -
ReadLn
end
.
J_r_gb_aZ^Zqb
program
MatrixTest2;
uses
Matrix;
const
Dim1 = 2;
Dim2 = 3;
var
A, B: TMatrix;
begin
MatrixTranspose ( B, h1 ); {
WriteLn ( '
..' );
ReadLn
end
.
7. Ijbf_jfh^meyJZ[hlZkowr-lZ[ebp_c
J_Zebah\Zlv fh^mev jZ[hlu k owr-lZ[ebp_c ojZgys_c bgnhjfZpbx h[
Z[hg_gl_ghf_j :LK nZfbeby bfy hlq_kl\h b l i G_h[oh^bfh h[_ki_qblv
^h[Z\e_gb_ gh\uo ^Zgguo \ owr-lZ[ebpm b ihbkd k\_^_gbc h[ Z[hg_gl_ ih
aZ^Zgghfmghf_jml_e_nhgZ
Dhff_glZjbcdaZ^Zq_
Hij_^_e_gb_GZah\zfdexqhfaZibkbg_dhlhjucqbkeh\hcb^_gl bnbdZlhj
h^ghagZqghhij_^_eyxsbc wlmaZibkv\^ZgghcaZ^Zq_aZibkvx[m ^_ly\eylvky
bgnhjfZpbyh[Z[hg_gl_Zdexqhf–ghf_j_]hl_e_nhgZ
Hij_^_e_gb_ Hj]ZgbaZpbx ^Zgguo \ \b^_ lZ[ebpu gZah\zf owr-lZ[ebp_c
_keb Z^j_k dZ`^hc aZibkb z wlhc lZ[ebpu hij_^_ey_lky dZd agZq_gb_ g_dhlhjhc
nmgdpbbowr-nmgdpbb h(k)]^_k - agZq_gb_dexqZ aZibkb z. KblmZpbydh]^Z^ey
                                           - 15 -
  ReadLn

end.

                                 J_r_gb_aZ^Zqb

program MatrixTest2;
uses Matrix;
const
  Dim1 = 2;
  Dim2 = 3;
var
  A, B: TMatrix;
  K 70DWUL[    ^ \kihfh]Zl_evgZy fZljbpZ `
begin
  0DWUL[,QSXW       $  'LP 'LP          ^ \\h^ fZljbpu $                 `
  0DWUL[,QSXW       %  'LP 'LP          ^ \\h^ fZljbpu %                 `
  MatrixTranspose ( B, h1 );                 { ljZgkihgbjh\Zgb_ fZljbpu % `
  0DWUL[6XP            $  K K           ^ K   $%l                  `
  0DWUL[0XO            K %  K           ^ K    $%l %               `
  WriteLn ( 'R $%l     %R       0DWUL[1RUP K       
  :ULWH/Q       GZ`fbl_ deZ\brm (QWHU! ..' );
  ReadLn
end.


                   7. Ijbf_jfh^meyJZ[hlZkowr-lZ[ebp_c

     J_Zebah\Zlv fh^mev jZ[hlu k owr-lZ[ebp_c ojZgys_c bgnhjfZpbx h[
Z[hg_gl_ ghf_j :LK nZfbeby bfy hlq_kl\h b l i  G_h[oh^bfh h[_ki_qblv
^h[Z\e_gb_ gh\uo ^Zgguo \ owr-lZ[ebpm b ihbkd k\_^_gbc h[ Z[hg_gl_ ih
aZ^Zgghfmghf_jml_e_nhgZ

       Dhff_glZjbcdaZ^Zq_

     Hij_^_e_gb_GZah\zfdexqhfaZibkbg_dhlhjucqbkeh\hcb^_glbnbdZlhj
h^ghagZqghhij_^_eyxsbcwlmaZibkv \^ZgghcaZ^Zq_aZibkvx[m^_ly\eylvky
bgnhjfZpbyh[Z[hg_gl_Zdexqhf–ghf_j_]hl_e_nhgZ 

      Hij_^_e_gb_ Hj]ZgbaZpbx ^Zgguo \ \b^_ lZ[ebpu gZah\zf owr-lZ[ebp_c
_keb Z^j_k dZ`^hc aZibkb z wlhc lZ[ebpu hij_^_ey_lky dZd agZq_gb_ g_dhlhjhc
nmgdpbb owr-nmgdpbb h(k)]^_k - agZq_gb_dexqZ aZibkb z. KblmZpbydh]^Z^ey

Страницы