Ausschließen von Minuszahlen

[Guss3r]

HY,

ich habe jetzt schon seit 2 Tagen das Internet abgesucht und habe nichts gefunden.
Mein Problem liegt darin, das ich ein Programm schreibe, das Zahlen addieren soll die per Zufall positive und negative sind.
Jetzt das Problem: Ich möchte das Delphi nur die positiven Zahlen mit einander addiert und die negativen Zahlen nicht beachtet.

Kann mir da einer Bitte helfen?

MFG
Guss3r

[Flare]

Delphi-Quellcode:

if zufallszahl>0 then
begin
  //Deine Addition
end;

Suchst du das?


Flare

[Corpsman]

If Zahl >= 0 then begin
"Addiere" end;

schitt flare war schneller

[Flare]

Zitat:

Zitat von Corpsman

If Zahl >= 0 then //...

Ich würde nur auf größer und nicht auch auf gleich abfragen, da eine Addition mit 0 eh irgendwo...ihr wisst schon :mrgreen:


Flare

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.

[Guss3r]

Erstmal danke für eure Antworten, aber ich meinte eigendlich etwas anderes und habe mich nur schlecht ausgedrückt.

So nunnochmal erklärt(ich hoffe verständlicher :zwinker: ), also ich habe eine Zahl z.B. 15, von der ziehe ich ein Zufällige ab(die in einem Zahlenbereich zwischen 1-20 liegt), das Ergebnis ist machmal positiv und machmal negativ. Das ganze hab ich 3 mal und die Ergebnisse sollen nun addiert werden, aber nur die positiven Zahlen.

Hoffe das es eine Lösung dafür gibt.

MFG
Guss3r

[Christian Seehase]

Moin Guss3r,

dann schreibe Dir doch die Ergebnisse in ein Array und addiere anschliessend, in einer Schleife, die positiven.

[Guss3r]

Hy Christian Seehase,

ansich ja, aber die Zahlen sind immer unterscheiedlich und darum kann mal die erste positiv oder auch negativ sein, genau so die zweite oder dritte.

[Luckie]

Ja und?

Delphi-Quellcode:

var
  sum: Integer;
for i := 0 to Length(MyArray) - 1 do
begin
  if MyArray[i] > 0 then
    sum := sum + MyArray[i];   
end;

[inherited]

Und in deinem speziellen Fall:

Delphi-Quellcode:

myarray: Array[1..3] of Integer;

...

myarray[1]:=15-random(20)+1;
myarray[2]:=2-random(20)+1;
myarray[3]:=42-random(20)+1;

for i := 1 to 3 do
begin
  if myarray[i]>0 then
    Ergebnis:=Ergebnis+myarray[i];
end;