folgendes script gibt den geist auf, wenn a die hälfte von b oder b die hälfte von a ist...:
function kgv(a, b)
dim x, u, r, d, v
if a < b then
v = b - a
elseif b < a then
v = a - b
end if
r = a
d = b
x = a * b
If a = 0 or b = 0 or b = 1 or a = 1 or v = a or v = b then
If b = 0 or b = 1 or v = b then
u = a
a = 100
b = 100
elseif a = 0 or a = 1 or v = a then
u = b
a = 100
b = 100
end if
elseif b > 0 and a > 0 then
do until a = b
If a < b then
b = b - a
ElseIf b < a then
a = a - b
end If
loop
end if
x = x / b
If u = r or u = d then
x = u
end if
kgv = x
end function
a = inputbox("1. Zahl")
b = inputbox("2. Zahl")
msgbox("Das kgV ist: " & kgv (a, b))
pls help
thx
//edit sry krigs anders net hin
function kgv(a, b)
dim x, u, r, d, v
if a < b then
v = b - a
elseif b < a then
v = a - b
end if
r = a
d = b
x = a * b
If a = 0 or b = 0 or b = 1 or a = 1 or v = a or v = b then
If b = 0 or b = 1 or v = b then
u = a
a = 100
b = 100
elseif a = 0 or a = 1 or v = a then
u = b
a = 100
b = 100
end if
elseif b > 0 and a > 0 then
do until a = b
If a < b then
b = b - a
ElseIf b < a then
a = a - b
end If
loop
end if
x = x / b
If u = r or u = d then
x = u
end if
kgv = x
end function
a = inputbox("1. Zahl")
b = inputbox("2. Zahl")
msgbox("Das kgV ist: " & kgv (a, b))
pls help
thx
//edit sry krigs anders net hin
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „sum44“ ()