Hallo, Leute,
versuche mir gerade selbst den Umgang mit Delphi beizubringen, da unserer Lehrer das nicht wirklich hinbekommen

Nun steht bald an das wir eine Konsolenanwendung zur Zinsrechnung gestalten sollen und ich wollte mir im Vorfeld schon mal ein paar Tipps einholen wie ich das Programm aufbaue (also mit if - Funktion oder case of, sehe da noch nicht wirklich durch).

Wenn ihr also ne Idee habt, wäre ich Euch echt total dankbar. Hab jetzt schon mal probiertn bisschen was zusammen zu schreiben, aber das ist auch noch nicht das wahre.

Danke schon mal vorab für Eure Hilfe

Hallo,

wie man Zinsen berechnet, dazu findest Du hier Hinweise.

Dazu mußt Du dann noch wissen, das Read bzw ReadLn Eingabe von der Console einließt
und write bzw. WriteLn Ausgaben auf die Console bringt.

Viel Spaß beim Programmieren.

Und wenn Du Probleme hast, Deinen Code zeigen - dann wird Dir auch geholfen.

Grüße
Klaus

Moin 8472,

(schöner Nick, falls er daher stammt, wo ich vermute )

da Du schon mal gezielt if und case angesprochen hast:
An welcher Stelle besteht denn da das Verständnisproblem?

Und was Klaus01 und Christian Seehase vergessen haben:

Herzlich Willkommen in der Delphi-PRAXiS!

program P_Sparguthaben;

{$APPTYPE CONSOLE}

uses
SysUtils;

var p, k, n, z :integer;
start, wert :char;

function zinsite (var p, k, n : integer):real;

begin
k:= 0 ;
For n := 0 to n do k :=

writeln;
zinsen:= p * k * n / 100;
writeln;
end;

function zinsrek (a,n:integer):real;

begin
if n = 0 then zinsrek := 1
else
if n = 1 then zinsrek := a
else
zinsrek := a * zinsrek(a,n-1);


writeln;
end;

begin

write ('Moechten Sie das Programm starten (j/n): ');readln(start);
while start <> 'n' do begin

write('Geben Sie einen Kapitalwert ein (k):') ;readln(k);
write('Geben Sie die Laufzeit ein (n):') ;readln(n);
write('Geben Sie den Prozentwert ein (p):') ;readln(p);

Write(' Waehle iterative (I) oder rekursive (R) Zinsberechnung!: ');readln(rop);

If rop = 'I' Then Begin

write(' Das Ergebnis der Iterativen Berechnung: 'zinsite(p,k):6:2);
writeln;
end
else

Begin

write(' Das Ergebnis der Rekursiven Berechnung: 'zinsrek(p,k):6:2);
writeln;

end;

write ('Das Programm erneut starten?: ');readln(start);
end;
end.

================================================== ===========================================

Ich weiß, es sind noch viele Fehler drin, aber ich habs schon mal probiert. Bin auch noch nicht am Ende, aber ich werd heute noch weiter Programmieren. Danke für Eure nette Begrüßung

zusammenfalten · markieren

Delphi-Quellcode:

program P_Sparguthaben;

{$APPTYPE CONSOLE} 

uses
  SysUtils;

var
  p, k, n, z :integer;
  start, wert :char;

function zinsite(var prozent, kapital, jahre : integer):real;
var
  i:Byte;
begin
  For i := 1 to jahre do
    kapital := kapital*(1+(p/100));

  result:=kapital;
end;

function zinsrek (a,n:integer):real;
begin
  if n = 0 then
    zinsrek := 1
  else
    if n = 1 then
      zinsrek := a
    else
      zinsrek := a * zinsrek(a,n-1);
end;

begin

  write ('Moechten Sie das Programm starten (j/n): ');readln(start);
  while start <> 'n' do
     begin
       write('Geben Sie einen Kapitalwert ein (k):') ;readln(k);
       write('Geben Sie die Laufzeit ein (n):') ;readln(n);
       write('Geben Sie den Prozentwert ein (p):') ;readln(p);

       Write(' Waehle iterative (I) oder rekursive (R) Zinsberechnung!: ');readln(rop);

       If rop = 'I' Then
         Begin
           write(' Das Ergebnis der Iterativen Berechnung: 'zinsite(p,k,n):6:2);
           writeln;
         end
       else
         Begin
           write(' Das Ergebnis der Rekursiven Berechnung: 'zinsrek(p,k):6:2);
           writeln;

          end;

       write ('Das Programm erneut starten?: ');readln(start);
     end;
end.

Mal etwas eingerückt, verbessert ud Delphi Tags gesetzt.

Grüße
Klaus