Ein Ausdruck des Beitrags mit 2 Antworten ergibt bei 3 Antworten pro Seite ca. 1 DIN A4 Seiten. Das entspricht bei 80 g/m² ca. 4.99 Gramm Papier.
-- Veröffentlicht durch ado am 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???
-- Veröffentlicht durch Master of Puppetz am 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)
|