ratio rechner

[oni]

ich hab einen ratio rechner gebaut denn könnt ihr euch ja mal angucken
er sollte auf allen windows versionen laufen
es ist aber bis her nur eine beta genaue vers. 1.0.1.16 releas: 09.07.2004
aber ich hab ein problem ich wüsste gerne wie ich die ergebnisse runde

[MrKnogge]

Servus % herzlich willkommen hier im Forum :hi:

Erklär doch noch bitte was dein ratio-Rechner so alles kann.
Für deine Frage erstelle bitte einen neuen Beitrag.
(oder schau in der OH nach round)

gruss

[oni]

er rechent ratios z.b. für ftps aus also das up- download verhältnis aus
es ist zwar nicht viel aber er funkt

[micsie]

Hallo,

dein Programm funktioniert zwar, ich kenne dafür aber kaum eine Einsatzmöglichkeit. Eine solche Aufgabe kann man im Windows-Rechner genauso gut berechnen.
Du solltest deinen Quelltext noch besser formatieren (siehe Delphi Styleguide - http://www.delphi-source.de/grundlagen/styleguide/)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  u,
  d,
  dd,
  uu: real;
begin
  u := strtofloat(edit1.Text);
  d := strtofloat(edit2.text);
  if u < d then
  begin
    uu := (u/u);
    dd := (d/u);
    label1.caption := floattostr(uu);
    label2.caption := floattostr(dd);
  end
  else
  begin
    dd := (d/d);
    uu := (u/d);
    label1.caption := floattostr(uu);
    label2.caption := floattostr(dd);
  end;
end;

mfg micsie

[Ultimator]

Ich will dein Prog ja nicht schlecht machen, aber wie micsie schon sagt, das kann man leicht im Taschenrechner machen.
Außerdem sollte man kein real mehr verwenden, nimm besser single, double und real ;-)
Aber wir haben ja alle mal so angefangen, also mach dir nix draus...
Man merkt eindeutig, wer mit normalem PASCAL angefangen hat :lol:

[mirage228]

Zitat:

Zitat von Ultimator

Außerdem sollte man kein real mehr verwenden, nimm besser single, double und real ;-)

Die Kombination machts, wa? :mrgreen:

[Wheelie]

Wieso sollte man denn kein real mehr verwenden :?:

[Nikolas]

Was willst du mit dieser Zeile bewirken?

Delphi-Quellcode:

uu:=(u/u);

Das Ergebniss der Rechnung ist nicht allzuschwer vorrauszusagen.

[mirage228]

Zitat:

Zitat von Wheelie

Wieso sollte man denn kein real mehr verwenden :?:

Hi,

Zitat Delphi Hilfe:

Zitat:

Der Typ Real48 (6 Byte) hatte in früheren Object-Pascal-Versionen den Namen Real. Wenn Sie Quelltext neu compilieren, der den alten Typ Real (6 Byte) in Delphi enthält, ändern Sie diesen Typ in Real48. Die Compiler-Direktive {$REALCOMPATIBILITY ON} wandelt den Typ Real wieder in den alten 6-Byte-Typ um.

Real48 wird nur aus Gründen der Abwärtskompatibilität verwendet. Da das Speicherformat dieses Typs kein natives Format der Intel-Prozessorarchitektur ist, laufen die entsprechenden Operationen langsamer ab als mit anderen Gleitkommatypen.

mfG
mirage228

[oni]

@Ultimator: ich hab nicht mit pascal angefangen
ich hab das fürn kumpel gebaut der mathematisch nicht so begabt ist und des wegen ist es einfacher mit diesem prog

ok ich sehe es ein ich sollte meinen quelltext besser formatieren (werd mir beim nächsten mal möhe geben)