Forum: Object-Pascal / Delphi-Language
Delphi
by JumpFrog,
6. Apr 2009
Genau :cry: :cry:
Naja ich bin nunmal ein Ass im Programmieren. Ich merke nur wieviel mist wir hier in der Berufsschule beigebracht bekommen :( eigentlich traurig.
Ich werde mir den Quelltext den ihr mir gegeben habt anschauen, aber im ersten Moment seh ich da nicht durch :)
Bin gerade in der Berufsschule, falls ich es schaffe werde ich die Lösung vom Lehrer mal Posten.
LG JumpFrog
Forum: Object-Pascal / Delphi-Language
Delphi
by JumpFrog,
5. Apr 2009
achso :?: :?:
ich dachte Immer das sei der bereich aus dem er die Zahlen generieren soll. Also ist das nur die angabe der Anzahl der Zahlen die er ziehen soll oder wie darf ich das verstehen? :gruebel: :gruebel: Bin gerade ein wenig verwirrt, weil mein Programm keine Zahlen höher als 48 anzeigt. :gruebel: :gruebel:
Forum: Object-Pascal / Delphi-Language
Delphi
by JumpFrog,
5. Apr 2009
Also Lotto geht ja laut meines wissens (Bin kein Lottospieler) bis 49 und da random aber bei 0 anfängt und es keine 0 gibt addiere ich zu der erzeugten zahl einfach 1 dazu.
Ok, verstehen war falsch Formuliert, ich meine nicht wie es funktioniert sondern eben den aufbau der Syntax verstehen und das habe ich im moment noch nicht. :duck:
auf jedenfall Funktioniert jetzt das Programm richtig....
Forum: Object-Pascal / Delphi-Language
Delphi
by JumpFrog,
5. Apr 2009
tja zum glück hatten wir das Debuggen schon dran in der schule ;) *ironie off*
Stimmt, ich könnte "x:=x+1" auch ausserhalb der If bedinung schreiben, darauf bin ich noch nicht gekommen ;)
das c ist für die vorangegangenen While schleife. Damit das keine entlosschleife wird.
Mit For habe ich es schon versucht und nicht auf anhieb hinbekommen, also dachte ich mich versuch ich es so und...
Forum: Object-Pascal / Delphi-Language
Delphi
by JumpFrog,
5. Apr 2009
achso meinstest du das sorry...
um eine endlosschleife geht es gerade nicht ;) sondern um die ausgabe der anzahl der zahlen die größer sind als 10 schau dir dein programm an und erzeuge zahlen, lass se anzeigen und dann schaun welche größer sind als 10 du wirst sehen deine aussageb wird 0 sein. Was ja eigentlich nicht stimmt.
Forum: Object-Pascal / Delphi-Language
Delphi
by JumpFrog,
5. Apr 2009
wie schön das unser Lehrer das uns mal gesagt hat :)
procedure TForm1.BtnGroClick(Sender: TObject);
var
x,a,i,zahl:Integer;
begin
x:=0;
a:=0;
zahl:=0;
while x<=5 do
Forum: Object-Pascal / Delphi-Language
Delphi
by JumpFrog,
5. Apr 2009
ahhh jetzt das bedeutete das immer nur die erste Zeile nach dem If zu der IF bedingung gehört. versteh ich das richtig?
Forum: Object-Pascal / Delphi-Language
Delphi
by JumpFrog,
5. Apr 2009
nihms mir nicht übel....
aber...
while x<=5 do
begin
If Feld>=10 then
zahl:=zahl+1;
a:=a+1;
x:=x+1
Forum: Object-Pascal / Delphi-Language
Delphi
by JumpFrog,
5. Apr 2009
hey leute,
wir sollen in der Berufsschule ein "LottoProgramm" schreiben.
Ich bin in der Stunde nicht fertig geworden und hab es Zuhause neu geschrieben. Später habe ich meinen Lehrer gefragt wieso mein Programm "hängt" (mir war klar das es an den Endlosschleife hing, allerdings hab ich die den logichen fehler nicht gefunden). Anschließend hab ich Algorithmus neu geschrieben. natürlich...