Nachdem ich Stunde fünf vergessen habe, erwähne ich nochmal die Stunde kurz.
Die Stunde diente zur Einführung des Arrays in WinAli und der Sominote für das Quartal (14Pkt.).
Die heutige Stunde befasste sich auch mit dem Array und der Intensivierung unserer Kenntnisse mit dem Arbeiten mit Arrays.
Aktuelle Aufgabe:
- Summe aller negativer und positiver Elemente
- kleinstes Element
Nächste Woche gibt’s neues 
Jaja bis gerade eben habe ich noch Info geschrieben… Wie immer sehr einfach 
Habe die Klausur einmal vorgeschrieben und dann nochmal in Reinschrift abgeschrieben^^
Leider habe ich mich einmal in der Zeile beim abschreiben des vorgeschriebenen vertan, sodass ich alle Zeilen nochmal überprüfen musste und alles ein bischen ändern musste… Jetzt sieht das nicht mehr ganz so schön aus 
Aufgabe 1:
- Lösen eines Sortieralgorytimus mit 5 Zahlen. Einfacher Sortieralgorithmus der schnell lösbar ist. Herr Josmann hat diesen “Xsort” getauft War wieder der gleiche aus der letzten Klausur vom letzten Schuljahr.
Aufgabe 2:
- Teil a war wieder ein Formblatt entwickeln, bei mir: 1x Label, 1x Button und 1x Listbox.
- Teil b den dazu passenden Algorithmus schreiben. Im Prinzip das gleiche wie unser Müller Sport Programm.
- Array und Variablen deklarieren
- Anfangswerte setzen
- Zufallszahlen initiieren (-> randomize();)
- Zufallszahlen ziehen, Arrayelement überprüfen und um 1 erhöhen, ggf. “anzahl_fehlende” um 1 ernidriegen
- “anzahl_gekaufte” um 1 hoch und die repeat … until Schleife solange durchlaufen bis “anzahl_fehlende = 0″
- Ausgabe und fertig
Eine einfache Klausur, die eigentlich nur aus zwei alten Klausuren besteht. Ich glaube ich werde mal die alten einscannen und hier mal zum vergleich online stellen.
Heute haben wir wieder Info und ich bin sau müde… Ich frag mich gerade warum der sich hier in einer Endlosschleife verfängt obwohl im Einzelschritt durchlauf klappt… Ich möchte nämlich Array Elemente überprüfen, ob diese gleich sind.
for i := 1 to 6 do begin for k := i+1 to 6 do if tipp[i] = tipp[k] then begin Showmessage('Zahlen doppelt'); tipp[k] := strtoint(Inputbox('Tipp ändern', 'Bitte ändern sie ihren Tipp:','')); end; end;
Naja klappt net ganz Wir machen heute Sortieralgorithmen – besser gesagt nur der Bubbelsort Algo – ich muss für nächste Stunde den “Sortieren durch Einfügen” Algorithmus den anderen Vorstellen^^ Das wird ja lustig *g*
Man in der Schule sollen die mal 3G haben 
Jaja erstemal wieder Info und Herr Jos. kommt wieder zu spät Sehr gut^^
Als er dann endlich mal da ist, dann seh ich doch glatt das wir neue PCs haben. Ganz neue von Asus^^ Das Design ist cool =)
Die PCs sind wirklich schnell und sind relativ aktuell in Sachen Windows! Es ist endlich das .NET Framework 2 drauf und IE7…
Heute ist das Thema Array, also nix neues für mich^^ Natürlich kommt der Herr Jos. und sagt mach dies und das so mega kompliziert, aber ich kriegs hin.
Sitze grad an dem Ausdruck:
if IsLeapYear(FormatDateTime('yyyy',strtodate(Edit1.Text))) then
Läuft…
Ein guter Start in den Tag =) Informatik und meine Klausur wieder… was hab ich natürlich? Eine eins (sehr gut)^^ Auch cool, dass der Herr Josmann vergessen hat mir meine Note drunter zu schreiben… Sehr cool^^
Egal ich hab die einzige Eins im Kurs, standard^^
Heute Thema: Zufallszahl und Array. Easy.
Cooler morgen^^
