Informaatika, VBA harjutused
If c = 0 Then
SÜT = b
Exit Do
End If
a = b
b = c
Loop
End Function
5) Kuudi seinte värvimine
Koostada töölehefunktsioon kuutide seinte pindala arvutamiseks. Kuudi kuju on näidatud
joonisel. Sisestada tabelisse valem, mis arvutab värvikulu, kasutades loodud funktsiooni.
Tähised
S1 -katuse kolmnurk
S2 - külgsein
S3 - otsasein
S4 - sissepääsu ava
S - üldpind
Function Kuudipind(w, l, h, kh, uh, uw)
Valemid
W · KH
S1 =
2
S2 = L · H
S3 = W · H
S 4 = UW · UH
S = 2 · (S1 + S 2 ) + 2 · S 3 - S 4 s1 = (w * kh) / 2
s2 = l * h
s3 = w * h
s4 = uv * uh
Kuudipind = 2 * (s1 + s2) + 2 * s3 - s4
End Function
6) Arvestuse punktid
Koostada töölehefunktsioon, mis arvutab arvestuse punktid järgmiselt. Kui kõikide tööde