{VERSION 4 0 "IBM INTEL LINUX22" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 40 "Mathematik f\374r Informat iker IV (Algebra)" }}{PARA 0 "" 0 "" {TEXT -1 15 "Aufgabenblatt 2" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 9 "Au fgabe 2" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "eea:=proc(a,b)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 " local r,q,s,t,l,i,d:" }}{PARA 0 "" 0 "" {TEXT -1 58 "Teste die Einga be auf Korrektheit und mache Zahlen positiv" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 " if a<0 then a:=-a fi: if b<0 then b:=-b: fi:" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 " if a=0 or b=0 then return(0): fi: " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 " if b>a then d:=b: b:=a: a:=d: fi:" }}{PARA 0 "" 0 "" {TEXT -1 26 "Starte mit dem Algorithmus" } {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 " l:=floor(5*lo g[10](b)+1):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 " r:=array(0..l): s :=array(0..l): t:=array(0..l): q:=array(0..l):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 55 " r[0]:=a: r[1]:=b: s[0]:=1: t[0]:=0: s[1]:=0: t[1]:= 1:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " i:=1:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " while r[i]<>0 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " q[i]:=iquo(r[i-1],r[i]): " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 " r[i+1]:=irem(r[i-1],r[i]): " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " s[i+1]:=s[i-1]-q[i]*s[i]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " t[i+1]:=t[i-1]-q[i]*t[i]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " i:=i+1:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 " od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " return(r[i-1], s[i-1], t[i-1],i-1):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "eea(4719,1001);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\" $V\"\"\"$!#9\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "3*4719 -14*1001;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$V\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "ifactor(4719); ifactor(1001);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*(-%!G6#\"\"$\"\"\")-F%6#\"#6\"\"#F(-F%6#\"# 8F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*(-%!G6#\"\"(\"\"\"-F%6#\"#6F(- F%6#\"#8F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "11*13;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"$V\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 40 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }