Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Fehler bei Ausgabe. Wer kann helfen?

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
tony



Anmeldungsdatum: 25.12.2008
Beiträge: 8

BeitragVerfasst am: 01.02.2009, 20:09    Titel: Fehler bei Ausgabe. Wer kann helfen? Antworten mit Zitat

hallo ihr lieben,
habe wieder ein problem: habe dieses programm geschrieben aber bei der ausgabe ist der wurm drin:
dim as double xi(n%), xisum, xqsum,miwertx, varixi, sx,y, ximwert (i%), SAQ

print
xisum=0
xqsum=0


input"Bitte geben sie die Anzahl der Werte ein:";n
?
?
Print,(n);" Werte werden erwartet"
rem Beginn Wiederholung
?
for i= 1 to n

print"Wert Xi(";i;"):";
input xi(i)

xisum=xisum+xi(i)
xiqsum=xiqsum+xi(i)^2

next i

miwertx=xisum/n

print"Summe Xi:";xisum
print"Mittelwert:"; miwertx

varixi=(xiqsum-(1/n*xisum^2))/(n-1)

sx=sqr(varixi)
?
for i = 1 to n

xi(i) = xi(i)- miwertx

print"Xi(";i;")- Mittelwert:";(i);" -";miwertx;"= "; xi(i)

SAQ=SAQ+xi(i)^2
next i

print"SAQ: ";SAQ
print"Varianz:"; varixi
print"Die Standardabweichung:"; sx
?

sleep

das problem ist folgendes: bei der Ausgabe (fettgedruckt!) soll er die EINGEGEBENEN werte aufzählen und nicht von 1 aufwärts bis n, was mache ich falsch ???
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
St_W



Anmeldungsdatum: 22.07.2007
Beiträge: 956
Wohnort: Austria

BeitragVerfasst am: 01.02.2009, 21:59    Titel: Antworten mit Zitat

So etwa?

Code:
dim xisum as double
dim xqsum as double
dim xiqsum as double
dim miwertx as double
dim varixi as double
dim SAQ as double
dim sx as double
dim n as integer
dim i as integer

print

xisum=0
xqsum=0

input"Bitte geben sie die Anzahl der Werte ein:";n
Print,(n);" Werte werden erwartet"

dim xi(n) as single
dim ximwert(n) as single

for i= 1 to n
    print"Wert Xi(";i;"):";
    input xi(i)
    xisum=xisum+xi(i)
    xiqsum=xiqsum+xi(i)^2
next i

miwertx=xisum/n

print"Summe Xi:";xisum
print"Mittelwert:"; miwertx

varixi=(xiqsum-(1/n*xisum^2))/(n-1)
sx=sqr(varixi)

for i = 1 to n
    ximwert(i) = xi(i)- miwertx
    print"Xi(";i;")- Mittelwert:";xi(i);" -";miwertx;"= "; ximwert(i)
    SAQ=SAQ+ximwert(i)^2
next i

print"SAQ: ";SAQ
print"Varianz:"; varixi
print"Die Standardabweichung:"; sx

sleep


Die Logik hinter der Berechnung musst du selbst überprüfen, ob ich nicht bei meinen Veränderungen etwas unpassendes hinsichtlich der Programmlogik gemacht habe. Im Bereich der Statistik & WSK-Rechnung kenn ich mich rechnerisch nämlich nicht so gut aus. StdAbw und Varianz dürften aber stimmen.
_________________
Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
tony



Anmeldungsdatum: 25.12.2008
Beiträge: 8

BeitragVerfasst am: 03.02.2009, 22:05    Titel: Antworten mit Zitat

danke, kurz nachdem ich meinen "hilferuf" gestartet habe, habe ich festgestellt wo der fehler war.
nochmals danke
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz