Matematické Fórum

kattyposp · 08. 03. 2011 18:51

Zdravím,
potřebuju pomoct s Euklidovým algoritmem a jeho zápisem ve VBA. Vývojovému diagramu a jeho funkci rozumím. Někde ale dělám chybu v zápisu, protože to nefunguje při testování. Vím, že je to asi primitivní, ale s VBA teprve začínáme.
Můj pokus:

Public Function Euklid(A As Integer, B As Integer) As Integer
'Funkce pro vytvoření euklidova algoritmu pro nalezení největšího společného dělitele dvou přirozených čísel
Do While A <> B
If A > B Then A = (A - B) Else B = (B - A)
End
Loop
Euklid = A

End Function

Kondr · 09. 03. 2011 04:22

↑ kattyposp: Co zkusit End -> End If

Public Function Euklid(A As Integer, B As Integer) As Integer
'Funkce pro vytvoření euklidova algoritmu pro nalezení největšího společného dělitele dvou přirozených čísel
Do While A <> B
If A > B Then A = (A - B) Else B = (B - A)
End If
Loop
Euklid = A

End Function

kattyposp · 09. 03. 2011 15:35

↑ Kondr: V tom případě mi to napíše: Compile Error: End If without block If.

Kondr · 09. 03. 2011 18:35

↑ kattyposp: Tak to se omlouvám. Každopádně ta syntaxe If-u vypadá jinak, než varianty popsané zde: http://www.mvps.org/dmcritchie/excel/ifthen.htm

kattyposp · 09. 03. 2011 18:36

Tak po usilovném zkoušení jsem na to přišla. Díky bohu. Ale stálo mě to 5 hodin života :-D. Díky a můžete uzavřít téma jako vyřešené. Zase někdy.

Matematické Fórum

#1 08. 03. 2011 18:51

Euklidův algoritmus ve VBA

#2 09. 03. 2011 04:22

Re: Euklidův algoritmus ve VBA

#3 09. 03. 2011 15:35

Re: Euklidův algoritmus ve VBA

#4 09. 03. 2011 18:35

Re: Euklidův algoritmus ve VBA

#5 09. 03. 2011 18:36

Re: Euklidův algoritmus ve VBA

Zápatí