Seite 1 von 1

Übung 1

Verfasst: 23. Okt 2008 14:25
von CloneCommander
Ich fang einfach mal an :)

Hier mal der Code für den erweiterten euklidischen Algorithmus, den michael2k5 und ich gestern aus der Folie in vbscript übersetzt (zur Kontrolle unserer Rechnung). Sorry für die nicht-Windows-User ^^

Einfach in ne .vbs speichern und doppelklicken.

Code: Alles auswählen

' Hier Werte angeben
a = 30
b = 77

function div(a,b)
	tmp = a - (a mod b)
	div = tmp/b
end function


if b<>0 then  

	x2=1
	x1=0
	y2=0
	y1=1

	while b>0 
		q=div(a,b)
		r=a mod b
		x=x2-q*x1
		y=y2-q*y1
		
		a=b
		b=r
		x2=x1
		x1=x
		y2=y1
		y1=y
	wend

	d=a 
	x=x2 
	y=y2
	
	WScript.Echo("d: " & d & " / x: " & x & " / y: " & y)

else
wscript.echo("b ist 0")
end if

Re: Übung 1

Verfasst: 23. Okt 2008 16:22
von Christoph-D
CloneCommander hat geschrieben:Sorry für die nicht-Windows-User ^^
Für die Nicht-Windows-Nutzer macht folgender (Haskell-)Code äquivalentes:

Code: Alles auswählen

import Text.Printf

euclid a 0 = (a, 1, 0)
euclid a b = (d, t, s - a `div` b * t)
    where (d, s, t) = euclid b (a `mod` b)

main = do
  printf "Bitte a und b eingeben und jeweils mit Enter bestaetigen:\n"
  a <- readLn :: IO Integer
  b <- readLn
  let (d, x, y) = euclid a b
  printf "d: %d / x: %d / y: %d\n" d x y
IMHO ist Haskell für solche Algorithmen wie den erw. euklidischen wirklich gut geeignet. :)

Re: Übung 1

Verfasst: 31. Okt 2008 09:07
von adakara
Hallo,

gibt es keine Musterlösungen zu den Übungen?

grüße

Re: Übung 1

Verfasst: 31. Okt 2008 09:27
von nlochschmidt
wenn ich das richtig verstanden habe wird es keine Musterlösung geben

Re: Übung 1

Verfasst: 1. Nov 2008 21:12
von levitin
Was heisst, "es wird keine Musterlösungen geben"? Ist das jetzt ernst gemeint?

Re: Übung 1

Verfasst: 1. Nov 2008 22:12
von Osterlaus
levitin hat geschrieben:Was heisst, "es wird keine Musterlösungen geben"? Ist das jetzt ernst gemeint?
Ja, so hat Heike das gesagt. Die Übungslösung, die sie dabei hatte, war auch handschriftlich verfasst.

Re: Übung 1

Verfasst: 2. Nov 2008 01:48
von levitin
stellt vielleicht mal jemand den Mitschrift aus der ersten Übung online?

Re: Übung 1

Verfasst: 2. Nov 2008 02:58
von bender

Re: Übung 1

Verfasst: 2. Nov 2008 11:01
von levitin
sorry, bin doof.. danke schön ;-)