Killogramm, Gramm und milligram

[TheCatcher]

Hallo Leser,

ich soll ein Programm (dank Schule) schreiben, welches aus 2 Werten das Gewicht berechnet je nach grösse des Ergbinss soll darüberhinaus der Wert umgerechnete werden in in mg, g, kg oder t.

Also Beispiel.

Der Bauer hat 4 Eier á 15 g = 60g
Dieser wert ist zu klein also in mg ausgeben

oder der Bauer hat 8 Euer á 974 g = 7792 g
zu gross also in kg 7,792 kg

na ja und so weiter leider habe ich keine Ansatzplan udn auch keine Idee.
Im Forum nach kg oder mg zu suchen bringt nicht viel


Vielleicht hat jemand ein Code Beispiel für mich mit welchem ich dann weiterarbeiten kann... ich wäre sehr Dankbar....

[Matze]

Hi, naja, du musst doch einfach nur umrechnen.

1000 mg = 1 g
1000 g = 1 kg

Mal nur so ein fetzen:

Delphi-Quellcode:

Kilo = Wert div 1000;
Gramm = (Wert - Kilo) div 1000

hm, oder so in der Art

[Christian Seehase]

Moin TheCatcher,

als erstes könnte mal die gesamte Aufgabe hilfreich sein, denn das was Du uns da genannt hast kann es ja eigentlich nicht gewesen sein.

[TheCatcher]

Danke Matze aber so weit war ich auch schon aber leider
habe ich z.B. Komma Probleme 0 Fehlt hin und wieder mal gerne!


und an Christian... Du wirst lachen aber das ist meine Aufgabe nicht mehr nicht weniger - soll nur zur eine Anfänger Übung sein. So lautet der Satz der Lehrerin

[stoxx]

hatten wir doch vor kurzem schonmal solche Umrechnungen:

Delphi-Quellcode:

function xFloatToSym(Value : Extended) : String; 
const 
  S_UNITS = 'afpnµm kMGTP'; 

var Wert: Extended; 
    Einheit : Integer; 
begin 
wert := Value; 
Einheit := 7; 
while ( wert < 1 ) and (Einheit > 1) do begin 
  Wert := Wert * 1000; 
  dec(Einheit); 
end; 

while (Wert >= 1000) and (Einheit < 12) do begin 
  Wert := Wert / 1000; 
  inc(Einheit) 
end; 
Result := Format('%g%s', [Wert, S_Units[Einheit]]); 

end; // xFloatToSym

http://www.delphipraxis.net/internal...729&highlight=

[Catbytes]

Hi,

wenn Du Vorlagen für ein Konvertierprogramm brauchst und zufällig Delphi7 einsetzt: Im Demo-Verzeichnis von Delphi7 gibt es ein Programm namens "ConvertIt" - das rechnet alles mögliche um

Nur so als Tipp...

[TheCatcher]

Nee habe kein D7 Danke


@stoxx danke ich experimentiere schon damit

[Christian Seehase]

Moin TheCatcher,

und nach welcher Gewichtung soll entschieden werden, ab wann ein Wert umgerechnet werden soll?

[Catbytes]

Zitat von TheCatcher:

Nee habe kein D7 Danke

Gibt es aber wenigstens die Units ConvUtils.pas und/oder StdConvs.pas? Die liegen bei mir in "...\Borland\Delphi7\Source\Rtl\Common" und sind im Source mit 1995 - 2001 gecopyrighted (was fürn Wort). Eventuell waren diese Units dann schon in früheren Delphi-Versionen dabei.

In diesen Units sind viele Konvertiermöglichkeiten vorhanden...

[TheCatcher]

Ab wann umgerechnete werden soll - immer dann wenn Tausend VOR dem Komma voll sind!

Das heisst 9mg sind 9 mg - 99 mg 99mg 999mg auch 999mg aber dann 1001mg sind dann 1,001g na ja und so weiter - 999g sind 999g aber 1001g sind 1,001 kg

das ist mir einfch zu hoch in Delphi....

ps. ConvUtils.pas und/oder StdConvs.pas habe ich beide NICHT (Delphi 5 Std)