Hallo zusammen,
Ich habe heute an einer alten Klausuraufgabe für Pascal gewerkelt. Leider kann ich nicht direkt überprüfen, wie erfolgreich ich dabei war, da mit eine nötige .dat Datei nicht zur Verfügung stand.
Es geht um folgenden Sachverhalt:
In der Datei punkte.dat sind die Ergebnisse einer Klausur gespeichert. Diese umfasste 4 Aufgaben mit 2 Teilaufgaben. Für jeden Studenten werden die Punkte für jede Teilaufgabe erfasst.
Entwickeln Sie ein Pascal Programm, das für jeden Studenten seine erreichte Gesamtpunktezahl ermittelt und ausgibt. Abschließend soll auch die Durchschnittspunktzahl aller erzielten Gesamtpunkte ausgegeben werden. Das Programm soll so flexibel sein, dass es auch korrekt arbeitet, wenn die vorgegebenen Konstanten verändert werden. Der Datentyp tStudent entspricht dem Muster, nach dem die Datensätze in der Datei punkte.dat gespeichert wurden.
Benutzen Sie folgende Grundlage für Ihr Programm. Falls Sie weitere Dateitypen oder Variablen benötigen, so fügen Sie diese hinzu:
PROGRAM Auswertung;
CONST
Aufgaben = 4;
Teilaufg = 3;
TYPE
TPunkte = ARRAY [1..Aufgaben, 1..Teilaufg] OF REAL;
TStudent = RECORD
Matrikel\_Nr: LongInt;
Punkte : Tpunkte;
VAR
Student : tStudent;
PunkteDat : FILE OF tStudent;
BEGIN
END.
Die Ausgabe auf dem Bildschirm könnte so aussehen
Matrikel-Nr.: 12345 Punkte: 59.5
Matrikel-Nr.:54321 Punkte: 47.0
Und so weiter
Durchschnittspunktzahl der Klausur: 56.5
Mein Versuch sieht dann wie folgt aus. Syntaktisch offenbar fehlerfrei, aber die Funktionalität ist fraglich:
PROGRAM Einlesen;
uses crt;
CONST Aufgaben = 4;
Teilaufg = 2;
FILENAME = 'c:\punkte.dat';
TYPE tPunkte = ARRAY[1..Aufgaben, 1..Teilaufg] OF REAL;
tStudent = RECORD
Matrikel\_NR: LongInt;
Punkte: tPunkte;
END;
VAR Student: tStudent;
PunkteDat: File OF tStudent;
i: INTEGER;
zaehler : INTEGER;
punkt : REAL;
BEGIN
ASSIGN(PunkteDat, FILENAME);
RESET(PunkteDat);
WHILE NOT EOF DO
begin
READ (PunkteDat, Student);
end;
CLOSE (PunkteDat);
zaehler := 0;
punkt := 0;
WHILE NOT EOF DO
begin
WRITELN ('Matrikel-Nr.: ',Student.Matrikel\_Nr,'');
WRITELN('Punkte',Student.Punkte[1,1]+Student.Punkte[1,2]+Student.Punkte[2,1]+Student.Punkte[2,2]+Student.Punkte[3,1]+Student.Punkte[3,2]+Student.Punkte[4,1]+Student.Punkte[4,2],'');
zaehler := zaehler +1;
punkte:=punkt+Student.Punkte[1,1]+Student.Punkte[1,2]+Student.Punkte[2,1]+Student.Punkte[2,2]+Student.Punkte[3,1]+Student.Punkte[3,2]+Student.Punkte[4,1]+Student.Punkte[4,2];
end;
WRITELN ('Durchschnittspunktzahl der Klausur: ',punkte / zaehler,'');
END.
Hauptproblem war dabei für mich das Zusammenrechnen der Punkte, das ich ziemlich unhandlich gemacht habe. Bin für kompaktere Vorschläge ratbar und bitte auch um weitere konstruktive Anmerkungen.
Vielen Dank,
Marc Borsos
Nicht böse sein, bitte. Jeder, der Software schreibt, kennt die Qual des ständigen „Sich-gute-Namen-Ausdenken-Müssens“ nur zu gut. Oft bekommen Variablen auch erstmal nur „Scherznamen“, die dann später, wenn klarer geworden ist, was die entsprechende Variable oder das entsprechende Objekt (bei objektorientierter Programmierung) für Aufgaben erfüllt, in einen „richtigen“ Namen umgewandelt werden. Hier ist aber auch schon der entscheidende Punkt: _Wenn die Aufgaben klarer geworden sind_. Das Sich-Ausdenken von richtig guten (des _einen_ richtig guten?), d. h. aussagekräftigen Namen, und das Sich-darüber-klar-werden, was eine Variable/ein Objekt tut und was nicht, ist eng miteinander verknüpft. Die Suche nach dem richtigen Namen ist deshalb so schwierig, weil dahinter eine elementare Frage steckt, die Frage _„Was ist es?“_. Hast Du Klarheit über die Bedeutung einer „Entität“ (vornehmes Wort für „Ding“) gewonnen, dann hast Du automatisch auch einen guten Namen, und bist auch der Lösung des Gesamtproblems ein Stück näher gekommen, weil Du etwas _verstanden_ hast. Daher mein Tip: Nimm das „Richtige-Namen-Problem“ ernst (wenn Du gut werden willst). Bemühe Dich, die Was-ist-es-Fragen bestmöglich zu knacken, schreib die Antworten in die Namen, und lerne dabei jedesmal ein Stück mehr über das Wesen des Problems. Beim Namen-Geben geht es nicht um „schönes Aussehen“, sondern um Verstehen.