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:
Alles anzeigen
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
- program Bevoelkerung;
- uses wincrt;
- var d, i, c, Jahr, r:real;
- begin
- writeln('Dieses Programm berechnet die Bevölkerung der Länder Indien und China');
- writeln; writeln;
- writeln('Geben sie ein Jahr, ab 1987, ein für welches sie die Bevölkerung dieser länder wissen möchten: ');
- readln(Jahr);
- if jahr < 1987 then begin
- writeln('Das Jahr muss ab 1987 sein!');
- readln;
- donewincrt
- end;
- d := 1987 - Jahr;
- i := 700000000 * 1.021^d;
- c := 990000000 * 1.014^d;
- writeln('Bevölkerung Indiens im ',Jahr,' : ',i,' ');
- writeln('Bevölkerung Chinas im ',Jahr,' : ',c,' ');
- readln;
- donewincrt
- end.