Hallo,
die vorschläge sind sicher o.k., aber m.E. für die "Zielgruppe" etwas zu kompliziert. Macht es doch ganz einfach:
Delphi-Quellcode:
Anzahl := 0;
if edit1.Text <> '' then begin
e1 := strtoint(edit1.text);
Anzahl := Anzahl +1;
end else
e1 := 0;
if edit2.Text <> '' then begin
e2 := strtoint(edit2.text);
Anzahl := Anzahl + 1;
end else
e2 := 0;
...
mdl := ((e1+e2+e3+e4+e5+e6+e7) / Anzahl);
Das ist zwar Anfängerstil, aber euer Programmierkurs-Lehrer kauft es euch wenigstens ab. Dass man dabei wegen fehlender Prüfung entweder gültige Noten oder garnix eingeben muss (um keinen crash zu erleiden), ist sicher akzeptabel.
Servus
tomsel