, , , , ...

   , , ,   www.toehelp.ru
Cc
    / / 4. /

4. CCTEMA BBOA/BBOA.

O . aa ec ooee oca oepaopo oa/oa 3. Ocac ee cce ao M-, opeee ocoe o ace oa/oa eeo oa/oa, paccapac pae eo oca aa.

Coepae

1.
2.
   2.1. Xapaepc ao
   2.2. Ocoeoc pex ao
   2.3.
   2.4. e cpp ao
   2.5. pe cpp aa
   2.6. Cape oe a
   2.7. aa
   2.8. Opae
3. O /
   3.1. ee oepaopo oa/oa
   3.2. paee
4. /
   4.1. ece opaa cca oa/oa
   4.2. Peaoe ecpop
5. B/
   5.1. Bo cco
   5.2. Bo cco

1..

Ocoo ee aax MS-FORTRAN ec ac. ac - o aop ao ae. ocac ac pex o: opae ac, ecopae ac ac oa aa.

1. opae ac.
opae ac - o aop ao, aaaxc cce pao oa cpo. opae ac eppep coaco c e, a oco oepaox cce ao eppep cpo.
2. ecopae ac.
ecopae ac - o aop ae, e peopaex cceo. ecopae a xpac e ecx ace. oe a coepa oo ae o pee pecae cxo o opa e, oe cae, opee cpp ac.
3. ac oa aa.
oce ocee ac ae MS-FORTRAN pe ac oa aa. Meo pecae oa aa aco ac o oepaoo cce.

2..

a - o oceoaeoc ace. a a ee pee.

1. Bee a.
Be a - o o a a ee cpoce, o cao cpoco.
2. Bpe a.
aoa epeea caa coo e ao- o opao oepa oa/oa.

B aee, ao pee a MS-FORTRAN, a a e a, oce oepaoo cce, ec poco "a". Oepaop OPEN oeceae c e o aa, oce cae eopeeeoc ceae oce op aa, oa oa o coa.

2.1.Xapaepc ao.

a a e ce :
1. .
2. ooee.
3. Cpp (opae, ecopae oe).
4. Meo oca (oceoae po).

aa.

a oe e . , ec oo pcce, - o oceaeoc ao, coea oepaoo cceo pacoa . paa eoa opeec oepaoo cceo.

ooee aa.

ooee aa oo caaaec peece ooee oa/oa. a ee: aa o, oe o, e ac, pe ac ce ac. Booo, o ocea ac e a pee, a ee ac e. p op aa caaaec eo aao. Ec cee oepae oa/oa c WRITE (ac), ce cape ae apac. ooee aa oce oceoaeoo oe oepa WRITE - oe aa, o e a peeo ac oa aa. cooae oepaopa ENDFILE (oe aa) oeae a a ac oa aa, o e eae oepaop READ, oe oe aa. B oee opee oe aa co paee END= oepaope READ (ee).

Cppa ao.

Bee a o op a opae, ecopae oe a. Bce pee a c opa.

1. opae.
a, cocoe oo opax ace.
2. ecopae.
a, cocoe oo ecopax ace.
3. oe.
oeoaeoc ao e pee cpp.

Meo oca.

Bee a opac a a oceoaeoo o poo oca.

1. oceoae oc.
a, coepae ac, opo ceoa oopx opeee opo, oopo o aca (opa oceoae opo). a e o poa aca c oo pae REC= (opeee o poo oca).
2. po oc.
a, ac oopoo o aca poa o ope (a c poo oco). ac oceoaeo epc, epa ac ee oep 1. ac e oao , opeee p op aa, aa ac ee coce oep, opeee p aca ac.

B aax poo oca ooo aecee ace pooo ope (apep 9,5 11) e aece ace e . Heooo aee acao ac; oao ac oo epeca, o aee.

ee ace ao poo oca e ex ace po oe. a poo oca axoc a ce. Oepaoa ccea aec pacp a poo oca ec pea ac xo a caoee paee pa, aa o oepa opeeec ae ecoo pocpaca a ocee.

2.2.Ocoeoc pex ao.

Bpe a - o epeea ee oo acca. a coep oo o ac, coaa o e c o epeeo eeo acca.

Ec acaec e c ac, ocaeec eco aoec poea. ooee aa cea aae aa, o oe oepaopo oa/oa. Bpee a oo oo opa, oceoae o/o; pe a o opee oo oepaop oa/oa READ WRITE.

Bpee a e exa cooa opax ooce cce oa/oa peopaoa ae "" "" cpp a MS-. Ta ee epeex peopae e ae coe, oece e ae, ac x epeex ooe peopaoa ae (ee) pecae.

Peaoa cea opa ce (\) e oe cooaa o pex aax.

2.3..

ec cpeco opae aa. eec oepaope oa/oa a e pe.

1. Opeeee eeo .

Ceae eeo a ec eoe paee co * (opeee pa ( oa) a oa).

B oce cae, cea eeo caa c ec cpoco ( ao, eec a cpoce) c oo e p cooa oepaopa OPEN. p ao c a c cce ee aa oepaop oa/oa MS-FORTRAN oep a opae cooece ee cpoc. Ec a op, aee, opee e , e cao c ope e cpoco o ex op, oa e oepa CLOSE, oa e ooc popaa.

Ece cee x pa ec o, o eoe caec c a e pao ac, e peec oo oepaopa OPEN. Ccea S- eppepe co *, a eo .

2. Opeeee pe .

Ceae pe o c epee acc eocpeceo opee pe a.

He o ocaec peee ax cea .

2.4. e cpp ao.

B MC- ooo oeco oa cpp aa. Oao, oca pee ocaoo x:

  1. * a.
  2. eoae, ee, oceoaee, opae a.

* pecae aap pa - o oceoaee, opae a, aac a e e a. Koa pocxo ee c cpoca oep o, B o ec c cpo; coe oe oepa cpae oo .

Bee a o ca c cce ee o cex eoo:

  1. Ec a o op, oe peeo oepaope OPEN.
  2. Ec a o op opeeeo poea, aec pae cpo (ec eec). Ec oaa cpoa occe e coep e, ooae o apoc o e.
  3. Ec a op eo (oepaopa REAL WRITE) opeeec coaco eo a 2, ocaoo pee apapae.
  4. Ec a o op occe oepaope OPEN, o a caec pee ao, pa , .

He pee pep popa, coe e ac * a, a a e eoae, ee, ooaee opae a. Oepaop oa/oa c o aa a. oaoe c a oepaopo oa/oa cop cooece 3.

C   Kopoae aa c pe ooa ex epeex,
C   aa o 7 ooo po,  a,  oopoo eeo
C   ooaee, a a c ee OUT.TXT
C   c epecaoo epo  opo ooo.
               PROGRAM COLSWP
               CHARACTER*64 FNAME
C   opaec  pa, aca
               WRITE (*,900)
900 FORMAT ('INPUT FILE NAME'\)(' xooo aa'\)
C   Cae  aa c a   *
               READ(*,910) FNAME
910            FORMAT(A)
C   coe  3  oa; ooe o
C   oep , poe 0.
               OPEN (3,FILE=FNAME)
C   coe  4  oa; ooe o oep,
C   poe 0  3.
               OPEN (4,FILE='OUT.TXT',STATUS='NEW')
C   Cae  acae o oa aa.
100 READ (3,920,END=200)I,J,K
    WRITE (4,920)J,I,K
920 FORMAT (3I7)
    GO TO 100
200 WRITE (*,910)'DONE' (oeo)
    END

2.5.pe cpp aa.

Meee aco coee cpp peaae opeeex pee. B ooeo e x oo oca a:

  1. Ec eoxo poo oc oa/oa, apep, ae ax, o pec a c p oco.
  2. Ec ae o aca, a ae coa ca, o ecopae a, ooo, oee e ooe copoc, o eee e ooe pocpaca a ce. Koa poo oca ecopax ao e eao coa, caa oca ae ax M-.
  3. Ec eoxoo epea ae e ao-o eppea ccee, ocoeo ec ao epea ce 256 oox a, o peec ecopa o/o. ecopa o/o coec p pae cpoco c ooao, o epeco. B ao pepe opa o/o peopaoa eoope co, ae a pecaee ASCII RETURN, e co epeac eo e. Koeco acaex ao eo oca opeeeo eaoao $STORAGE (oee opoo c. 6 "Mea-oa M-").
  4. Ec peec epea ae, a ocao pee e, o cac o e opo popao, o peoeec BINARI (o) opa. ecopae a opoa pee , ceoaeo, e opa popaa paoo ocp ax opa. oe a coepa oo acae x ae. poe eoe ac e o c x cac.

2.6.Cape oe a.

Op a MC- ec o OLD (cap), o NEW (o), o "ope e" e oac o "opx ac". Ceoaeo, oo opa cape (e cece) a aca x aoo. Moo a e oepeeo aca ca ae ooo oo e aa (o e a peea oa aa, e ca eacae ac ae poo oca). ac oceoae a e e ac o acaex.

Koa cpoco, ooo a ea, opo, a a, o oo e ee ae, ec o a OLD NEW. Ho ao a ce, oao, ope aa NEW, coae o a:

1. Ec peeo aa o aoe e , o o cpaec.

2. Ec o a ap c oo STATUS='KEEP', ec popaa aaaec e oe a ao oepa CLOSE, o coaec oco a c ee, a, .

2.7. aa.

Ec cce, oee o ce, o oo o e pe oo a oe opaac ecoo popa. a co (SHARE MODE) oepaope OPEN oo pa oco a. co cec a e oepaope INQUIRE, oo oo opee cocoe oca a. aee MODE opeee, a epoe ope aa oe eo cooa. a oo oec e, ac oo poo. aee SHARE opeee o, a ocec e pooc oc a (oa a op). Moo oec eo e, ac, oo poo, e pape ee, ac. Moo a e ape oe opaee e, a eo ope (oa a op).

Oepaop LOCKING ooe opoa o op ceae ac aax poo oca.

2.8.Opae.

He pao ocac eoope opae cooa cce oa/oa M- :

  1. C ao poo oca c cpoca poo oca.

    Cece a a cpoc: oceoaee pe. a, cae c oceoae cpoca, peca coo oceoaeoc coo; aoo oo ec, poe e ac, e ocaec. K oceoae cpoca oocc aapa, pa, ea.

    pe cpoca, ae a c, e ooe aa oca apeca. oc p cpoca oe a oceoae, a poo, o cooece aa poo oca. Ccea oa/oa MS-FORTRAN e ocae ao a oceoaex cpocax.

  2. BACKSPACE/BINARI (oepa opaa/o oceoa- e a).

    B oo oceoaeo ae aac pa ac, ceoaeo, oepa BACKSPACE ao ae oaae opa ooo aa. a poo oca coepa ac ocoo, opeeeo , ceoaeo, ooo opaac ac ecopax ao poo oca.

  3. acoe cae ooo aa.

    a ax, caex ooo aa, oa cooecoa e acaex ax ecopax oceoaex ao. Bpe cppa ooe ca ac ac ooe e ca ee (ecaa ac pocaec).

  4. ooe ax a oepaop oa/oa.

    p oe aoo-o oepaopa oa/oa pae oe pec o . Tao o e oe po oe oepaopa oa/oa.

3.O /.

B ao paee oe e ocac ee oepaopo oa/oa. oee opooe ocae oepaopo oa/oa OPEN, CLOSE, READ, WRITE, BACKSPACE, ENDFILE, REWIND LOCKING c cooecx paeax 3 "Oepaop".

Kpoe x oepaopo oa/oa cece ee pe EOF, ocaea ae 5 "popa, opopa ". EOF opaae oec e, aa a o, ocac ae oce eeo ooe ae-o ae.

3.1.ee oepaopo oa/oa.

Pae oepaop oa/oa e apaep ape, opeee co e epea ax, a a e pe ocoeoc oepa oa/oa. B ao opaee ocac cee ee:

  1. Cea .
  2. Cea opaa.
  3. Cco oa/oa.

Cea cpoca.

Cea cpoca oepaope oa/oa oe pa o cex op:

  1. * cea
           WRITE (*,*) 'Haao oa'

    epa * oocc aape pa opeee cpoco.

  2. eoe paee.
           WRITE (10,*) 'a 10:'

    eoe co oocc ee a, cao c oepo cpoca 10 (* oaae cpoco oep o). oc cea cpoca aaoe o -32767 o 32767.

  3. aoo epeeo eea aooo acca.
           CHARACTER*10 STRING
           WRITE (STRING,'(I/0)'IVAL

aoa epeea STRING oocc pee a. Paee ao ocac pa e cea e pe cpoc.

Cea opaa.

Cea opaa oepaope oa/oa oe pa o cex op:

  1. Mea oepaopa.
            WRITE (*,990) I,J,K
        990 FORMAT (1X,2I5,I3)

    Mea oepaopa 990 ocae oepaop FORMAT c eo 990.

  2. eo epeeo.
            ASSIGN 990 TO IFMT
        990 FORMAT (1X,2I5,I3)
            WRITE (*,IFMT) I,J,K

    B oepaope WRITE ea epeea IFMT ocae ee 990 oepaopa FORMAT, oopa a e pcoa eocpeceo epe oepaopo FORMAT. oee opoo o o c. a 3 "Oepaop".

  3. oe paee.
            WRITE (*,'(1X,2I5,I3)') I,J,K

    aee oo pae c cea opaa.

  4. a epeea.
            CHARACTER * 11 FMTCH
            FMTCH = ' (1X,2I5,I3)'
            WRITE (*,FMTCH) I,J,K

    Oepaop WRITE coe coepae o epeeo FMTCH aece cea opaa.

  5. * cea.
        WRITE (*,*) I,J,K
Bpaee * aae a epea ax p oe/oe cco. oee opoo o o c e ao .

Cco oa/oa.

Cco oa/oa opeee ae, ae oopx epeac oepaopa READ WRITE. Cco oa/oa oe c, o oo coco xox/xox ax ae ce cc eoo DO, paeee a. Bxoe ae o opeee cce oa/oa oepaopa READ, a xoe - cce oepaopa WRITE.

  1. Bxoe ae.

    Bxoe ae peca coo epeeoe , eea acca acca. acca opee ce ee acca, oceoaeo pacooee a.

  2. Bxoe ae.

    Bxoe ae o e ao e , a epecee xoe ae, o o pa pae, e aaxc ao opo co "(". (ea opa coa c o cco DO o pae). o o paee o eoo cca DO, paee (A+B)*(C+D) oo aca a:

    +(A+B)*(C+D)

  3. Hee cc DO.

    Hee cc DO oo opee, a ae cce oa/oa oepaopo READ WRITE. O e ce opa:

          -/,=1,2[,3])
    cco-oa/oa opeee a e, a ee oepaop oa/oa (a cc peeo eoo DO).
    , 1, 2 3 opeee a e, a oepaopa DO. ec eo epeeo, a 1, 2 3 - e pae.

    B oepaope READ epeea DO ( cooecee aoe) e oo oc aece aoo cca o pee cce oa/oa, o eo oo ca e e oepaopo READ epe cco eoo DO. Bcpoe cco oa/oa oopec ao epa epeeo c cooece aeo ae epeeo DO.

    B cae x ex o DO, aoee o pe cea oec ep.

3.2.paee .

ep co o ac, epeaae a ea poe epaoe cpoco, a oco, e eaaec. O ocpaec, a co pae apeo. Ccea oa/oa M- ocpae eoope co, a co pe apeo. co x ec p ea oaa a. 4-1.

--------------------------T-------------------------------------
|         CMBO          |        ECTB                     |
+-------------------------+-------------------------------------+
|         poe          |  poc oo cpo               |
|           0             |  poc x cpo                 |
|           1             |  epexo  aao cee         |
|                         |  cpo (oppec oco)     |
|        +(c)          |  He epexo a ce cpo   |
|                         |  (oo eaa o o e ec) |
L-------------------------+--------------------------------------
Taa 4-1. Co pae ea.

o po co, poe peex ae ocpaec, a poe cpaec eao cpo. Ec co pae apeo cao poe, o ep co ac e eaaec.

4. /.

Ec oepaop READ WRITE opeee opa, o oepaop oa/oa caec opa. Tao opa oe opeee o cocoo. Cee pepo peca coo oaoo peee eo opeee opaa eocpp cea opaa, ocae e ao ae.

               WRITE (*,990) I,J,K
           990 FORMAT (1X,2I5,I3)

               ASSIGN 990 TO IFMT
           990 FORMAT (1X,2I5,I3)
               WRITE (*,IFMT),I,J,K

               WRITE (*,'(1X,2I5,I3)')I,J,K

               CHARACTER*11 FMTCH
               FMTCH = '(1X,2I5,I3)'
               WRITE (*,FMTCH)I,J,K

               WRITE (*,*) I,J,K

Cea opaa oa aac c op co aaac ap coo. epe eo coo o co poe. Co oce pao co oppc.

4.1.ece opaa cca oa/oa.

Ec cco oa/oa coep xo oo aee, o cea opaa oe pccoa o pae epe o oope peao ecpop. B acoc, c cea () oo cooa oo cae, ec cce oa/oa e opeec ae ae ( o cae WRITE eae ac eo , a READ epexo cee ac).

p oe oepaopa oa/oa aoe aoe cce oa/oa cao c oope peao ecpopo aoopo, ocae ae pae opao aoec eocpeceo c ac e ca c a cce oa/oa.

ae cea opaa ocpac cea apao. oope peao ecpop ece a, a ec o pccoa r pa (ec r poe, o oe oope pae ee). Caa cea opaa oe e oe oope:

                     10(5F10.4,2(3X,5I3))

p opao oe/oe "opoep opaa" opaaae ae opaa, a ocao pee apapae. Koa cpeaec oope peao ecpop, oae oa cex ca.

  1. Cooecee aoe oec cce oa/oa, o cae aoe peao ecpop cac o/o aoo aoo pocxo o opa paee oo ecpopa.

  2. B cce oa/oa e oec ax ax, o cae "opoep opaa" aaae o/o. Ta, cex oepaopo:
                           I=5 WRITE (*,10)I
                        10 FORMAT (1X,'I= ',I5,'J= ',15)
    o e ce opao:
                           I= 5,J=

Ec opoep opaa cpeae apa pa co cea opaa , ec cce oa/oa oe ax e, opoep opaa aaae o/o. Ec opoep opaa cpeae oeoe (:), cce oa/oa ax oe e, o o aaae o/o.

Oao, ec cce oa/oa ee ec ae, a oeaec aao cee ac opoep opaa pooae opao opaa, aa aae cea opaa aaa ocee pao coo. Ec pao co e, opoep opaa pocapa opa caaa. B pocopeo ac opaa oe xo o oope peao ecpop.

Ec pocop cea opaa aaec c oopeo pee cea opaa, o oe oope aae oeco oope cea opaa. pocop e ee caoe aca oe paee poea BN BZ. Koa opoep aaae coe ece, ocaec co oo ac pocac, oe ac aec a xoe. cee ee eco cae, oa peec co \ (c. aee o ae ocae opaoo cea).

4.2.Peaoe ecpop.

Peaoe ecpop oppae opee op ac pa c e aa ac pe opao ax. Cec a a peaox ecpopo: oopee eoopee. O oca e.

Heoope peao ecpop.

  1. Aocpo ('xxxx')

    Peao ecpop aocpo ee aoo oca pae ao oca, xoo . ac pee poe; pecae aoo ocae ooo aocpoa cee pe e a. Aocpo aece cea e pe oa (READ). pep poc e.

  2. Xoepecoe peapoae (H).

    Peao ecpop nH epeae ocee n co, a poe, xoo o. Xoepecoe peapoae e pe oa (READ).

    pep peapoa c aocpoo xoepecoo peapoa:

           C Ka WRITE o a e cea :/ABC'DEF/
           C Cea aocpo
                    WRITE (*,970)
                970 FORMAT ('ABC"DEF')
                    WRITE (*,'("ABC""DEF")')
           C Toe caoe c cooae cea H
                    WRITE (*,'(8H ABC'DEF)')
                    WRITE (*,960)
                960 FORMAT (8H ABC'DEF)

    e poe oaae co pae apeo, oecea ee opa.

  3. oooe peapoae (Tc,TLc TRc).

    Peaoe ecpop T,TL TR opee o ac oop, c oopo e epeaac ce co. o, opeeea peao ecpopo T oe axoc o apae o eeo ooe. o ooe opaaa ac oee ooo paa a xoe. Ha xoe o coa e opeec c oo T; peaoe ecpop TL TR aoe poea a, a ec ac a aoea poea epoaao.

    Peao ecpop Tc opeee, o epeaa ceeo aa oa poo o aa C. Peao ecpop TRc opeee, o epeaa ceeo aa oa pocxo a C ao epe o eeo ooe. Peao ecpop TLc opeee, o epeaa ceeo aa oa pocxo a C ao aa o eeo ooe. Ec eee ooee ee pao C, o cea TLc oe epea ee ac epo o.

    Peaoe ecpop T e cooa epeee eo a 128 o, .. xoe ae coepac a epe oo paepa.

  4. oooe peapoae (X).

    Ha xoe (READ) peao ecpop nX pocae n ao. Ha xoe (WRITE) peao ecpop nX e n poeo, a ae ac e ; , .

  5. Cea c (SP,SS S).

    Peaoe ecpop SP,SS S o pec pae ooe aa "c" pox xox ox. SP ae oee aa "c" o cex ocex ox, oope poeccop ooae, a o c ooe oco. SS oee a "c" o cex ocex ox, oope poeccop ooae, a o c ooe oco. S pe c.

  6. Ce (/).

    Ce oaae oe epea ax ee ac. p oe a oeaec aao cee ac. p oe acaec oe ac a pacoaaec a, o aca aao cee ac.

  7. Opa ce (\).

    Oo p ooa "opoepa opaa" pocxo oe epea ax ee ac. Ec oce peao ecpopo, ocp "opoepo opaa" ec opa ce (\) o aoaec oe ac apeaec, o ooe oce oepaopa oa/oa pooa ee ( ac) c ( a) o e ac. o exa poo coec oe a pae apoca oea a oo o e cpoe, apep:

                       WRITE (*,'(A\)') 'Bo eo e->'
                       READ (*,'(BN,I6)')I

    Opa ce e apeae aoaec oe ac, eeppe p e c * cpoca; o c a cea oe aaac aae a ENTER. Opa ce o pex aax oo e cooa.

  8. Koe pae opao (:).

    oeoe (:) aaae paee opao, ec cce oa/oa oe e ax. a ecpop oo cooa pepae oa, ec eoope a opae e e cooecx ax cce oa/oa.

  9. Cea c aca (P).

    Peao ecpop P caaae aca oe ocex peaox ecpo F E o ceeo peaooo ecpopa P. B aae aoo oepaopa oa/oa aca oe epoaao caaaec pa . Maca oe oece a peapoae opaa ce opao:

    1. Ha xoe p peapoa F E ( oe e cece ax x oaaee ceee) a xoe p peapoa F ca o ee pecae pa ca o pee pecae, oe a 10**K.
    2. Ha xoe p peapoa F E aca oe e oaae oec, ec oo oe pcce cee.
    3. Ha xoe p peapoa E ecea ac oaec oeo a 10**K, a opo eaec a K (eec ooee eco o, a e caa oa ea).

  10. eppa poea (BN BZ).

    peaoe ecpop opee eppa poeo pox ox ox. o oa BZ caaaec aao aoo oepaopa oa/oa. o po o, o poe, a cee ex, e . Ec peao ecpop BN opaaaec po opaa, o poe ocex xox ox oppec o ex op, oa e apaoae pao ecpop BZ.

    p oppoa poeo ce a, e ec poea, ac oe oa a, ec o c pao e co poeo, c oppoax poeo. Hapep, ce oepaop READ ocpae co e cea, a aee 123 (ENTER oaae aae a oa):

                        READ (*,100)I
                    100 FORMAT (BN,16)
                        /123 ENTER/
                        /123  456 ENTER/
                        /123  123ENTER/

    Ec READ ca c "opoo" ac, aoaec aae ecoa peapoae BN; "opoa" opaeae, o oee co ao oo ac ee ca ao, opeeex oae ocaee opaa eea cca oa/oa. ac ooec cpaa poea o peeo .

    Ta, ce pep ac e 123, a e 12300:

                          READ (*,'(I5)')I
                          /123 ENTER/

    Peao ecpop BN coeco c ooee opax ace poea eae epa o oe o.

oopee peaoe ecpop.

Cea I,F,E,D G pec oa/oa pox ax. cex pox cea ec cee paa:

  1. p oe ee poe ae e e. Ocae poe ocpac o-pao, acoc o pao BN BZ, o ce ae poeo cea pa . a c pcce o ea. poe, pcce ccee aa ooe ac o peeo , ae c eaa.

  2. p oe co cea F E a eca oa, oac oe oa oee cea peaooo ecpopa o ooe eco o.

  3. p oe eeppee a cac pao ooc e poea, ec o peec.

  4. Ec co ao p oe peocxo p o, o ce oe aoec eoa.

  5. p e co cea I,F,E,D,G L oe oa oe coepa a oo oe. Cae ceeo o aec co aa, ceeo a ao. poee a e cece. Hapep,

                         READ (*,'(3I5)')I,J,K
                         /1,2,3,
    ae:
                         I=1,J=20  K=3

    He cee ooac a eoo, ec B eaee pe cea oo ooe o (.e. peee peaox ecpopo T,TL TR).

Ocae oopex peaox ecpo.

  1. eoe (I).

    Cea I oe e Iw Iw.m. Oa caa c a cca oa/oa eoo a. pa o - W ao. p oe oe pccoa a.

    opa Iw.m, e m - ea e aa, oaae, o oe oa oc o pae epe m ce c e poea, ec o pec. p oe m e ece.

  2. eceoe (F).

    Cea Fw.d caa c a cca oa/oa a REAL REAL*8. pa ceo o W ao, x d ao ooc a po ac. oe oa oe aac co aa, a ce p, cpe oopx oe pccoa eca oa. Ec eca oa pcce, oa oee cea d peaoo cpope; ae coe cpaa d p eppepoac, a cee a eco oo (c e poea, peopae , ec o pec).

    a oe ceoa opo:
    a. +(c) -(c), a a cee eoe co.
    . a E o ceoa poe, a cee a, o e oaeo, a a - eoe co.

    oe oa aae W ao, oopx d axoc oce eco o. Boa ea paec a cca oa/oa, e aca oeo. Boa ea opec, a e ec.

  3. Cea E .

    Cea E oe e Ew.d Ew.dEe. Cea ee Dw.d. Bce apaep paa, cpaee cea E, cpae .

    o pa o cocae W ao. E e e a o. o oa E - e o, ocao cea F c a e F d. B o oa c o acaoo oea (caoeoo ceae P). p acao oee, pao , oe oa coco aa c (ec o peec), eco o, oceoaeoc p, o opa ooo o, pecaeoo a 4-2.

    ----------T--------------------T--------------------------------
    | CE. | ACOTHA BEH.|     B OPKA                |
    +---------+--------------------+--------------------------------+
    | Ew.d    |  |exp|<=99         | oe E e c  c, a |
    |         |                    |    opo  x p.    |
    +---------+--------------------+--------------------------------+
    | Ew.d    | 99<|exp|<=999      | c  c, a  - op  |
    |         |                    | o  pex p.              |
    +---------+--------------------+--------------------------------+
    | Ew.dEe  | |exp|<=(10**e)-1   | c E e c  c, a |
    |         |                    |  - opo  e p, o-  |
    |         |                    | o ee .            |
    +---------+--------------------+--------------------------------+
    | Dw.d    | |exp|<=99          | oce D e c  c,   |
    |         |                    | a  - opo  x p. |
    L---------+--------------------+---------------------------------
    | Dw.d    | 99<|exp|<=999      | c  c, a  - op  |
    |         |                    | o  pex p.              |
    L---------+--------------------+---------------------------------
    Taa 4-2. Macae oe  cea E  D.

    Ec acoa ea opa peocxo 999, o e cee cooa cea Ew.d Dw.d. Maca oe pae eco opaae eaex oe E D. Ec aca oe, K, axoc aaoe (-d<K<=0), o oe oa coep oo K ex e oce eco o, a oce x - d+K aax p. Ec (0<K<d+2), o oe oa coep oo K aax p eo o eco o (d-K-1) o oce eco o. pe ae K c oo.

  4. Cea G.

    Cea G ee Gw.d Gw.dEe. oox cae pa oe oa - W ao, x d ao pxoc a po ac. Ec aca oe oe 1, o ac, ooa o opa ca coco e p.

    Ocae G p oe aaoo oca F p oe.

    G p oe ac o e ox ax. B a. 4-3 pecaea acoc oa o e ax.

    -------------------------------T--------------------------------
    |      BEHA AHHOO        |           OPMAT               |
    +------------------------------+--------------------------------+
    |         M<0.1                |         Ew.d                   |
    +------------------------------+--------------------------------+
    |       0.1<=M<1               |    F(w-n)d,n('b')              |
    +------------------------------+--------------------------------+
    |       1<=M<10                |    F(w-n).(d-1),n('b')         |
    |       .  .  .                |    .     .    .                |
    |       10**(d-2)<M            |    F(w-n).1,n('b')             |
    |       <10**(d-1)             |                                |
    +------------------------------+--------------------------------+
    |       10**(d-1)<M<10**d      |    F(w-n).0,n('b')             |
    +------------------------------+--------------------------------+
    |       M>=10**d               |    Ew.d                        |
    L------------------------------+---------------------------------
    Taa 4-3. paa oa.

    peae a. 4-3:
    a. 'b' pecae a poea.
    . n pao 4 Gw.d;
       n pao e+2 Gw.dEe.

  5. Cea D,E,F G oecx ce.

    oecx ce oo ceo pe a peaox ecpopa o D,E,F G. oo pe oa. ep peao ecpop e oca pea ac oecoo ca, opo - ac.

    ae, o e ecpopa D,E,F G o oc eoope peaoe ecpop.

  6. Cea oecx e (L).

    Peao ecpeop ee Lw, e W - pa o. aoe cca oa/oa, cooecee peaoo ecpop L oo oecoo a (LOGICAL). oe oa oe coco poeo (o e oaeo), eco o (e oaeo) T ( .TRUE.) F ( .FALSE.). Bce pe a oe oppc, o ocpac a xoe, a o .TRUE. .FALSE. ece a xoe. Ha xoe a W-1 poea cee T F.

  7. C ea (A).

    o peao ecpeop ee A Aw. B epo cae A pae aee p o /. ae cca oa/oa o oo a. Ec o e c CHACRACTER, o a a pxoc o a, a opao a e ao, a aao ae 4-3.

    Ec p oe W peocxo pao c ao aoo cca oa/oa, o cae pae a o oa coc, a oe a; poo cae oe a ceac eo oc poe. Ec co ox ao e pao W, o oe oa o epea ao cca oa/oa aoec poea peaec o W. Hapep, p oe paea popa

                 CHARACTER * 10C READ(*,'(A15)')C
    ec a aape apa cee 13 ao:
                 'ABCDEFGHIJKLM'
    o oe oa e aoeo aa aa:
                 'ABCDEFGHIJKLM'
    ae pae ec ao epea ee C cca oa/oa:
                            'FGHIJKLM'

    Ec a xoe W peae co ao aoo cca oa/oa, oa ee poe; poo cae oc ee W ao cca.

5.B/ .

Bo/o cco pecae coo oceoaeoc e paeee.

Be ac cca o ce:
1. Kocaa.
2. Hea ea.
3. Kocaa ea ea, oea a ee, e oca e aa; .e. r*c (r oe oca c) r* (ee ae pcc n pa). O e o e pee poe, a cee poeo cpoe.

Paee ae ac cco cee:
1. aa, oopo o oce o co poe.
2. Ce, o oce oopoo o co poe.
3. O oee poeo e ocaa, oce ocee oca.

5.1.Bo cco.

Kpoe epecex e, op oa, oxoe cea opaa p oe cco, po a e opaa cco. B oo e oe cooecoa aoo cce oa. He cooa aece e poe. Moo pe pee poe co ao ocaa, a oaao cee cce. Oe, o oe ac e e a poe, poe ca, oa o oec aoo oca.

  1. Koca ecee c oo ooc.

    ecea ocaa ocaa c oo ooc oa peca coo pooe oe oa; .e. oe, cooecee opa F. O e po, ec e eco o.

  2. Koece oca.

    Koeca ocaa pecae coo e ecee ee oca, paeee ao aee co. epa ocaa pecae coo ece ac oeco oca, opa - ac.

  3. oece oca.

    oece oca e o a ae ce cpe ao, ocx opaa L.

  4. oca.

    a ocaa pecae coo aoe a cpo, ae ee a. Kaa ea aa, xoa oca, oa pecaea e aa e poeo oa ac.

    e oca o pooac o oa oo ac o aaa po; oe ac e po o, o poe po a caoc ac oca. Kocaa oe pocpac a coo ace, a coo opeec oe a ce ae a, a poe, aa ce.

    Ec a n cca ee paa e m o oca, o ee n ao oca epeac ao cca. Ec n oe m, ocaa epeaec e m ao aoo. Ocaec n c m ao aoo aoc poea. ece o cae aoe e, a p pcoe oca ao oepaopo pcaa oca.

  5. Hee ae.

    Hee ae oo opee o pex cocoo:

    1. Occe ax o o ao e paee ae.
    2. epo paee ae epo ac, caeo p ao oe oepaop oo cco, e peec ae a.
    3. opa r* (ocaa paee ao ).

    Hee ae e a ocae cooeceo aoo cca oa. Ec aoe cca oa opeeeo, oo ocae coe peee aee; ec e opeeeo, o a ocaec.

    Ce, pee aece paee ae, p oe opopa oa cco ocaaae oee oepaopa oce pcaa peeo ae. Ocae ae cce oa ocpac, a ee ae.

  6. poe.

    Bce poe, epecex e, ac p oe cco c ac aoo-o paee ae:

    1. poe, aee aoo ocae.
    2. Bee poe epo ac, caeo p ao oe oepaopa oa cco (poe ex, a oop eocpeceo cee ce aa).

5.2.Bo cco.

op ox e ae e, a peec oa, poe epecex e. Paep cpo p oe cco cocae 80 ooo.
  1. Mo coaac oe ac, poe aox oca. B ocae e oe oa ac poeo.
  2. oece oe oca a T ae "ca" (true) F ae "o" (false).
  3. ee oca oc o opa I12.
  4. ecee oca c oo ooc oc o opa F o E, acoc o ae X cee aaoe:
                        10**0 ≤ X ≤ 10**7
    1. Ec X axoc aao aaoe, o oca coec OPF16.7 oapo ooc OPF23.14 oo ooc.
    2. Ec X e xo aa aao, o oca coec 1PE14.6 oapo ooc 1PE21.13 oo ooc.
  5. oee aoe oca e cee xapaepc:
    1. O e aac a.
    2. H o, oce x e co paee ae.
    3. Kaa pe aa pecaea ao ee.
    4. a poea aec aao ao ac aac co aoo oca pee ac.
  6. p opaa cco ce aece paeee ee ae e oc.
  7. oecee pae apeo p ea, aa ac aaec c poea.