Prob mit Schul- und Privat Delphen.

[Luckie]

Delphi-Quellcode:

function CelsiusinFahrenheit (Parameter : Real) : Real; 
Begin
  result := Parameter * 9 / 5 + 32;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := FormatFloat('#.##', Celsiusinfahrenheit(StrToFloat(Edit1.Text)));
end;