Euro - Dollar - Umrechner

[Back2Code]

Delphi-Quellcode:

var
  euro, dollar : Double;
  i : integer;
  kurs : double = 1.32;

{$R *.res}

begin
WriteLn('-----------------------------------------------------------------');
WriteLn('#####################Umrechner########################');
WriteLn('-----------------------------------------------------------------');
WriteLn('Tragen Sie den aktuellen Kurs von einem Dollar ein!');
ReadLn(kurs);
    for i := 1 to 10000 do begin
    WriteLn('-----------------------------------------------------------------');
    WriteLn(FloatToStr(kurs) + (' Dollar = 1 Euro. Tragen Sie nun ihren Betrag in Euro ein!'));
    ReadLn(euro);
    WriteLn('******************************');
    dollar := kurs * euro;
    WriteLn('-----------------------------------------------------------------');
    WriteLn(FloatToStr(dollar) + (' Dollar!'));
    WriteLn('-----------------------------------------------------------------');
    WriteLn();
    WriteLn();
    WriteLn();
    WriteLn();
    end;
end.