Verfügbare Informationen zu "Wurzel ziehen"
Qualität des Beitrags: Beteiligte Poster: Newbie - wirthi - Dragorad - Dirty Oerty - detewe89 Forum: Tutorials.at Forenbeschreibung: Programmierforum aus dem Unterforum: Pascal Antworten: 10 Forum gestartet am: Mittwoch 19.04.2006 Sprache: deutsch Link zum Originaltopic: Wurzel ziehen Letzte Antwort: vor 16 Jahren, 4 Monaten, 15 Tagen, 17 Stunden, 25 Minuten
Alle Beiträge und Antworten zu "Wurzel ziehen"
Re: Wurzel ziehen
Newbie - 06.12.2007, 23:07Wurzel ziehen
Hallo erstmal,
ich lerne mithilfe diese Tutorials gerade Pascal (naja versuche es zumindest) und habe mal eine ziemlich simple Frage:
Gibt es in Pascal "Wurzelziehen" als Rechenoperator?
Re: Wurzel ziehen
wirthi - 07.12.2007, 14:42
Servus, das sollte mit sqrt "funktionieren". Sqrt = Square Root, also Quadratwurzel.
Re: Wurzel ziehen
Dragorad - 07.12.2007, 15:57
Ist es eigentlich möglich, aus 'ner Integerzahl die Wurzel zu ziehen und den Wert in 'ner Realzahl zu speichern, oder müssen beide Zahlen vom selben Typ sein?
Re: Wurzel ziehen
Dirty Oerty - 07.12.2007, 20:40
Du kannst auch deinen eigenen Algorithmus entwickeln. (Beispiel kann ich auf Anfrage geben)
Das ist aber natürlich aufwändiger^^
Aber DANN geht das mit der Typenumwandlung sicher.
MfG
Daniel
Re: Wurzel ziehen
Dragorad - 08.12.2007, 00:13
So geht es also nicht?:
Code: var zahl1:integer;
zahl2:real;
zahl2:=sqrt(zahl1);
write(zahl2);
Das Bsp. kannst mir mal per PM schicken.
Re: Wurzel ziehen
Newbie - 08.12.2007, 16:02
Also ich wollte mal ein kleines Programm erstellen, womit man zu einem rechtwinkligen Dreieck die Länger der Hypothenuse gesagt bekommt, wenn man die Längen der beiden Kathete eingibt. Auch bekannt als Satz des Pythagoras (a²+b²=c²) ^^. Also hier der Quellcode:
Code:
program satz_des_pythagoras;
uses crt;
var a,b,c: real;
begin
clrscr;
writeln ('Geben Sie die Länge der Kathete a in cm ein: ');
readln (a);
writeln ('Geben Sie nun die Länge der Kathete b in cm ein: ');
readln (b);
c := sqrt (a*a + b*b);
writeln ('Die Länge der Hypothenuse c beträgt in cm:',c);
readkey;
end.
Wenn ich aber nun das Programm ausführe und für a 30 und für b 40 eingebe, dann gibt der mir c als 5.00000000000000E+0001 . Die richtige Lösung wäre eigentlich genau 50, woran liegt das???
Re: Wurzel ziehen
detewe89 - 08.12.2007, 21:07
Das, was Dir das Programm ausgibt, ist ja auch genau 50:
Das E+0001 am Ende der Zahl bedeutet "mal 10 hoch 1", also 50 * 10^1, was ja 50 ergibt.
Hier gab's schon mal das Problem:
http://www.iphpbb.com/board/viewtopic.php?nxu=53411326nx34195&t=307&sid=a38eed8c3cd26614bfd6dded948adb9d
Gruß,
Daniel
Re: Wurzel ziehen
Dragorad - 08.12.2007, 22:21
Hab's gleich mal in die FAQ aufgenommen, da das anscheinend eine häufig gestellte Frage ist.
Re: Wurzel ziehen
Newbie - 09.12.2007, 02:03
Na toll, wenn ich mein Programm an andere weitergeben will oder so, dann muss ich das noch jedes Mal dazuerklären :?
Re: Wurzel ziehen
Dirty Oerty - 09.12.2007, 18:43
Zum Wurzel ziehen:
Zitat: Hab das noch nicht in Code umgedacht, sollte aber eigentlich ohne Probleme gehen.
Zahl von der die Wurzel gezogen wird: z.B. 23454
Unterteilen in 2erPaare:
23 45 4
Vom ersten Paar solange ungerade Zahlen abziehen bis es nicht mehr geht, ohne negativ zu werden:
23
-1
-3
-5
-7
---(4 Zahlen abgezogen)
7
=> erste Stelle der Lösung ist 4
zweites Paar zum Rest von Paar 1 dazu nehmen:
7 45
Wieder ungerade Zahlen abziehen solange wie das Ergebnis positiv bleibt.
Dieses mal aber mit folgender Zahl:
die 4 von grade mal 10 plus 1 => 41
745
-41
-43
.
.
.
Anzahl der abgezogenen Zahlen ergibt 2. Stelle.
usw.
hab ich von so ner Inetseite...kann die auch mal suchen..da wars etwas besser erklärt.
MfG
Daniel
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Tutorials.at
Geschachtelte Schleifen - gepostet von Kimi am Donnerstag 29.11.2007
Welche Programmiersprache? - gepostet von The Dust am Sonntag 24.06.2007
C++ Lernen - gepostet von Nightm4r3 am Mittwoch 20.09.2006
Anstatt goto labelA; !? - gepostet von Mr_A_ am Mittwoch 18.04.2007
FAQ - gepostet von Dirty Oerty am Donnerstag 29.03.2007
QBasic - gepostet von Fränz Friederes am Sonntag 04.06.2006
Brauche das Programm Pascal - gepostet von Lino am Freitag 14.07.2006
Linker- Probleme mit gcc - undefined reference to ... - gepostet von DrPhil_Guth am Sonntag 10.12.2006
Grundlegende Fragen eines blutigen Anfängers!! - gepostet von würdegern am Montag 30.04.2007
Ähnliche Beiträge wie "Wurzel ziehen"
WIR ZIEHEN UM!!!!!!!!!!!!!!!!!!! - Derek_Jeter (Donnerstag 13.01.2005)
Zum Thema Wurzel Wazel und Raviack - spacebornranger (Sonntag 19.03.2006)
Wir ziehen um!! Bitte lesen! - Anonymous (Samstag 12.02.2005)
WIR ZIEHEN AUS! - Anonymous (Dienstag 15.03.2005)
zusammen ziehen - doni (Mittwoch 29.08.2007)
WIR ZIEHEN UM - thorstenmerkle (Mittwoch 18.10.2006)
WIR ZIEHEN UM- KOMMT DOCH BITTE NACH!!! - Nadine (Dienstag 24.10.2006)
WIR ZIEHEN AUS! - Anonymous (Dienstag 15.03.2005)
Porno und Maul ziehen zusammen! - Porno (Donnerstag 26.07.2007)
Wir ziehen um ... - Rowena Snape (Freitag 19.01.2007)