Hallo an alle,
ich benötige Hilfe. Und zwar vorerst zur Mittelwertbildung. Ich habe Textdateien die immer folgend aufgebaut sind: xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx...
Die x'e stehen nur für Zahlen und zwar für ein bis dreistellige. Bei Einstelligen halt mit 3 Leerzeichen, bei Zweistelligen mit 2 und so weiter...
Ich lese die 4er Blöcke jetzt mit folgender Routine in ein Array ein:
Delphi-Quellcode:
var f: file;
i: Byte;
A: Array[1..4] of char;
begin
memo1.Lines.Clear;
opendialog1.Execute;
assignfile(f, opendialog1.FileName);
reset(F, 1);
for i:= 1 to 5 do
begin
blockread(f, a[1], sizeof(a));
memo1.Lines.add(a);
end;
closefile(f);
end;
Aus diesen 5 Werten brauche ich jetzt den Mittelwert. Leider funktioniert das mit mean(Array) nicht, da ich kein Array of Double habe. Und das habe ich nicht, weil irgendwie ständig die Leerzeichen gestört haben. Gibts da noch einen anderen Weg, als die komplette Gleichung in eine Funktion zu schreiben? (Beim Mittelwert gehts ja noch, aber bei der Standardabweichung wirds schon schwieriger)
Danke
[edit=alcaeus]delphi-tags eingefuegt. In Zukunft bitte selbst machen. Mfg, alcaeus[/edit]