Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

метод указания информатика

.pdf
Скачиваний:
12
Добавлен:
12.03.2015
Размер:
11 Мб
Скачать
☆

11

 

napaMerpa

 

.3PemeHHeypasneHHJicHcnojibaoBaHHCMcepBwca

PHC.

 

 

 

 

 

 

OTBCT:x-1,3801(npHy-.0,9999)

 

 

 

 

BjmefiKeB2HCcranerpaBHUM.3aAatiHOMy

 

 

 

noicasHaneHHe

3HefiKeBl,.e.xx,AOTCXnop,

B

3HaqeHHe

 

 

 

 

GyAe

IloAOopnapaMerpa

npoueAypa

TawiMoSpaioM,

 

 

 

 

 

HSMCRilfl3HaM6HHeXH6HKH$B$1(pHC..3)

 

 

YcraHOBHTeaApecuejiesoHXHCHKH$B$2,3HaneHHeuejiesoHHHCHKH-1,

.5

 

 

 

KoA6op.napaiMierpa

BbinoAHifreKOMaHAyCepenc-

.4

 

 

 

 

A

N

 

 

 

 

.3

 

 

 

 

BaneHKyB2BseAHre4)opMyjiy=(x-2X2*2.x

 

 

 

BHee"HaqanbHoe3HaneHHex,paBHoe,HanpHMep.1

 

 

 

npucmm11>)H

HMCHKCB1npHCBoftreHMHx(BcraBicaHivin—-

.2

 

A2

B

iiapaMenpa)),

BseAHreTCKCT«3HaMeHHe

Al

B

.1

 

;PeuiHreypaBHepme,Hcnojib3yflnpoueAypyHoAOOp.napaMerpa

 

 

 

 

 

 

 

.HaAcrpOHKH

CepBHC-

 

c

KoropoeOTKpbiBaerca

HaACTpotiKH,

OKHC

onaOTMeneHaBAHanoroBOM

 

IlpoueAypaFloASopnapaMerpaAocrynHaTOJIHCOBTOM(xnynae,CCJIH

 

 

 

 

 

 

 

3HaM6HHe,aApecaneiiKH.napaMerpa

 

Memo.CepBucBAJianoroBOMOKHCycTaHaannBaeTCJiaApecU&UCBOHaneflKH,ee

 

 

 

 

 

 

 

 

i

 

 

 

PemeHHe3aAaiHnpoH3BOAi-rrcflnepeaKOMaHAylloASopnapawerpa

 

 

 

 

HanpHMep,HOHCKpeiueHHflypaBHCHHacOAHHM.HeHSBecrnbiM

 

B03M03KCH,

noMOiAbK)3rorocpeAcrrea

.33AaHHOMyC

flMeiiKecranopaBHbiM

 

KOTOpOMSHaMCHHHaM6HKH-napaMCOpaHSMCHflJOTCaT3K,HTOSblMHCJIOBUCJICBOH

 

napaiwerpa-3TOcpeACTBoExceJAJiaanaiiHsaTa6jiHUbi,npH

 

 

 

 

.9.1npoueAypaIloASopnapawerpa

 

 

46

7,.m==0r=25,y-67.6

 

P=

-

5

 

 

 

 

 

 

5.,b=1

5

c=7*l0

 

 

 

 

 

 

 

 

 

)

2

 

 

 

 

 

 

.g

(m/g)

 

 

3.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

m-7,.07,.F=7

 

 

L-

.2

 

75,.x=3

x+y

 

 

 

 

 

 

 

,

 

 

 

 

 

 

 

 

nporpaMMe,BbiBOApesyjibraraBbinojiHHTbBAnajioroBOMOKHC.

B

HH.cj>yHKUnpw3aA3Hiibix.napaMeTpaxBBOAAaHHbixocymecrBHTb

 

 

BbiMHCJieHna

AHS

nporpaMMy

JiHHCHHyK)

CocraBHTb

 

 

101023,peiuaemeapuaumN°3KomnpojibHoitpado

iuu(pp

 

Hanpitmep,cmydemn,

luufipa.cmydenma

tiU(ppoii

cnocjiedneu

coenadanib

 

dojiwna

enowepeeapuanma

nocnedwftyu<ppa

npuv&M

Kypca,

 

nopaccMompeiwbtM

sadaHiw

cmydenmynpedjiazaiomcx

 

 

 

 

LIporpaMMiipouniiiicBcpeaeExcelVisualBasic

 

 

 

 

KoirrpojibHanpuooia

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ucinojidyoee

cmpoK

 

 

c

necoenadaiom

undeKCbi3JieMenmoeMampwjbi

2

npuwepe

B

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

 

Value.)=s

ll

e5

I<

Range(.Worksheets("MaTpHua2")

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

Next

 

 

 

 

niaBHoff

s=s+a(i,i)'pacqercyMMWMCMCHTOBno

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i=1To3

For

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

Next

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

+i

il=il

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Nextj

 

 

 

 

a(i,j)-Cells(il,.Worksheets("MaTpHua2")jl).Value

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

-1To3

Forj

 

 

 

 

'noMepcro^Sua^naMTeHwaTCKymero3HaneHHii

1

j1~

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i=1To3

For

 

 

 

 

'HOMCpCTpOKHA^HHTCHHflT6KymerO3HaHCHHH

5

il=

 

 

 

 

 

 

 

 

 

 

Dima(lTo3,1To3)AsVariant

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

SubMatrica2()

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.nporpaMMy

 

 

 

H

Basic

Visual

Microsoft

 

 

pe^aKTop

B

nepeHnnre

.3

 

 

 

Bee^HTeBaqeHKHA5:C7HaJIHCTCMarpH«a23jieivieHTbi

.2

JIHCT

B

nepewflHTe

fjiaHji,

noj!L30BaTCJibCKHH

CBofl

1.OTKPOHTC

 

 

 

 

MicrosoftVisualBasic:

PeuieHHeBpe^aicrope

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

HaJIHCT.MaTpnua2

 

 

Pesyjibxar

cyMMy3JieMeHTOBnanraBHOH.AHaronajin

HafiTH

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

j-l,m,.m=3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

n=3,

i=l,n,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

A~{aij},

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2:

 

 

 

 

 

 

 

cmpoKitcmon6i\os

coenadwomcHOMepaMU

 

 

undei<cbi3JieMenmoejuampuifbt

 

ebiiuenpwuepe

BnpueedeimoM

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

Range("F2"),Va!ue.Worksheets("MaTpnua2")-Max

 

 

 

 

 

 

 

 

 

t

Fl

H

Range(.Worksheetst"MaTpHua2")

 

 

 

 

Vaiue.')-Min

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

Next

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

j

Next

 

 

 

 

 

 

 

 

 

 

 

 

12

 

 

 

 

 

 

 

 

.:D3HaJKMwre[Enter],

iBaneHKaxBl

 

 

 

 

 

 

 

 

 

-MOnPE^(Bl:D3)H3KareropHH.MareMarHMecKHenpHnoMomwMWIUH

 

UHK)

HK

(J>y

OyiiKUHfl,BbiSepere

MemoBcraeica"-

 

 

 

 

 

 

 

 

 

 

 

 

 

npH

 

OKHBMacrrepa.^yiiKUHH,KoropoeBbisbraaere

flnajioroBOM

B

 

 

.B5

3H6HKC

mejtKHereno

MarpHujbi

onpeflennrejw

 

HaxmimeHHfl

^jw

.2

 

 

 

 

.4)

BBe^HreBeicropcaoSo^HbixHJICHOB(pHC.

HHefiKHF1:F3

 

BaqeHKHB1:D3BBeAHTewaipHuyK030^HZ^^f6BnpH.HeH3BecTHbixB

.1

 

 

 

 

 

 

 

4,MarpHMHtieonepaunn

.PHC

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

10

 

A*5=

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

55

 

 

 

 

 

 

 

 

 

 

 

 

 

 

P!

il

 

-77556E.2-17

-13877BE-17

i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

0

 

 

E=

 

 

 

 

 

 

 

 

 

 

 

 

-11022E.1-16I

0

 

,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

OBp^THaflH;

 

 

0,532666€96/

-0,686956522

A

 

 

 

 

 

 

 

 

 

 

 

O^GCeeSS/j

130434783.0

 

A^=j

 

 

 

 

 

 

 

 

 

 

-D076^S57

 

 

 

 

 

X^A'-B

 

 

 

t

 

 

-1Q659565Z.0

-fl,W3478261

108695652.0

_;

_

 

 

 

 

 

 

 

 

 

 

 

 

Onpefle^HTeJlb

92

 

 

i

 

 

 

MeroflouoGpaiHOHMaipHUb

'

'[•

 

""

1-1

 

 

 

0=;

 

 

 

 

 

HajoxflBHHex

 

 

 

 

 

 

 

 

 

!

 

 

 

 

 

 

 

2i

 

 

 

ii

 

i

 

 

1

 

 

 

 

 

1

i

 

 

 

 

 

-5;

 

2

 

 

te

 

 

 

 

 

 

B=0

 

 

 

 

5

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

•^^a^B^BfiSSE^^^^J^^

 

 

 

 

 

 

 

 

 

 

 

1

 

1

 

 

 

 

 

 

 

 

 

GBo6oAHbix.HJICHOBTorflaX=A"*B,rfl,eA"-o6paTiiaaMarpHi;aMarpHUbi.A

BeKTOp

-

HeHSBCCTHblX;B

BCKTOp

HeHSBCCTHblX;X-

HpH

KO3(t)l})HUHeHTOB

 

 

 

 

cHcreMajmHefiHuxanreopaHHccKHXypaBHeaHHBH^aA*X=B,meA

 

 

BcJiejryiomeM:nycrb,

MemododpamtioaMampuubt3aKJiio»jaerrcfl

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Petuenue:

 

 

 

 

 

 

MarpHuy

x

,HeH3BecxHbieXi,x

 

yMHOMHTbHaHHCJIO.5

 

 

 

 

 

 

 

 

Haifra:

 

 

 

 

 

 

 

 

 

3

 

2s

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Xj=2

 

 

z

<+

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

X+

 

 

 

 

 

 

 

 

 

 

 

 

 

 

:Hana.cHcreiuajiHHCHHbixajire6panHecKHx

 

 

 

 

 

 

 

 

 

 

 

 

.....

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.10.1MaxpHHHueoiiepamui

 

 

 

 

 

 

 

 

 

 

 

13

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

saflaHHbienocroHHHbieBCJiHHHHbiHk<=.m

bj,Cj-

 

 

 

 

 

 

 

 

 

Ifa(i,j)>=MaxThenMax=a(i,j)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ifa(ij)<^MinThenMin=a(i,j)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

-1To4

Forj

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

To3

I

Fori=

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9

45

 

 

 

 

 

 

a(l,1)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

45

 

Max=

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

-5

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

-5

 

Min=

0,35

2,3

6,36

 

 

 

 

 

 

 

 

 

i

Next

 

 

 

 

 

 

 

 

 

 

 

 

 

...

 

 

4v!l^-T.'

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Nextj

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.)Value.CeIls(i,j)

 

Worksheets("MaTpHua2

 

 

 

noTpeSjieHHflpecypcoB,

 

ripnycjioBHJix

 

 

 

 

 

 

M

=

a

 

 

 

 

 

 

 

 

 

 

 

 

.(ij)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

-HHACKCUD^CMCHTOB

'ij

Forj~1To4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Fori=1To3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

To3,1To4)AsDouble

Dima(l

 

 

onpeAeneHHHMaKcywiajibHoro

B

 

COCTOHT

Koropaa

 

 

 

 

 

 

 

 

 

 

 

 

SubMatrica()

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

naoepHTe

H

VisualBasic

 

 

 

 

.nporpaMMy

 

 

OTHOCSTCJI

jiHHefiHoronporpaMMHpOBaHHjj(3J1T1)

3a#aHaM

K

 

 

Microsoft

pe^aKTop

B

flepeHflHTe

 

 

 

 

 

.MaccHBa

 

BBCAHTCBjmefiKHAl:D3uaJIHCTCMaxpHua2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.2Pemeniiejajia-iJIMHCHHOI'OnporpaMMBpoeauHfl

 

 

 

 

 

 

 

 

 

 

 

JIHCTBMa'rpHua2.

 

 

 

 

 

,nepeHMenyHTecBo6o,o,Hbifi

no^b30BaTe;ibCKHH

CBOH

OrKpofrre

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

MicrosoftVisualBasic:

PeiueHHeBpe^aicrope

 

 

 

 

 

 

BBCAHTB.KOMMenrapHH

.7

 

 

 

 

 

 

PesyjibrarBbisecrtiHaJIHCTMarpHua2.

 

 

 

Bl:D3*5,HaiKMHTe[Enter],

paBHO,BBeAHTe-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

M3KCHManbHblft

H

 

MHHHMaJIbliblH

HaHTH

 

co3Haica'

HanHHaa

(JwpMyn,TAG,

BcipoKy

nepeM^Hre

.B15:D17

6jiOK

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

j=l,m,m=4.

PeayjibTaroMyMHoaceHHflMarpHUbinaIHCJIO6yAer.MarpHuaBbwe/inre

.6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

KOM6nHaumoKJiasHiii[CtrH-.Shift+Enter]

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

HaafMHrre

$opMyn.

crpOKe

B

MbmibK)

mejiKHyre

/^a^ee

[Enter],

.

.,-

 

 

.

.

 

 

 

 

\=l7n,n=3,

f

A

10

 

T\-

HasKMHre

.F1:F3)

yHKuwa=NfyMHOK(B7:D9;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

TIpuMepi:

-

(DymauiH,KareropHH

-

BcraBKa

BbinoJiHifre

3Toro

 

.5

 

 

 

 

 

.2.3.7JjayMepHbieMaccuGbi

 

 

 

 

 

 

 

.X3

BbmejttrreSJIOKjweeK11:13,BKoropOMBsmncjiifreHeH3BecTHbiex\,x,

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Bc-rpOKe.^JOpMyjiHaacMKreKOM6HHaumoKJiaBiiiu.[Ctrl+Shift+Enterj

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

EndSub

=MYMHO)1C(B1:D3;.B7:D9)HajKarb[Enter],flaneemejucnyreMbiuibio

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(|>yHKi4Ma

MareMaTOHecKHe,

-

KareropHH

<l>yiiKitttti,

-

BcTaBKJt

 

 

 

.Cpe#Heapn4>McyMManoJiojKHTe/ibHbixajieiweHTOBSr="&Sr

n

MsgBox

 

 

 

 

rnaBHoftAwaroHajiH,OHMpaBHbi.1BtmeJiHre6jioKjmeeK.B11:D13/^anee

 

 

 

 

 

MsgBoxaeHHe."ripoH3BeorpHuaTCJibUbixaneMeHTOBp-"&p

CAHHHMHaaMaTpHlta,3JieMeHTbIKOTOpOHpOBHblHyJUO,KpOMB3^eM6HTOB

 

 

 

 

 

MsgBox"KojiHHecTBooTpHuaxejibHux3JieMenTOBm="&m

PeayjibrdTOMyMHoscenHaHCXOAHOHMarpHU>iHoSpaiKOMMaxpnubi6yAer

.4

 

 

'pacMercpeAHeapH<j)MeTH4ecKOHcywMbinojio>KHTenbHbix

 

Sr-S/k

 

crpoKe.(|)opMyAHaMCMHreKOM6nHaittnoicnaBHiu.[Gtrl+Shift+EnterJ

 

 

 

 

.^MOBP(B1:D3)Haacart.[Enter]#aneemejiKHyreMbuiitioB

(jjyuKUHS

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Nexti

MareMarHHecKHe,

KaTeropna-

BcraeKa-*l>ymcmi»,

.B7:D9^anee

 

 

 

 

 

 

 

 

Ifa(i)>0ThenS=S+a(i):k-k+1

 

 

 

 

 

 

 

 

a(i)

Ifa(i)<0Thenm=m+l:p=p*

.MaxpmjyBbwenifreSJIOKaneeK

oSparnyio

Bbi^Mcrafre

B7:D9

HHefiKax

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

10

To

Fori^I

 

 

 

 

 

 

3

2

 

 

 

 

.3

 

 

 

 

 

 

 

 

 

 

 

HeH3BecTHtieKI,x,xHaftuHreMeroAOMoSparnofi.MarpHUbi/^JMsroro&

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

43

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

'HanajibHoesaaneHHenpOH3BBAeHHfl

p=I

 

 

 

 

 

 

 

 

 

 

 

'HanaiibHoe3HaneHHecyMMbi

S=0

 

 

 

 

 

 

 

'CHCTHHKOTpHUaTCJTbHbJXSJieMCHTOB

m~0

 

 

 

 

 

 

 

'CHCTHHKnOJ10>KHTeJIbHbIXSJICMCHTOB

k=0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Nexti

 

 

 

 

 

 

Value.1)

s

a(i)=CeIls(i.Worksheets("MaccHBl")

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Fori=1To10

 

 

 

 

 

 

 

 

 

 

 

 

 

Dima(lTo10)AsInteger

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

SubMassivl()

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.nporpaMMy

 

HaSepHTe

H

VisualBasic

Microsoft

 

pe^aKTOp

B

riepefiAHTe

3.

 

 

 

 

Maccual

 

 

 

 

 

 

 

3J16MeHTbl.MaCCHBa

 

uejioHHCiieHHbie

JTHCT&

Ha

 

A1:A10

aneHKH

B

BBBAHTC

.2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.MaccHBl

 

nepeHMenyHTeJIHCTB

(Jjanji,

OTKPOHTCCBOHnojibsoBaTeubCKHfi

I.

 

 

 

 

 

 

(3anHCbMaKpocaBBH/jeOTACJibHOHnpoueflypbi):

 

 

 

 

 

 

MicrosoftVisualBasic

PemeHiieBpe^aKTOpe

 

 

 

 

 

 

 

 

.OKHB

xBbisecTHB/jHajioroBOM

 

MaccHBa,BbiHHCJiHTbcpeflHeapH(})MeTHHecKoenojiojKHTejibHbix.3JieMeHTos

ROACHHTaxbKOJIHHCCTBOHnponsBeAeHMeoxpHuaTCJibKbix3JieM6HTOB

 

 

 

 

 

i-l^n,.n=10

3

HHCCJIa={aj}

nocjieAOBaTejibHocTb

 

 

 

 

 

 

 

 

 

 

Maccuebi

.1.3.7OdnoMepHbie

 

 

 

 

 

 

 

 

HTOsjiewenTbiMaccHBaHMCHDTTHn.Variant

a,

 

 

 

 

 

He

MaccHBa

onncaHHH

 

 

^aHHbixnpn

 

THH

ECJIH

 

 

 

 

 

 

 

 

 

 

 

 

 

DimX(lTo4;2To5)AsDouble

 

 

 

 

 

 

 

 

 

 

 

 

DimA(lTo10)AsInteger

 

 

 

npHo6-b»BJieHHH.Maccnsa

 

ncnonb30BaHHeKjitoneBorocjiOBaTo

aBJiaerca

HH^eKca

6a3osoro

HSMeneHHa

cnocoSoM

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

C.CAHHHUbl

 

GyAyT

npHMepa

Hamero

HS

B

H

A

MHCCHBOB

HHACKCW

 

3Toro

llocjie

nporpaMMbi(HaypoBHeMOflyJia)nocraBHTboneparopOptionBase.1

HaqaJie

B

ecjiH

MaccHBa,

HHfleKC

 

6a3OBbiH

H3MCHHTb

 

MOJKHO

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.HHflOKC

6a3oauH

3x0

-

B3TOMcjiynaerofiopar,HTO0

.A(9)

nocjieAHHH

A(0),

noywojiHaHHionepebiH3JieM6HTwaccHBaSyaer

npHneM

10uejibixHHCCJI,

M3

oS-basjiaerMaccHB

BbimenpHMepa

 

npHBCACHHoro

CTpoKa

riepsaa

 

14

 

 

 

 

 

1saBBAyioinHH.jia6opaix>pHeH

33BX03,23aBe,nyK)mHXoTAejieHHfl,

1

HH>KeHepoB,

 

e^HHHUbiTCXHtwecKoronepconaaa,4-8

JiaGopaHTOB,2-4

8-12

npHHarbBOBHHManHe,TTOwwHOpManbHOHpaSorbiJiaSoparopHHHeoSxoAHMO

peuieHHH

FlpH

cocraBjiaer60000.py6

nnarbi

 

3apa6arHOH

 

 

 

 

 

HyacHOnpHHarbHa.pa6oryOSiUHH

OKna^oM

ckaKHM

^OJMCHOcraxH

 

na

corpyAHHKOB,

CKOJibKo

onpeflennrb,

.C.T

jraGoparopHH,

 

 

 

 

 

HayMHO-

xospacqeraoH

pacrmcaHHe

iirrarHoe

 

 

CocraBbTe

flpuMep:

 

 

 

 

 

 

 

OKHC

 

npaBOM

B

snaic,

 

 

BbiSHpaercn

sareM

 

 

BBo^ayKa3biBaerrca

OKHS

 

JIBBOM

B

KoropOM

B

 

orpaHHHeHHH,

/{,of)aiijieaiie

OKHO

noaBJiaerca

KHORKHjl,o6aBHTi»

HaatarHS

 

nocjie

 

 

 

 

 

 

 

BpacHere

ynacrByiomHe

HMCHKH,

yKa3bmaiOTC>i

-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

nepeKmoMarenb),y/M^osHa^eH

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

wy,.MaKCiiMcuibHo

Jiu6o

Paeitou:

 

panee

4>opMyjibi,

BBHAe

<J>yHKUHH,

uejicBaa

KOTO[)OHHaxoAifrca

B

 

 

 

 

ajipec

 

ycraHaBUHBaerrca

—

jwewcy

 

yeneeyio

VcmaHoeumb

 

OKOH

HecmnbKO

 

Haxo^flTCfl

HOMCKpeuieiimi

 

OKHC

flHanoroBOM

 

B

 

 

 

 

 

ecjiHBAwanoroBOMOKHCHajjtnpOHncHnoMCHCHHOHCKpcEiiemiH.

KOMaHAbiCepBHC-IIoucK.peuieiutH3ranporpaMMaflocrynHaBTOMonynae,

riOMOinbK)

c

ocymecTBJOierca

pemeHHfl

rioncK

nporpaMMbi

SarrycK

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

!limcK.peiiiciiuu

nporpaMMbi

nocpe^crBOM

BExcelocymecTBJiaerca

3JIT1

PemcHHe

 

 

 

 

 

 

 

 

HOHCKpemeiimi

.2.2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

-Macrep.nia&ioHOB

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.AfiTocoxpaHeHHe

T

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

FIoHCKpemeHHfl

 

 

 

 

 

 

 

 

 

 

 

 

 

 

HanrjojieeHacroHCnojib3ye

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ombK)CepBHC-.HaAcrpoHKH

c

MOJKHO

HajjcrpoHKH

HUHorKJUOHwrb

rioAKraoHHTb

 

TaEwiHU..

aneiopoHHbDC

arccneunajibHbiecpeAcrsa,pacuiHpaiomHeBOSMOHCHOCTH

-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.1.2

 

 

 

 

 

 

 

 

 

 

 

 

41

 

 

 

 

 

 

 

 

 

 

 

MOJKCTSbiTbjiio6wM'B

apryMCHrax

BbipaaceHHjj

 

qacTH

Jiefiow

(|)opMyjieAJia

onpeAeJiaeMbiM'no

TOMHbiM

c

pe3yjibTar

:

cpaBHHTbnojiyneHHbifl

H

e=0,001

 

ornpeAWAymero(aHeoSiuyK)4>opMyjiycjiaraeMoro),c

.33BHCHMOCTI

HcnoJiL3ya

cyMMbipfl^oB,

 

BuMHcjiHTb

 

 

 

 

 

 

 

 

UpuMep3:

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

 

 

MsgBox"yl4="&y

 

 

 

 

 

 

 

 

 

Nextn

 

 

 

 

 

 

=y

yO=yl:yl

 

 

 

 

 

 

3-0.7

A

y=0.3*yl

 

 

 

 

 

 

 

 

 

 

 

 

 

Forn=2Tol4

 

 

 

 

 

 

 

 

 

y1«l

 

 

 

 

 

 

 

 

 

yO-0

 

 

 

 

 

 

Subrekkurent2()

 

 

 

 

 

 

(3anHCbMaKpocaBBH^C

 

 

 

PeiueHHeBpeAaKTOpeExcelVisualBasic

jie

y

M

P

)O

npoipaMwyBbiMHCueHHflnopeKyppeHTHoS4

 

 

 

 

 

 

 

 

 

 

2:

IJpujttep

 

 

 

 

 

 

EndSub

 

 

 

 

 

MsgBox"x="&x&"n-"&n

 

 

 

 

 

LoopWhilec>e

 

 

 

 

 

Ifn=10ThenExitDo

 

 

 

 

 

n-n+1

 

 

 

 

 

 

x=xl

 

 

 

 

 

c=Abs(xl-x)

 

 

 

 

 

 

xl=f(x)

 

 

 

 

 

 

Do

 

 

 

 

 

n=0'CHCT'HHKHucjiauiaros

 

 

 

 

 

 

e=001.0

 

 

 

 

 

x=Val(InputBox("HanaJibHoe3HaHennex=")

 

 

 

 

 

Subrekkurent()

36

M

OKHOPesyjitTBTtinoiiucapemeHHH,HaacMirrencnonKyOK

OKHOIloiiciciipeiucniiH,HaacMMTeKHOnKy.BbintKoiiiHn>

 

PHC..7^HanoroBoeOKHO

 

 

 

 

 

 

 

 

 

 

.OK

HaiKan,

^pyrwe.orpaHH»ieHHSHocneBBO^anocneAHeroorpaHHHemw

3anojiHaKrrc^BCC

AHanorH'iHO

.J500

.6bm>

AoroKHa

3apnJiaraJiaSopaina

jia6opaHrroBnoycjioBrao^OJDKHO6bm>SoJiee8,HOMCHCC12,axaicsce

OKHCBBecrTHorpaHnneHHsinoKOJiH^ecray.corpyAHHKOBHanpHinep,

~HaiKMHreKHonKy^o6anmi>.(pHC6)HB

OzpOHMemM

 

HCHaBecrHbixsnaMCHufinepeMeHHbix,

pesyjiBTaraBBIMHCJICHKH,.e.T

W

 

 

 

3

 

aieflKH

BbiACJiHreMtiiufcio

npeAHawaMCHHbie

$D$3;$E$8

.KOJIHHIXTBO

HX

H

HH6HKH,coflepjKamne3H3HeHnasapnjiarbicorpynjwKOB

jmenKaMH

HsiweHseMbiMH

-$D$3:$E$8.

smeuKU

Hsjueww

 

 

 

 

 

 

PaenoiiSHanetiuto—.60000

 

 

 

 

 

 

 

 

 

 

.sapnnarbi

HTOTOBOC

coflep^KamaH

SyaersReftKa,

aneftKOH

uejiesofi

3HaneHHeaapnnarbinojiaoopaTopHHcoBnaAanocMecHMHtai<])<>HAOM,

Heo6xo^HMO,«rro6w

IlocKOJibKy

.F9

-

xneifay

tfejjeeyio

 

 

 

 

 

PHC..6noHCKpemeHHs

 

 

 

 

17

 

 

 

 

 

 

 

 

 

 

 

 

5

 

 

 

 

 

 

 

naHCJiHHHCTpyMeHTOBVisual.Basic

 

 

IS

c

aaKHomcy

HaJKarHa

HJIHnyre'M

OcraHOBnrrb3anifct>,

 

MaKpoc-

OcraHOBHtbsanwcbMOKHOnepesKOMaHAyMCHIOCepBHC-

'.4

 

 

^opMaTHppBaHHeaneeK,HJIHnocTpocHHeAHarpaMMH,.A.HT)-

,

(nanpHiwep,

onepauHH

AeficTBHa,

HeoSxoAHMbie

 

ripoHSBecTH

3.

.AeflCTBHaBBCAHreBnoiieHMHMan-pomHMSHHaatMHTeHaKHonKyOK:

 

'MaKpocoM

BbinojiiweMbie

orpajKaer

Koropoe

HMB,

Apyroe

MaKpocy

 

MOHCCTC

nepBOMyMaKpocyHMHMaKpoc.1Bbi

ExcelnpHCBaHBaer

 

 

 

MaKpoca,no

OKHO3amicb

AwanoroBoe

noHBirrca

/J,ajiee

.2

 

 

 

 

nauejiHHHcrpyivteHTOB-Visual.Basic

 

 

Memo

VisualBasic,KoropaaBbisbroaercanocpeACTBOMKOMaHflti

 

 

 

 

—HanaxbsaniicbHHHnyre'MHaacarnflnaKHonKycnancjin

 

HanaxbsanncbMaKpocaMOMCHOMepesKOMaHAyMCHIOCepewcMaKpoc—

.1

 

 

 

 

Excel

ma6jiuu,bi

 

 

 

 

 

 

 

 

 

 

3..I.JCoidanueaemoMamwiecKU.MaKpocasanucannozonpu

 

 

 

jiHcraxpa6o4efl.KHHFH3rnjiHCTbiHOCJTTHasBaHHe.Atodyjieii

 

 

 

TeKCTtinporpaMMHaasBikeVisualBasicxpaHarcaB

 

BAaJibHefliiieMMaKpocMOJKHOpeAaKTHpoBarb,kax66biHHbiHTCKCTOBbiH.(jraiin

HaataTHHKJiaBHiuHnepeMemeHHH"MfcoiiHBBimeoneparopoBasbncaVisualBasic,

.MaKpopeKopAepOH3anHCbiBaer.nocJieAOBaTejibHocn

-

MaicpoonpeAejieHMfi

aaimcH

Ana

cpeACTBO

BCTpoennoe

HMeer

 

Excel

 

Microsoft

 

 

 

 

 

HapasnecocranbHbiMxeKCTOMBamefi.nporpaMMbi

MaKpocHHcnamooBart,TekcrMaKpoca

-

CepBHC

KoMaHAti

cnoMombK)

nporpaMMyHaSTOMasbmeTpaAHUHOHHtiMo6pa30M,aMOMteresanHcarbMaKpoc

ni-icarb

.e.TBbTMowere

s

33biK

3TO

VisualBasic-

Excel

 

MaKpocOB

 

 

coxpane'HHaanoAyHHKanbHtJMHMeneM,KoropyioMoacerBbinojJHHTb.Excel

sanwcaHHaanocneAOBarejibHOCTbKOMaHAHAeHCTSHH,

3TO

-

MaKpoc

 

 

 

 

 

MaKpocw

.1.3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.(EVB)

6yACMHa^biBaTb«3biKnporpaMMHpoBaHHsiasbiKOMExcelVisualBasic

 

.Excel

no3BOJiatomHXnojiyMHTbAocrynKOBCBMBOSMOJKHOCTJJM

H,

 

B03MOaCHOCT»MH6a30BOrOH3bIKaBLICOKOIX)ypOBHHHHMCCTMIIOJKCCTBO

BCCMH

 

 

nporpaMMHpOBaHHaVisualBasic,BCrpoeHHWHBExcel,

 

 

 

 

 

.3ExcelHHSMKnporpaMMMpoeaHHsiVisualBasic

 

 

40

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Function

End

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2-0.6*x+i.0

A

f-x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f(x)

Function

 

 

 

 

 

 

 

 

 

 

 

 

I'einoimeBpeAaicropeExcelVisualBasic:

 

 

 

 

^onojiHHTejibHoeycjiOBHe:BbiMMCjieHHanpeKpaiHTbnpH.n=10

 

 

 

 

 

 

 

 

 

 

 

 

 

BblBCCTHBAHaJlOrOBblXOKH3X«\=»,.«n=»

 

Pesy/ibTar

OKHC«HananbHoe3HaqeHHex=».

AaHHbieBBCCTHBAHajioroBOM

 

.^0,4HcxoAHbie

0

.,|<e,TACe=0,001,X

n

-x

n

x

ycjiOBHe

KOTOporoBbinojiHHTca

 

 

 

 

 

AJia

x,

3HaneHHa

raKoro

BbiiHCJieHiia

nporpaMMy

CocraBHTb

 

 

 

 

 

 

 

 

1.+0.

_,

n

=xj_,-0.6-x

n

x

"^anapeKyppeHTnaa(^opMyjia

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

UpttMep1:

 

 

 

 

 

3To^opMyjiu,BKoropbix

-

(popjuyjibi

PeKyppenmiibie

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.(})OpMyjiaMH

 

 

 

 

 

c

nporpaMM

npuMEpc

 

Ha

ycjiOBHCM

 

c

UHKJI

 

PaccMorpHM

 

 

 

nesaBHCHMoor

 

 

BWHTHHS

 

 

 

 

 

Exitdo

 

 

 

 

 

 

 

 

 

 

 

 

 

loopuntilVCJIOBHC

 

loopwhileYcjioBHe

 

 

 

 

 

 

 

 

 

 

 

 

 

BJIOKonepaTOpoB

 

 

 

BJIOKoneparopos

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

do

 

 

 

 

 

 

do

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(DopMa

 

 

ero

nocne

TOJibKO

 

ocymecTBJiaercfl

 

ycnoBHn

nposepKa

 

 

nocKOJibKy

 

pa3,

Mepe,OAHH

 

KpaHHetf

cnocTycjiOBHCMBcerAaBbinojiHHCTca,no

 

 

loop.untilTCJIO

loopwhile,,do...

cnoMomwoUHKjiado...

 

 

 

 

FIOAXOA

Ka>KAotfHTepaiiHH.LuiicnaSTOT

BtmoJiHeHna

nocjie

npOBepaerca

 

 

 

 

 

 

 

 

BHHXHCTHHHOCTI>

-

nocmycnoeueM

c

 

U^UKJKI

\

 

 

 

 

 

 

 

 

 

loop

 

 

 

 

loop

 

 

 

wend

 

 

 

 

 

EJTOKoneparopOB

BJIOKonepaxopOB

BJIOKonepaTopofi

 

 

 

 

 

YCJIOBHC

dountil

dowhileYCJIOBHC

WhileYCJIOBHB

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

OopMa

 

 

 

 

 

ynpaBJieHHenepe,aaeTcaoneparopy,cjieAyiomeMysaoneparopoM

 

nOBxopaeTcaAOrexnop,nonaBbipameHnenecraner.JioJKHbiMFlocjiearoro

 

 

 

 

onepaTopa,

BbinojiHCHMfl

H

nposepKH

H3

 

 

coc'roamaa

 

 

 

 

 

 

 

39

 

 

 

 

 

 

 

 

 

 

 

nocjieAOBaTCJibHocrb

3ra

.cHosa

npoBepaercfl

 

 

a

OAHHpas,

BbiiiojiHHeTca

npcAycjioBHCM,

c

UHKJI

B

BXOASIJUMH

TOonepaTop,

BbipajKenHe«HCTHHHO»,

Bonn

loop,

...

until

loop,,do

...

while

do

while...wend,

npedycjioeueM:

c

nuKJia

Onepamopbi

sapauee

HCM

B

HTepauHft

ycjioBHH(HHCJIO

HeKOTOporo

.HeH3BCCTHO)

 

 

3aBHCHTOT

BblXOA

H3KOTOpOTO

UHKJI,

3TO

-

 

yCJloetlCM

C

 

 

 

 

 

 

 

 

.2.7l^HKJlC

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Nextx

 

 

 

 

 

 

 

 

 

 

 

j-j+l

 

 

Cells(i,j.Worksheets("Ta6yjiHpoBaHHe")+Value.1)=z

 

 

Cel]s(il,j.Worksheets("Ta6yjiHpoBaHHe")+Va!ue^.l)

 

 

 

 

 

 

 

 

2-Exp(2*y))

A

z-Atn(x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.

Forx=3.0To8.0Step05.0

 

 

Cells(i,.Worksheets("Ta6yjinpoBaHHe")Va!ue.j)=y

 

 

 

 

 

 

 

 

 

 

 

j-4

 

 

 

 

 

 

 

 

Fory=9.0To1.0Step-1.0

 

 

 

 

 

 

 

 

 

14

=

i=15:il

 

 

 

 

 

 

 

 

 

SubTa6yjiHpoBaHHe2()

 

 

 

 

(SariHCbMaKpocaBBUMSOTAejibnofinpou,eAypbi):

 

 

 

 

BpeflaKTOpeExcelVisualBasic

 

 

 

 

 

 

 

 

[A3HHbIXB.CTpOKaX

 

 

HHnocrpoeHHaMacrep^narpaiviM

 

 

 

.D3:O12

-fiHefiKH

 

AaHHbix

 

 

oSnacTb

rpat|)HK,

FlocTpOHTe

.8

 

 

 

 

 

 

 

 

nocrpoKaMB.D2

 

sna'ieHHa

FIoAcraBJiHTb

 

cTOJi6uaMBDl,

no

snaneHHa

 

 

 

HcnojibayanojiaBBOAa-

3

BbmncjiHTbsHaneHHs4»ynKHHH

 

 

 

 

 

 

 

—a.Ta6jiHU

KOMaHA^MCHKD^annbie

no

aneHKHD3:O12

BbiACJiHTe

.7

 

 

 

apryMem-axaneHKyDl,AnayaneHKy.D2

 

 

2-Exp(2*D2)),

A

BD3BBecTH<J)opMyjry-Atan(D1

.6

 

 

 

 

 

 

 

 

 

 

snaneHHe.0,1)

 

 

apn4>MeTHHecK:HH,mar-0.1,

-nocroji6uaM,Tun-

 

BbinojfHHTbnpaBica3anojiHHTb—-.TTporpeccHn(PacnojioaceuHe

.5

 

 

 

 

 

 

 

 

 

 

 

18

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.MaKpoc

Il;r?n;i'iHTi.

iSEtf

MMIIIH

KHOHKOH

npasow

H

KHonKy

HapHCOBaxb

noMombioMbiiim

f

*^

HHcrpyMeHTOB<J?OpMblHJOKHOBbiSparbKHonKy~.KHonicaC

.

.i.<!>opivt!B

-

HHcrpyMeHTOB

rianejiH

-

.KHOHKOBHA

peaoiMeHacrpOHKH.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

B

.MaKpOC)Pe^aKTHpOBaHHCKHOIIKHB03MOaCHOTOJIbKO

(Ha3HaHHTb

Mbiura

KHonKy

 

npasyio

Haacarb

KHOHKOH

STOH

J^nsipa6oTb(c

KHonKaHnepenecTHee'cnoMombK)MUIIIHHajno6yionaneJib.HHcrpyMCHTOB

HacrpaHBaeivian

-

BbiSparsnyHKTMaKpocw

ICoi\iaii;^

 

Cpe^H

.HacrpoHKa

UaiicjuiimcrpyMeirroB-

BHW-

KnonKanananenu.UHcmpyMeiimos

 

MaKpocy

BbmoJiHewie

Ha

MaKpoca

Bbisosa

 

yflo6cTea

3

 

 

 

 

 

 

 

 

 

KHOHKU

.4.1.3

 

 

 

 

 

 

 

 

 

 

nyacHbiHMaKpoc,AaJieeHamaTbnaKHOimyBOHTHHJIHMIMCHIIri..

-MaKpoc-.MaicpocuBnoflBHBiiieMCJiAHajiorOBOMOKHCMaKpocbl,Bbi6parb

BHCCTHH3MeHeHHflBMaKpocMOWHOraioKenepeaKOMaHObiweraoCepenc

 

 

 

 

 

 

 

 

 

BnanneModylesorKpbiBaercanyacHMH.iwo^yjib

VBAProject,BKOTOPOM

OKHOnpoeicra)OTKpbiBaercaOKHOnpoeicraProject-

ProjectExplorer(Biw-

OTKpbrrt,OKHO.npoeicra4epeaKOMannyMemoView-

Heo6xo,HHMo

OKHCpe^aKropa

B

KHHFH

coAepacHMoro

,2,113npocMorpa

 

 

 

 

 

 

 

 

 

coAepafameeceoSMemoHnanemi.HHcrpyMeHTOB

PeAaKTOpVisualBasicnpeflcraBJwercoSofiOTAenbHoerpa^mecKoeOKHO,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

VisualBasic*

^13TOrOMTOSblBOHTHBpCAaKTOp,BbmOJTHHTbCepBHC-MatCpOC—PeflaKTOp

cnoMoiubiope^aicropaVisual.Basic

npocMorpMaKpocaocyiuecTRjiflercji

 

MaKpoca

.3.3,1IIpocMomp,pedanmupoeaHueuusMenentte

 

 

 

 

 

 

HI

nyjKHbiHMaKpoc,mejiKHWrenoKHoirae.BbinojiHHTb

.MaKpocoBBuSpas

 

CHHCKOM

co

OKHO

~.MaicpocbiOrKpoercaAHaJiorosoe

MaKpoc

HTo6biBbinojiHHTbMaKpoc,BbiSepKteKOManayMCHIOCepBiic-

 

 

 

 

 

 

.2.1.3BbinoJinenueManpoca

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

EndSub

 

 

 

 

 

 

ActiveCelLFormulaRlCl="=TODAY()"

 

 

 

 

 

 

 

 

 

 

 

MaxpocsanncaH2002.11.13

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Sub£ara()

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

flpUMep:

f

\

"? *,

T/

3.2.2. od

n

sII

 

~SL~>

:i.~ 1 i'ii

 

 

11 31

 

f:;

pfuili

 

^S•S-S&jfijSS-S^apjjS

 

;ilfijt« F^*!

 

 

 

 

 

 

 

>%

 

 

 

 

 

 

it

 

 

CTOJi6ua

 

 

n

U

 

 

 

 

"5

 

ss

 

 

 

 

I

ep

 

 

 

 

o

 

 

 

 

^

X

s

 

 

.—

._..

=3

g

 

CN

o

o

 

w

«

3

 

i

^

™

^5

 

0

.

 

^__^

(U

m

 

I

 

^. q q

 

 

 

 

 

X

L. ^

s

S

S S

CL

x n

U

|g

 

 

S "

 

a o

 

u o

 

-Q, CX

 

fflra

 

s"

 

o

"QJ

 

M

 

U

X

 

o

 

„

 

a.

 

'

P3

^—^

H

"~!

^"^

ca

O

"*!

O

 

a. O

^

S-

o u

a.

 

 

^

 

 

 

S S u iS

io w

*

cd

o

!

"O

H

o-

,__,

o

>—•

^^c/3

E^

"

t-

i

II

^t- C-l

(U

IO

cd

 

11

 

 

 

CN

X

 

u.

 

t-

II

CLO

II

o

O

 

[i.

 

 

\

ca a o a.

i

BJ

H ~co

Worksheet i = i+ 1

 

i-

 

 

a

 

X 3

K

"So

~ CO

 

X TD 0 C Z W

3.2.3. Ceoucmea

:cel; HJI. riepeHTH na JIHCT Ta6yjiHpoBaHHe.

Cd

iKa - 3anojiHHTb - nporpeccwH. (PaciiojiOMeeHHe

n - apHc^MerHHecKHH, mar - 0.5, npe^ejibno

 

 

 

«

 

 

Si*"

 

°i

w -e-ri

S. H

 

raGjiHue

E,ITb CBOH

BB6CTH 0,

IJlHHTb JIj

 

,—^ o"

 

TpOK3M,

co

s

 

<=>"

s

<u

dj

 

Sffl

 

fifl B-m

co

-r ^

 

« £ ^ 1

O

3 Q

 

| O

CO

CQc SCQ

 

£

*~*CN

ro

 

 

,

 

3

 

 

**

 

Q.

37

 

.12^HajioroBoeOKHO«nporpeccHa»

PHC.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

,'iuarpatnMa

 

 

 

 

 

nocTpOHTb.lOnoAanHbiM,HaxoAaiAHMCflBA1:B22rpa^HK

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

.B3:B22

 

 

 

 

B

B2

sweatee

B

Haxo^amyioca

(JiopMyjry,

 

CKonHposaTb

.9

 

HMH—.UpHCBOHTb)

EjiotcyaMeeKA2:A22^aTbHMHx(BcyaBKa-

.8

 

2

A

.15)*Cos(x)

*(x-

24-I)

A

BBCCTH4)opMy^y=(x

BjmeiiKyB2

.7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

BBCCTH.«y=»

BjmeHKyBl

.6

 

 

 

 

 

 

nporpeccna,mar-5,.0npe^ejibHoesnaneHHe.6)

 

 

THH—apH4>MeTH4ecKa

croji6u,aM,

no

(pacnojio>KeHHe

nporpeccHii

 

 

—3anojiHHTb

npaBica

BbinonHHTb

TeKymeH,

A2

 

 

i

a

 

 

 

ieHKy

 

 

 

 

 

BHHefiKyA2BBecTHnanajibHoe3HaqeHHeOTpe3KapasHoe-.4

.4

 

 

 

 

 

 

 

 

 

 

 

 

BBCCTH.«x=»

BaqeftKyAl

.,3

 

 

 

 

 

 

 

 

llepeHMeHOBaTbKHCT3B.TaSyjinpOBaHHe

2,

 

 

 

 

 

 

 

 

OTKpbiTbCBoflnojiLsoBareJibCKHH.4>aHJi

1.

 

 

 

 

 

 

 

 

 

 

 

 

PemeituieBntojinmeExcel;

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

HaoTpe3Kex=[-4;6]cuiaroMh=0,5,.a=l,5

 

 

 

 

 

 

 

 

Hrpa(J)HKc[)yHKL[HH

 

 

 

 

 

flpuMep:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

nepeMennou

odnou

 

 

Ta6yjiupO6(inue

.7/../

 

 

 

 

 

 

 

 

 

cnocTOHHHbiMuiaroMBsa^aHHOMHHTepBajre

 

KOTOpoiiH3MCHaeTca

OTapryrwcHTa(nepeMeHHofi),sejiHHMHa

saBHCHMOCTH

B

(JiynKUHH

snaMeHHH

BWMHCJieiiHe

3TO

HJIH

(^HKUHH,

 

H

apryMeHTa

 

 

 

 

~3x0cocraajieHHeTa6jiHU,b(

(madyJiHUUx)

TaGyjtupoeanue

 

 

 

 

 

 

 

 

 

 

 

 

 

1.7

 

 

 

 

 

 

 

20

 

 

 

 

 

 

 

 

HanaHejiHHHcrpyMCHTOBVisualBasic.K

 

unnnaacaaHa

H3OKHaMO^yjw,Bbi6paBKOManoy3anycK(Run)

-

 

 

 

 

 

 

 

H33BaHHHMaiqx)caHnaifcaTbHaKHonKyBbinojiHHTi>;

H>OKHOM

na

Mbimbto

mejiKHyrb

Heo6xoAHMO

 

MaKpoc

oiaie

^HanoroBOM

 

 

 

MaKpoc,B

-

Cepsiic

Memo

KOManqbi

cnoMoiubro

-

 

 

 

 

 

 

 

 

 

 

3anycKManpocaoc>mecrari3iieTCfl:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

caMy.nporpaMMy

 

 

 

Hnpoue^yp,..

(JiywioiMH

TCKCT

pacnojiaraforca

 

 

 

BOBCCXnpoue^ypax

BbiMO>KereHcnojib30Barb

nepeMeHHbK,KOTOpue

 

HJIHKOHcraHT/yia#aHHoroMO^yjia,.e.T

nio6ajiLHbixnepeMCHHtix

 

 

 

cmflyer

3areM

.nepeMCHHbix

 

onucaHHCM

ynpaBJWKTT

Koropbie

 

 

O6bRHoTCKCTnporpaMMbiHaasbuceExcelVisualBasicHaHHHaercac

 

 

 

 

 

 

 

 

npoSenaHtDtcneenoAHepKHBaHHS.

 

 

 

npOMOJDK6HH3OAHOHjioranecKofinporpaMMHoftcrpOKH

 

 

 

 

HecKOJibKHx

crpOKe

Bo^Hoft

AJWpasMememia

(:)

proHHJt

 

 

 

 

AonyCKaerca

XOTSI

nporpaMMbi,

crpoKy

oTAejibHj'H)

sanHMaer

 

 

 

 

oraejibHoe^eHCTBHe,onncaHHeHJIH.onpe/teneHwe

 

 

 

 

 

,saBeptueHHaa

 

CHHraiccHHecKii

~

 

 

 

 

 

.BjioHceHHOcnnpoue^ypBApyrnenpoue^ypbine

nporpaMMbi.

 

 

 

naypooHe.Mo^yjiiiB^po^e^ypaxAOJDKHbtep>KaTbca.n.cosee

 

 

 

Hnpoue^ypa-^yHKLtHH.(Function)MMSnpoueAypbiBceraa

no^nporpaMMa(Sub)

 

 

npoue^yp:

^eaTHna

CymcCTByerr

 

HMeiomajf.HM«

HHCTpj'KUHH,

 

 

 

coBMecrrno

 

nocJieflOBarejTbHOcrb

 

~

ripoifedypa

 

 

 

 

CepBHc—MaicpocPe^aKTop—VisualBasic,^aneeBcraBKa—

.uenoeBcraeKaMOAyjiaocymecTBJiflerrcanpHnoMOiuHKOMaHAbiMemo

 

 

 

KZK

xpanaiunxca

Hnpou,e,nyp,

onncaHHH

coBOKyrmocTb

3nro

-

\

OAHOPOHJIH

MS

COCTOKT

Basic

Visual

Excel

aabise,

Ha

nporpaMMa

 

 

 

 

 

 

 

-BbiBOApeayjibTaroB

 

 

 

 

 

 

 

 

 

 

 

-O6pa6oTKaHH(J)opMau>iH

 

 

 

 

 

 

 

 

 

-BBOAHn4>opMaUHH(HCXO^HBIX

 

 

 

 

 

 

 

 

 

Pa6orajiioGoftnporpaMMbino^paaflejwercaHaTpHarana:

 

npHBo^amaaK

 

 

 

nocjie^oeaTejibHocTb

 

 

3TO

-

 

 

 

OpranH3ai|HHnporpaMMbiiian3biKeExcelVisualBasic

.3.3