[S] Hilfe bei Oberon Programm

» Willkommen auf Software «

Neues Thema Antworten

Master of Puppetz
aus die Maus
offline

OC God
20 Jahre dabei !

AMD Athlon 64
2000 MHz @ 2612 MHz
49°C mit 1.68 Volt

Hier mal ein Programm, ich hoffe ihr könnt euch kurz Zeit dafür nehmen:

MODULE Kredit_test;
IMPORT In, Out, Float;
VAR p,r,s,Kr:REAL;
m,j:INTEGER;

PROCEDURE ProgMain*;
BEGIN
Out.String("Bitte geben Sie die Kreditsumme ein:");
In.Real(Kr);
Out.Ln;
Out.String("Bitte geben Sie den Zinssatz in Prozent ein:");
In.Real(p);
Out.Ln;
Out.String("Bitte geben Sie die monatliche Rate in Euro ein:");
In.Real(r);
Out.Ln;
Out.String("Bitte geben Sie die jährliche Sonderzahlung ein:");
In.Real(s);
Out.Ln;
m:=0;
j:=0;
REPEAT
j:=j+1;
REPEAT
m:=m+1;
Kr:=(Kr+((Kr/100)+p))-(Kr-r);
Out.String("Nach ");
Out.Int(m,2);
Out.String(" Monat/en ist der Restbetrag ");
Out.Real(Kr,5);
Out.String(" Euro.");
Out.Ln;
UNTIL m=12;
Out.String("Nach ");
Out.Int(j,2);
Out.String(" Jahr/en ist der Restbetrag ");
Kr:=Kr-s;
Out.Real(Kr,5);
Out.String(" Euro.");
Out.Ln;
UNTIL Kr<=0

END ProgMain;
END Kredit_test.

Ich weis nicht was daran falsch ist, aber es kommt irgendwie nur Käse raus und ich hab keine Ahnung warum.
Zuerst sollen Zinssatz, Kreditbetrag, Höhe der Sonderzahlung und die monatliche Rate eingegeben werden um daraus den Kreditbetrag nach jedem Monat anzuzeigen und nochmal jährlich, weil die Sonderzahlung nur einmal im Jahr dazu kommt.

edit: Ich hab das Problem eingrenzen können.
Außer der Formel liegt es daran, dass was mit Out.Real nicht hinhaut.

Käse kommt nämlich schon raus wenn ich einfach nur eine einegegebene Variable wieder ausgeben lasse.
Was ist daran falsch

(Geändert von Master of Puppetz um 19:53 am April 17, 2005)

Beiträge gesamt: 2751 | Durchschnitt: 0 Postings pro Tag
Registrierung: Feb. 2004 | Dabei seit: 7582 Tagen | Erstellt: 19:01 am 17. April 2005

ado offline OC Newbie 20 Jahre dabei !	da sehe ich einige fehler: trenn die procedur vom HP. und die procedur rufst du erst im HP auf. und die schleifen sehen auch nicht sauber aus. hast du noch das aufgaben bllat???
	Beiträge gesamt: 48 \| Durchschnitt: 0 Postings pro Tag Registrierung: Nov. 2004 \| Dabei seit: 7318 Tagen \| Erstellt: 19:51 am 18. April 2005

Neues Thema Antworten