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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

- 8 -
hi_jZpbc keh`_gby \uqblZgby m fgh`_gby gZ^ iZjhc dhfie_dkguo qbk_e k
aZ^Zggufdhfie_dkgufqbkehf
Program ComplexValue;
Uses mplx;
Var
re, im: real;
a,b,c ,d: Complex;
begin
readln(re, im);
Init(re, im, a);
WriteC(a);
readln(re, im);
Init(re, im, b);
WriteC(b);
’
readln(re, im);
AddC(a, b, d);
If EqvC(c,d)
then
SubC(a, b, d);
If EqvC(c,d)
then
MulC(a, b, d);
If EqvC(c,d)
then writeln(’
End.
Ihke_ h[ty\e_gby Uses Cmplx ijh]jZff_ klZeb ^hklmigu \k_ h[t_dlu
h[ty\e_ggu_ \ bgl_jn_ckghc qZklb fh^m ey CMPLX Ijb g_h[oh^bfhklb fh`gh
i_j_hij_^_eblvex[hcbawlboh[t_dlh\dZdwlhijhbahrehkh[ty\e_gghc\fh^me_
lbibabjh\Zgghc dhgklZglhc K I_j_hij_^_e_gb_ h[t_dlZ hagZqZ_l qlh \gh\v
h[ty\e_gguch[t_dlaZdju\Z_ljZg__hij_^_e_gguc\fh^me_h^ghbf_gguch[t_dl
Qlh[u ihemqblv ^hklm i d aZdjulhfm h[t_dlm gm `gh \hkihevah\Zlvky khklZ\guf
bf_g_f:i_j_^bf_g_fh[t_dlZihklZ\blvbfyfh^meyblhqdmGZijbf_jhi_jZlhj
Writeln(cmplx.c.re:5:1, cmplx.c.im:5:1, ’i’); 
                                      -8-
hi_jZpbc keh`_gby \uqblZgby mfgh`_gby gZ^ iZjhc dhfie_dkguo qbk_e k
aZ^Zggufdhfie_dkgufqbkehf

           Program ComplexValue;
           Uses Kmplx;
           Var
             re, im: real;
             a,b,c ,d: Complex;
           begin
             ZULWHOQ ¶<\_^bl_ ^_ckl\bl_evgmx b fgbfmx qZklb ¶
                     ¶i_j\h]h qbkeZ¶ 
             readln(re, im);
             Init(re, im, a);
             WriteC(a);
             ZULWHOQ ¶<\_^bl_ ^_ckl\bl_evgmx b fgbfmx qZklb ¶
                     ¶\lhjh]h qbkeZ¶ 
             readln(re, im);
             Init(re, im, b);
             WriteC(b);
             ZULWHOQ ¶<\_^bl_ ^_ckl\bl_evgmx b fgbfmx qZklb ¶
                     ’lj_lv_]h qbkeZ¶ 
             readln(re, im);
             ,QLW UH LP k 
             :ULWH& k 
             AddC(a, b, d);
             If EqvC(c,d)
               then ZULWHOQ ¶kmffZ ^\mo qbk_e kh\iZ^Z_l k ¶
                               ¶lj_lvbf qbkehf¶ 
             SubC(a, b, d);
             If EqvC(c,d)
               then ZULWHOQ ¶jZaghklv ^\mo qbk_e kh\iZ^Z_l k ¶
                               ¶lj_lvbf qbkehf¶ 
             MulC(a, b, d);
             If EqvC(c,d)
               then writeln(’ijhba\_^_gb_ ^\mo qbk_e kh\iZ^Z_l k ¶
                               ¶lj_lvbf qbkehf¶ 
           End.

     Ihke_ h[ty\e_gby Uses Cmplx ijh]jZff_ klZeb ^hklmigu \k_ h[t_dlu
h[ty\e_ggu_ \ bgl_jn_ckghc qZklb fh^mey CMPLX Ijb g_h[oh^bfhklb fh`gh
i_j_hij_^_eblvex[hcbawlboh[t_dlh\dZdwlhijhbahrehkh[ty\e_gghc\fh^me_
lbibabjh\Zgghc dhgklZglhc K I_j_hij_^_e_gb_ h[t_dlZ hagZqZ_l qlh \gh\v
h[ty\e_gguch[t_dlaZdju\Z_ljZg__hij_^_e_gguc\fh^me_h^ghbf_gguch[t_dl
Qlh[u ihemqblv ^hklmi d aZdjulhfm h[t_dlm gm`gh \hkihevah\Zlvky khklZ\guf
bf_g_f:i_j_^bf_g_fh[t_dlZihklZ\blvbfyfh^meyblhqdmGZijbf_jhi_jZlhj
           Writeln(cmplx.c.re:5:1, cmplx.c.im:5:1, ’i’);

Страницы