AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Notendurchschnitt berechnen und Initialisierung eines Array of integer

Notendurchschnitt berechnen und Initialisierung eines Array of integer

Ein Thema von EdAdvokat · begonnen am 3. Nov 2020 · letzter Beitrag vom 4. Nov 2020
Antwort Antwort
Seite 1 von 2  1 2   
EdAdvokat
Online

Registriert seit: 1. Mai 2016
Ort: Berlin
308 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 3. Nov 2020, 17:31
Hallo zusammen,
ich wollte eigentlich eine ganz einfache Notendurchschnittsberechnung mit einem Array of integer programmieren, doch ich bekomme
es einfach nicht hin.
An der Stelle der ersten Summenbildung ist das ArrayNoten[i] vermutlich nicht initialisiert und gibt daher irgendwelche Zufallszahlen aus
und verfälscht damit das Ergebnis.
Wie kann ich das ArrayNoten[i] initialisieren oder liegt der Fehler ganz wo anders?
Beim Suchen nach Initialisierung von Array of integer fand ich folgende Lösung:
FillChar(ArrayNoten, SizeOf(ArrayNoten), 0);
Aber wo muss ich diese Initialisierung in mein Programm einbauen, damit es funktioniert?
So wie es jetzt ist geht es nicht.
Das vollständige Programm liegt bei.

Delphi-Quellcode:
procedure TForm1.btn3Click(Sender: TObject);
var i, sum, anz : Integer;
    Durchschnitt : Extended;
    ArrayNoten: array[1..6] of Int32;

begin
  sum:=0;
  Durchschnitt:=0;
  anz:=0;

  //FillChar(ArrayNoten, SizeOf(ArrayNoten), 0); //Initialisierung Array

  for i := 0 to length(ArrayNoten) - 1 do
  //for I := (Low(ArrayNoten)) to (High(ArrayNoten))-1 do

    begin
      ArrayNoten[1]:=(strtoint(edt1.text)); //1
      ArrayNoten[2]:=(strtoint(edt2.text)); //2
      ArrayNoten[3]:=(strtoint(edt3.text)); //4
      ArrayNoten[4]:=(strtoint(edt4.text)); //1
      ArrayNoten[5]:=(strtoint(edt5.text)); //1
      ArrayNoten[6]:=(strtoint(edt6.text)); //1
      sum:= sum + ArrayNoten[i];
    end;
    anz:=SumInt(ArrayNoten);
    Durchschnitt:= sum / anz;
    lblDurchsch.Caption:=floattostr(Durchschnitt);
end;
Angehängte Dateien
Dateityp: zip Noten1.zip (2,6 KB, 2x aufgerufen)
Norbert

Geändert von EdAdvokat ( 3. Nov 2020 um 17:41 Uhr)
  Mit Zitat antworten Zitat
mmw

Registriert seit: 10. Sep 2019
Ort: OWL
110 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 3. Nov 2020, 17:50
hallo,

hilft das hier

System.Math.Mean

gruß
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.672 Beiträge
 
Delphi 6 Enterprise
 
#3

AW: Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 3. Nov 2020, 17:59
Schau dir mal deine Schleife an, die macht ja keinen Sinn, denn du benutzt nirgendwo die Schleifenvariable i. Du berechnest in der Schleife sum usw... Die werden ja immer größer. und und und
Ralph
  Mit Zitat antworten Zitat
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
801 Beiträge
 
Delphi 2007 Professional
 
#4

AW: Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 3. Nov 2020, 18:16

Delphi-Quellcode:
procedure TForm1.btn3Click(Sender: TObject);
var i, sum, anz : Integer;
    Durchschnitt : Extended;
    ArrayNoten: array[1..6] of Int32;

begin
  sum:=0;
  Durchschnitt:=0;
  anz:=0;

  //FillChar(ArrayNoten, SizeOf(ArrayNoten), 0); //Initialisierung Array

  for i := 0 to length(ArrayNoten) - 1 do
  //for I := (Low(ArrayNoten)) to (High(ArrayNoten))-1 do

    begin
      ArrayNoten[1]:=(strtoint(edt1.text)); //1
      ArrayNoten[2]:=(strtoint(edt2.text)); //2
      ArrayNoten[3]:=(strtoint(edt3.text)); //4
      ArrayNoten[4]:=(strtoint(edt4.text)); //1
      ArrayNoten[5]:=(strtoint(edt5.text)); //1
      ArrayNoten[6]:=(strtoint(edt6.text)); //1
      sum:= sum + ArrayNoten[i];
    end;
    anz:=SumInt(ArrayNoten);
    Durchschnitt:= sum / anz;
    lblDurchsch.Caption:=floattostr(Durchschnitt);
end;
Ich sehe da zwei Probleme:
  1. Du solltest die Zuweisungen auf ArrayNoten[] aus den Edit-Feldern vor die Schleife verschieben. Derzeit
    werden sie in der Schleife jedes Mal alle neu zugewiesen. Das ist aber nicht der Grund für den Fehler.
  2. sum soll doch die Summe aller Noten sein. Dann muss sie berechnet werden als:
    sum := sum + ArrayNoten[i]*i;
    Denn Du hast die Note i jeweils ArrayNoten[i] mal.
    Das ist der Grund für den Fehler.
FillChar ist nicht notwendig denn die Zuweisung erfolgt ja immer erst nach der Zuweisung auf das Array, damit ist es also initialisiert.
Thomas Mueller
  Mit Zitat antworten Zitat
Benmik

Registriert seit: 11. Apr 2009
422 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 3. Nov 2020, 18:40
Wozu brauchst du überhaupt ein Array? Auf dem Tablet getippt, daher rudimentär + ungetestet:
Delphi-Quellcode:
For i := 1 to 6 do
  Inc(sum,StrToInt(FindComponent('edt' + i.ToString).Text);
Durchschnitt := sum / 6;
Und falls es doch mit einem Array sein soll:
Delphi-Quellcode:
For i := Low(Notenarray) to High(Notenarray) do
  Notenarray[i] := StrToInt(FindComponent('edt' + i.ToString).Text);
For i := 1 to 6 do
  Inc(sum,Notenarray[i]);
Besser ist 1 to 6 , weil FindComponent darauf angewiesen ist.

Geändert von Benmik ( 3. Nov 2020 um 19:35 Uhr)
  Mit Zitat antworten Zitat
EdAdvokat
Online

Registriert seit: 1. Mai 2016
Ort: Berlin
308 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 3. Nov 2020, 20:00
Danke #dummzeuch.
Ich habe Deine Hinweise berücksichtigt und selbst noch einen weiteren Fehler gefunden.
Jetzt rechnet er den Notendurchschnitt exakt aus.
Ich habe die Schleife dahin verändert:
for i := 0 to length(ArrayNoten) do also -1 weggelassen.
Auch den anderen vielen Dank für Eure Mühe.
Norbert
  Mit Zitat antworten Zitat
Benmik

Registriert seit: 11. Apr 2009
422 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 3. Nov 2020, 20:09
Aus Interesse: Wozu brauchst du das Array?
  Mit Zitat antworten Zitat
EdAdvokat
Online

Registriert seit: 1. Mai 2016
Ort: Berlin
308 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#8

AW: Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 3. Nov 2020, 20:17
eigentlich brauche ich das array nicht. Es war lediglich eine mir selbst gestellte Aufgabe, die ich nur sehr schwerfällig lösen konnte.
Anders geht es natürlich auch und möglicherweise viel besser.
Norbert
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
2.987 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 4. Nov 2020, 11:16
Ich habe die Schleife dahin verändert:
for i := 0 to length(ArrayNoten) do also -1 weggelassen.
Warum ?
Wenn Du bei length(ArrayNoten) die -1 weglassen willst,
dann solltest Du besser Low(ArrayNoten) to High(ArrayNoten) schreiben.

Ohne -1 gibt es jetzt einen Überlauf 0,1,2,3,4,5,6 sind nämlich 7 Array-Zugriffe, und keine 6.
  Mit Zitat antworten Zitat
EdAdvokat
Online

Registriert seit: 1. Mai 2016
Ort: Berlin
308 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

AW: Notendurchschnitt berechnen und Initialisierung eines Array of integer

  Alt 4. Nov 2020, 11:27
Danke #Rollo62: habe es auf Deinen Vorschlag hin geändert.
Norbert
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf