|
Формирование таблицы решения уравнения
Oaee nicaaaony ec ioieoa iai? OAEE iioeae
NICAAOU. Iiyaeyaony oaaeeoa, Onoaiaaeeaaai ia?aiao?u no?aieou ?a?ac iioe?
IA?AIAO?U NO?AIEOU iai? OAEE (onoaiiaea iieae, ?acia?a aoiaae, eieiioeooeia e
o.a.). Ia eenoa iiyaeyaony ioieoe?iay eeiey, iaicia?a?uay a?aieou
eenoa. A y?aeeo A1 iaae?aai o?aco "?aoaiea eaaa?aoiiai
o?aaiaiey aeaa Ao2+Ao+N=0, e auaaeyai y?aeee no?iee A io 1 ai oie eioi?ay
iaoiaeony ia?aa ioieoe?iie eeieae. Oi?iaoe?oai ?aniiei?aiea, ia?a?oaiea e ?acia?
aoea ?a?ac iioe? ??AEEE iai? OI?IAO. A iiaiaiaee Au?aaieaaiea onoaiaaeeaaai
cia?aiea "Oaio?e?iaaou ii auaaeaie?". A iiaiaiaee O?eoo - ?acia? e ia?a?oaiea
aoea (o iaoai aa?eaioa yoi iieo?e?iue eo?nea e ?acia? 14). Onoaiaaeeaaai eo?ni?
ia y?aeea A4 e iaae?aai A=, a y?aeea A5 - A=, a y?aeea A6 - N=, e i?iecaiaei
oi?iaoe?iaaiea ii iienaiiiio auoa iaoiao. ??aeee N4, N5 e N6 auaaeyai ?aieie a
iiaiaiaee ?aiea iaiaee ??AEEE iai? OI?IAO. Yoe y?aeee i?aaiacia?aiu aey aaiaa a
ieo cia?aiee A, A, N. A a y?aeee
F4 e F6 caienuaaai oi?ioeu oae. Nia?aea noaaeony ?aaii, iioii cia?aiea y?aeee A5
ia?aoeai ia iae iuoee, ooieoey Ei?aiu anoaaeyaony ec ioieoa iai? ANOAAEA -
OOIEOE?... Auae?aai ec iaoaiaoe?aneeo ooieoee - EI?AIU. E ia?eiaai eiiieo Aaeaa
- aey aaiaa cia?aiey, iaoiayuaainy iia ei?iai. Neaaoy oi?ioea aene?eieiaioa
aaiaei B5^2-(4*B4*B6), a iauee aea oi?ioeu - =(-B5 - EI?AIU(B5^2-(4*B4*B6)))/(2*B4) Oaia?u iinea aaiaa
iieuciaaoaeai cia?aiee A, A, N a y?aeee A4, A5 e A6, a y?aeeao F4 e F6 aoaoo
auaiaeony niioaaonoaaiii cia?aiey o1 e o2. Aea
oaaeeou a i?ia?aiia Excel. Iae?in caienai 29.05.00 ()
Range("A2").Select ActiveSheet.PageSetup.PrintArea = "" .CenterFooter = "" .RightMargin =
Application.InchesToPoints(0.787401575) .HeaderMargin =
Application.InchesToPoints(0.5) .PrintNotes = False .Draft =
False .Zoom = 100
.VerticalAlignment = xlBottom .HorizontalAlignment =
xlCenterAcrossSelection With Selection.Font .OutlineFont = False
Selection.Font.Italic = True
Range("A6").Select .VerticalAlignment =
xlBottom .Size = 14 .Underline = xlNone .Weight = xlThin .ColorIndex = xlAutomatic With Selection.Borders(xlBottom) Selection.BorderAround Weight:=xlThin,
ColorIndex:=xlAutomatic
Range("E4:E6").Select .Subscript = False With Selection .Orientation =
xlHorizontal "=-R[1]C[-4]+SQRT(R[1]C[-4]^2-(4*RC[-4]*R[2]C[-
4]))/(2*RC[-4])" Application.CutCopyMode = False Range("B4").Select
ActiveCell.FormulaR1C1 = "-2" "=(-R[1]C[-
4]+SQRT(R[1]C[-4]^2-(4*RC[-4]*R[2]C[-4])))/(2*RC[-4])" Application.CutCopyMode = False
Range("F6").Select Range("F7").Select
:=xlNormal, Password:="", WriteResPassword:="", _
| |
