0,00 F3 = F1+F2 1,00 2,00 3,00 4,00 5,00 6,00 7,00 F2 -2,00 -4,00 -6,00 -8,00 F3 nullkohad 1,05 3,49 5,96 F1 F3 = F1+F2 0 7,00 F2 Algus Lõpp Jaotisi Jaotisi1 5 8 6 6 x 5,00 5,50 poskesk Integ F1 absmax F1 absasukoht 6,00 F1 1,88 -3,00 -4,27 6,50 6,50 F2 2,50 7,00
Dim i Sub paus(pp) pausi pikkusega pp sekundit For i = 1 To n Dim pl pl = Timer() + pp kuju.IncrementTop -h Do paus 0.1 DoEvents kuju.IncrementTop h Loop While Timer() < pl paus 0.1 End Sub Next i nd Sub meprotseduurilised prgorammid kitab sekundit Funktsiooni värtuste keskmise ja maksimumi leidmine algus samm lõpp jaotisi jaotisi1 -10 1 10 20 20 x F_x #NAME? #NAME? keskmine max #NAME? #NAME? Excel VBA Excel VBA #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? F_x #NAME? #NAME? #NAME? #NAME? 12 #NAME? #NAME? 10 #NAME? #NAME? 8 #NAME? #NAME? 6 #NAME? #NAME
pl = Timer() + pp kuju.IncrementTop -h Do paus 0.1 DoEvents kuju.IncrementTop h Loop While Timer() < pl paus 0.1 End Sub ext i d Sub meprotseduurilised prgorammid Funktsiooni värtuste keskmise ja maksimumi leidmine Fx 3 sin( 2 x 1) 5 algus samm lõpp jaotisi jaotisi1 -5 1 5 10 1000 x F_x -5 -4.779704 keskmine max -4 #VALUE! Excel VBA Excel VBA -3 #VALUE! 0.421469 0.421469 7.474375 7.474375 -2 #VALUE! -1 #VALUE! 0 #VALUE! 1 #VALUE! 2 #VALUE! 3 #VALUE! 4 #VALUE! 5 #VALUE!
pl = Timer() + pp kuju.IncrementTop -h Do paus 0.1 DoEvents kuju.IncrementTop h Loop While Timer() < pl paus 0.1 End Sub ext i d Sub meprotseduurilised prgorammid Funktsiooni värtuste keskmise ja maksimumi leidmine Fx 3 sin( 2 x 1) 5 algus samm lõpp jaotisi jaotisi1 -10 1 10 20 20 x F_x -10 0.277869 keskmine max -9 #VALUE! Excel VBA Excel VBA -8 #VALUE! -0.698822 -0.698822 7.474375 7.474375 -7 #VALUE! -6 #VALUE! -5 #VALUE! -4 #VALUE! -3 #VALUE! F_x -2 #VALUE!
annaabi.ee 
