Prgm
Local a, b, hlp, rest
ClrIO
Request "1.Zahl: ", a
expr(a)® a
Request "2.Zahl: ", b
expr(b)® b
Loop
If a < b Then
a ® hlp :b ® a :hlp® b
EndIf
mod(a,b)® rest
If rest = 0 Then
Exit
EndIf
b® a
rest® b
EndLoop
Disp "ggT = "&string(b)
EndPrgm
| Programmcode | Bildschirmausgabe |
| euklid()
Prgm Local a, b, hlp, rest ClrIO Request "1.Zahl: ", a expr(a)® a Request "2.Zahl: ", b expr(b)® b Loop If a < b Then a ® hlp :b ® a :hlp® b EndIf mod(a,b)® rest If rest = 0 Then Exit EndIf b® a rest® b EndLoop Disp "ggT = "&string(b) EndPrgm |
ggT(75,
625) = ?
|