„Vergleicher“

Borland Delphi 7Wir schreiben im Info-Unterricht nun in Delphi und Pascal kleine Programme, welche ich hier zu einem großen Teil veröffentlichen werde. Zwar sind die meisten der Programme im grunde nutzlos, jedoch helfen Sie vielleicht Einsteigern beim erlernen der Sprachen. Außerdem sind zum Beispiel Hausaufgaben für andere Schüler der Schule interessant 😉

Dann fang ich mal an mit einem kleinen, sinnfreien Programm, in dem man 2 Zahlen eingibt, welche dann in 3 Punkten vergleichen werden. Entweder ist die erste Zahl größer als die zweite, die erste kleiner als die zweite oder beide Zahlen gleich.

Das ganze Programm sieht ungefähr so aus:

Compare

Den Code gibt es hier
PS @ Schüler: Das ist eine einfache Version des Programmes, welches Herr Kassulke von uns programmiert haben wollte. Ich habe den Sinn von seinem Layout nicht verstanden und es einfach selber anders gestalltet. Vielleicht hilft euch der Code trotzdem weiter 🙂

Neues kleines Delphi Programm

Meine zweites Programm ist fertig! Es handelt sich um einen Notenberechner! Damit kann man seine Durchschnittsnote in einem Schuljahr errechnen… Das Programm richtet sich an SEK ll Schüler! Es werden auch die Klausuren berücksichtig. Da ja beide Klausuren in einem Leistungskurs die hälfte der Endnote ausmachen und bei einem Grundkurs 25%! Der Anlass war eine Studienaufgabe, da der Lehrer nicht da war…
Notenberechnung 0.1
Wie immer ist der Quellcode hier einzusehen: http://paste.pocoo.org/show/1053/
Der Source mag wohl sehr abschreckend wirken, es handelt sich jedoch nur um viele Variablen. Am Ende ist die ziemlich simple Berechnung vorzufinden:

1) gknote:=((gk1+gk2+gk3+gk4+gk5)/5)*3;
2) gknoteKlausur:= gkk1;
3) gknoteEndergebnis:=(gknote+gknoteKlausur)/4;
4) edit15.Text:=FloatToStr(gknoteEndergebnis);

1. Addieren aller Variablen und
anschließend /5 und nun *3 rechnen, abschließend das
Ergebnis der Variablen gknote zuschreiben.
2. Den Wert der Variablen gkk1 der Variablen
gknoteKlausur überschreiben.
3. gknote+gknoteKlausur /4
4. gknoteEndergebnis in das Feld „edit15“ einschreiben

 

gk steht für „Grundkurs“
Wer das Programm mal ausprobieren möchte, oder
sogar gebrauchen kann, hier der Download!
Es handelt sich um die Delphi Projekt Datei und der .exe!

Free Pascal

Lazarus LogoDa wir im Informatik Unterricht in der Schule mit Pascal/Delphi Programmierung begonnen haben und ich Linux-Nutzer bin hab ich mich auf die Suche nach freien Delphi-Alternativen gemacht. Mit Free Pascal hab ich dann auch eine gefunden, welche schon fast vollständige Delphi 7 Kompatiblität besitzt und eine Oberfläche mitbringt (Lazarus), welche fast zu 100% von Delphi „kopiert“ wurde was in meinem Fall natürlich sehr praktisch ist. So kann ich Zuhause auch unter Ubuntu in Pascal/Delphi programmieren.