es hat sich erledigt
Man kann eigentlich doch FloatToStrF benutzen.. wir machens jetzt so :
Delphi-Quellcode:
program Program9;
{$APPTYPE CONSOLE}
uses
SysUtils;
var zahl1, zahl2, summe, differenz, produkt: integer;
quotient : String;
begin
writeln('Grundrechenarten');
write('Zahl1:');readln(zahl1);
write('zahl2:');readln(zahl2);
summe:=(zahl1+zahl2);
differenz:=(zahl1-Zahl2);
produkt:=(zahl1*zahl2);
quotient:= FloatToStrF(zahl1/zahl2,ffGeneral,3,5);
writeln('summe:' ,summe);
writeln('differenz:' ,differenz);
writeln('produkt:' ,produkt);
writeln('quotioent: +' + quotient);
If Zahl2=0 Then writeln('division durch 0 verboten')
Else quotient:= FloatToStrF(Zahl1 / zahl2,ffGeneral,3,5);
readln;
end.
EDIT : obwohl mir aufgefallen das inner Konsolenanwendung FloatToStrF nicht so ganz richtig funktioniert.. die Anzahl der Nachkommastellen lässt sich da nicht wirklich geregelt einstellen -.-