» Willkommen Gast   | Registrieren

PC Forum
Software
Antworten in:

Antwort auf
Benutzername:   Noch nicht registriert?
Passwort:   Passwort vergessen?
iB Code Einmal klicken um den Tag zu öffnen, nochmal klicken zum Schliessen

Top Smilies
Beitrag

HTML ist on für dieses Forum

IkonCode ist on für dieses Forum

SMILIES LEGENDE ansehen
Beitragsoptionen

 Möchten Sie Ihre Signatur hinzufügen?
Wollen Sie per Email über Antworten informiert werden?
Wollen Sie Emoticons in Ihrem Beitrag aktivieren?
 

Beitragsrückblick für (die neuesten Beiträge zuerst)
ado Erstellt: 19:51 am 18. April 2005
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???
Master of Puppetz Erstellt: 19:01 am 17. April 2005
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)
×