Ausgabe des größten gemeinsamen Teilers zweier positiver ganzer Zahlen.
Die ist die verbesserte Version. Bei der Ur-Version wird davon
ausgegangen, das der größte gemeinsame Teiler von m und n
gleich dem größten gemeinsamen Teiles von m und m - n ist.
Struktogramm
Programm
Quellcode
<!DOCTYPE HTML PUBLIC
"-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>DG1XPZ - Java-Script-Programmierung, Der
Euklidische Algorithmus</title>
<script language=JavaScript>
<!--
function euklid(){
var r=0;
var m=0;
var n=0;
var m=document.algorithmus.eingabe1.value;
var n=document.algorithmus.eingabe2.value;
do{
if (m<n){
r=m;m=n;n=r;
}
r = m % n;
if (r!=0){
m=n;n=r;
}
}while (r!=0);
document.algorithmus.ausgabe1.value=n;
}
//-->
</script>
</head>
<body>
<table><tr><td align=center>
<form action="" method=post
name=algorithmus target="">
<p align="right">Bitte die
Zahlen eingeben:
<input name=eingabe1
size=7 align=right><input
name=eingabe2 size=7
valign=right><br>
<button onclick=euklid() value="algorithmus">
berechnen </button><br>
<input name=ausgabe1 size="18">
</form>
</td></tr></table><br>
</body>
</html>
