blikk info infothek forum galerie sitemap

Wurzelberechnung nach Heron

 zur Aufgabenstellung
    Autoren:
Ulrich R. und Julian F. 
Gewerbeoberschule 'Max Valier' Bozen  Kl.3IA 
 

Pseudocode:

Funktion berechnet die Quadratwurzel einer beliebigen Zahl:

  startzahl:=1;
  {Errechnung der Quadratwurzel}
  Solange abs(startzahl*startzahl-zahl) > Epsilon
    startzahl:=(startzahl+zahl/startzahl)/2;
  {Dem Funktionswert wird die Wurzel übergeben}
  qwurzel:=startzahl;



Hauptprogramm:

  {Die Zahl aus der die Wurzel bebildet werden soll wird eingelesen}
  Schreibe('Geben sie eine Zahl ein: ');
  Lese(zahl);
  ergebnis:=qwurzel(zahl);  {Funktion qwurzel wird aufgerufen}
  {Ausgabe des Ergebnisses}
  Schreibe('Wurzel von ',zahl:5:2,' ist ',ergebnis:5:2);
  Lese;
END.

 


Quellcode:

PROGRAM wurzel;
CONST Epsilon=0.00000000001;

{Funktin berechnet die quadrat Wurzel einer beliebigen Zahl}
FUNCTION qwurzel(zahl:REAL):REAL;  {ein Wertparameter wird übergeben}
VAR startzahl:REAL;{lokale Variablen der Funktion}
BEGIN
  startzahl:=1;
  {Errechnung der quadrat Wurzel}
  WHILE abs(startzahl*startzahl-zahl) > Epsilon DO
    startzahl:=(startzahl+zahl/startzahl)/2;
  {Dem Funktionswert wird die Wurzel übergeben}
  qwurzel:=startzahl;
END;

VAR zahl:REAL;{lokale Variablen des Hautprogrammes}
    ergebnis:REAL;
BEGIN
  {Die Zahl aus der die Wurzel bebildet werden soll wird eingelesen}
  Write('Geben sie eine Zahl ein: ');
  Readln(zahl);
  ergebnis:=qwurzel(zahl);  {Funktion qwurzel wird aufgerufen}
  {Ausgabe des Ergebnisses}
  Writeln('Wurzel von ',zahl:5:2,' ist ',ergebnis:5:2);
  Readln;
END.

 

Zurück
nach oben