Taschenrechner mit Rest (6/5= 1 rest 1)

[Aphton]

Also so...

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
  neuA, neuB, neuC, neuD: Integer;
begin
neuA:=round(strtofloat(Edit1.Text));
neuB:=round(strtofloat(Edit2.Text));
neuC:=neuA div neuB;
Label1.caption:=inttostr(neuC);
neuD:=neuA mod neuB;
Label2.Caption:=inttostr(neuD);
end;