Pascal: Bevölkerungswachstum Potenzfunktion

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Pascal: Bevölkerungswachstum Potenzfunktion

    Hi Leute,
    ich muss für die Schule ein Programm schreiben (Bevölkerungswachstum).
    Ich habe jetzt noch ein Problem. Beim Complirieren kommt bei den Potenzen ein Fehler, nur leider weis ich nicht was falsch ist. Könnt ihr mir helfen?

    Hier mein Programm:

    Quellcode

    1. program Bevoelkerung;
    2. uses wincrt;
    3. var d, i, c, Jahr, r:real;
    5. begin
    6. writeln('Dieses Programm berechnet die Bevölkerung der Länder Indien und China');
    7. writeln; writeln;
    8. writeln('Geben sie ein Jahr, ab 1987, ein für welches sie die Bevölkerung dieser länder wissen möchten: ');
    9. readln(Jahr);
    10. if jahr < 1987 then begin
    11. writeln('Das Jahr muss ab 1987 sein!');
    12. readln;
    13. donewincrt
    14. end;
    15. d := 1987 - Jahr;
    16. i := 700000000 * 1.021^d;
    17. c := 990000000 * 1.014^d;
    18. writeln('Bevölkerung Indiens im ',Jahr,' : ',i,' ');
    19. writeln('Bevölkerung Chinas im ',Jahr,' : ',c,' ');
    20. readln;
    21. donewincrt
    22. end.
    Alles anzeigen

  • Hi, ich habs mal ausprobiert:

    Quellcode

    1. program Bevoelkerung;
    2. uses wincrt;
    3. var d, i, c, Jahr, r:real;
    5. begin
    6. writeln('Dieses Programm berechnet die Bevölkerung der Länder Indien und China');
    7. writeln; writeln;
    8. writeln('Geben sie ein Jahr, ab 1987, ein für welches sie die Bevölkerung dieser länder wissen möchten: ');
    9. readln(Jahr);
    10. if jahr < 1987 then begin
    11. writeln('Das Jahr muss ab 1987 sein!');
    12. readln;
    13. donewincrt
    14. end;
    15. d := 1987 - Jahr;
    16. i := power(700000000 * 1.021, d);
    17. c := power(9900000000 * 1.014, d);
    18. writeln('Bevölkerung Indiens im ',Jahr,' : ',i,' ');
    19. writeln('Bevölkerung Chinas im ',Jahr,' : ',c,' ');
    20. readln;
    21. donewincrt
    22. end.
    Alles anzeigen

    nur es funktioniert irgendwie nicht :( . es zeigt mir jetzt einen fehler in der zeile an, wo die neue powerfunktion steht.

    achso und ich arbeite mit pascal und nicht mit delphi. sry falls ich das vergessenhab zu erwähnen.

  • die power funktion heißt erst seit delphi 4 power()
    bei älteren delphi versionen und pascal heißt es dann Pow() oder pow()

    auf der borland seite habe ich aber außerdem eine Funktion gefunden, die wohl schneller als die Basis Pow() Funktionen sein soll

    http://bdn.borland.com/article/20026

    Quellcode

    1. {** A power function from Jack Lyle. Said to be more powerful than the
    2. Pow function that comes with Delphi. }
    3. function Power2(Base, Exponent : Double) : Double;
    4. { raises the base to the exponent }
    5. CONST
    6. cTiny = 1e-15;
    8. VAR
    9. Power : Double; { Value before sign correction }
    11. BEGIN
    12. Power := 0;
    13. { Deal with the near zero special cases }
    14. IF (Abs(Base) < cTiny) THEN BEGIN
    15. Base := 0.0;
    16. END; { IF }
    17. IF (Abs(Exponent) < cTiny) THEN BEGIN
    18. Exponent := 0.0;
    19. END; { IF }
    21. { Deal with the exactly zero cases }
    22. IF (Base = 0.0) THEN BEGIN
    23. Power := 0.0;
    24. END; { IF }
    25. IF (Exponent = 0.0) THEN BEGIN
    26. Power := 1.0;
    27. END; { IF }
    29. { Cover everything else }
    30. IF ((Base < 0) AND (Exponent < 0)) THEN
    31. Power := 1/Exp(-Exponent*Ln(-Base))
    32. ELSE IF ((Base < 0) AND (Exponent >= 0)) THEN
    33. Power := Exp(Exponent*Ln(-Base))
    34. ELSE IF ((Base > 0) AND (Exponent < 0)) THEN
    35. Power := 1/Exp(-Exponent*Ln(Base))
    36. ELSE IF ((Base > 0) AND (Exponent >= 0)) THEN
    37. Power := Exp(Exponent*Ln(Base));
    39. { Correct the sign }
    40. IF ((Base < 0) AND (Frac(Exponent/2.0) <> 0.0)) THEN
    41. Result := -Power
    42. ELSE
    43. Result := Power;
    44. END; { FUNCTION Pow }
    Alles anzeigen