Citat:
dsl94 kaže:
Nisam ja nikome nista predlozio, ja imam problem, ukucao sam ovako:
Private Sub Command1_Click()
Dim A As Single, B As Single, C As Single, D As Single
A = txtQ1
B = txtQ2
C = txtRastojanje
D = 9 * 10 ^ 9 * A * B / C ^ 2
txtResenje = D
End Sub
I opet mi kao rezultat daje nesto sto nema veze sa onim sto treba da dobijem
|
Na kom primeru to isprobavaš? Meni sve radi ok:
Citat:
q1=-6.25E-9
q2=-6.25E-9
r=0.617
F=9.234901E-07 <-- Tačan rezultat.
|