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:

Kann Freebasic rechnen oder ich nicht ?
Gehe zu Seite 1, 2, 3  Weiter
 
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
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 18:28    Titel: Kann Freebasic rechnen oder ich nicht ? Antworten mit Zitat

Hi ich schreibe gerade an meinem ersten Freebasic Prog.
Es ist ein Prog was denn Durchschnitt z.B einer Klassenarbeit errechnet.
Allerdings komm ich nicht so richtig mit der Rechnung hin.

Hier mal mein Code

Code:

'Ausagbe des Durchschnitts
anzahl = eins + zwei + drei + vier + fuenf + sechs 'errechnet die Anzahl der Noten

schnitt = 1 * eins + 2 * zwei + 3 * drei + 4 * vier  + 5 * fuenf + 6 * sechs 'rechnet immer die Note mal ihre Anzahl
summe = schnitt/ anzahl ' Jetzt nur noch der Schnitt durch Anzahl



Ich weiß nicht vlt. ist auch der Rechenweg falsch aber könnt ihr mir helfen ?

na dann

mfg

Franz
_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Eternal_pain



Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA

BeitragVerfasst am: 31.08.2007, 18:33    Titel: Antworten mit Zitat

also das ganze da ist schwer nachzuvollziehen... zumal Du mehr als nur Anzahl=sechs hast.. oO(bei 6*sechs wuerd ich mir sorgen machen happy )

Also... Du hast verschiedene Noten, zu verschiedenen Anteilen.... lassen mir das 'mal' mal weg grinsen

dann sieht dein 'Zeugnis' vielleicht so aus:
Mathe 3
Deutsch 4
Sport 2
[...]
ect...

dann zaehlst Du einfach 3+4+2 /Anzahl-Faecher fertig lächeln
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 18:37    Titel: Antworten mit Zitat

Naja versucht einfach mal denn Ciode und ihr wisst was ich mein:

Code:

Dim wscreen as String
Dim eins as Integer
Dim zwei as Integer
Dim drei as Integer
Dim vier as Integer
Dim fuenf as Integer
Dim sechs as Integer
Dim anzahl as Integer
Dim schnitt as Integer
Dim summe as Integer


Color 10,0
Cls

Locate 10,25
Print "Notenberechner by Ferenc Zuellich"

Locate 12,25
Print "Copyright by Ferenc Zuellich"
Locate 14,25
Print "Webseite: www.zuellich.de"
Locate 16,25
Print "E-Mail: ferenc@zuellich.de"
Sleep 5000

Cls

screen 18
Input "Moechten sie im Vollbildmodus arbeiten oder nicht ? (j/n) ",wscreen

If wscreen = "j" or wscreen = "J" then
    screen 18,,,1
elseif wscreen = "n" or wscreen = "N" then
    screen 18
endif

'Tabelle wird gezeichnet:
Line (50,50)-(544,300),,B

'erste Spalte
Line (150,50)-(150,300),,B
'erste Spalte füllen:
Locate 5,9
Print "Zensur -->"
Locate 8,9
Print "Anzahl -->"
Locate 11,9
Print "Prozent ->"
'erst Zeile
Line (50,100)-(544,100)
'erste Zeile füllen
Locate 5,23
Print "1"
Locate 5,32
Print "2"
Locate 5,41
Print "3"
Locate 5,49
Print "4"
Locate 5,57
Print "5"
Locate 5,65
Print "6"

'zweite Spalte
Line (220,50)-(220,200)
'dritte Spalte
Line (290,50)-(290,200)
'vierte Spalte
Line (355,50)-(355,200)
'fünfte Splate
Line (418,50)-(418,200)
'sechste Spalte
Line (480,50)-(480,200)

'zweite Zeile
Line (50,150)-(544,150)
'dritte Zeile
Line (50,200)-(544,200)

'Eingabe der Noten
Locate 8,23
Input eins
Locate 8,32
Input zwei
Locate 8,41
Input drei
Locate 8,49
Input vier
Locate 8,57
Input fuenf
Locate 8,65
Input sechs
'Ausagbe des Durchschnitts
anzahl = eins + zwei + drei + vier + fuenf + sechs
schnitt = 1 * eins + 2 * zwei + 3 * drei + 4 * vier  + 5 * fuenf + 6 * sechs
summe = schnitt/ anzahl
Print anzahl
Print schnitt
Print summe



sleep

[/quote]
_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Michael712
aka anfänger, programmierer


Anmeldungsdatum: 26.03.2005
Beiträge: 1593

BeitragVerfasst am: 31.08.2007, 18:48    Titel: Antworten mit Zitat

Du musst schnitt As Single dimensionieren.
Sonst können nur Ganzzahlen gespeichert werden.
_________________
Code:
#include "signatur.bi"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 18:58    Titel: Antworten mit Zitat

Okay aber ich bekomme nicht das richtige ergebnis raus und kein Komma es müsste nämlich ein Komma raus kommen.

Man gebe ein:

1 | 2 | 3 | 4 | 5 | 6
2 2 1 2 1 2
_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Eternal_pain



Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA

BeitragVerfasst am: 31.08.2007, 19:00    Titel: Antworten mit Zitat

programmierer hat Folgendes geschrieben:

Du musst schnitt As Single dimensionieren.
Sonst können nur Ganzzahlen gespeichert werden.


genauer gehts fast nicht mehr durchgeknallt

Statt
Dim irgendwas as integer
halt
Dim irgendwas as single
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Michael712
aka anfänger, programmierer


Anmeldungsdatum: 26.03.2005
Beiträge: 1593

BeitragVerfasst am: 31.08.2007, 19:03    Titel: Antworten mit Zitat

Dann nimm halt summe.

Schnitt habe ich eben ausversehen gesagt, da es logischer ist, den durchschnitt in Schnitt statt in Summe zu speichern...
Somit bin ich davon ausgegangen.
_________________
Code:
#include "signatur.bi"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 19:20    Titel: Antworten mit Zitat

Coole Sache jetzt geht schon mal das mit dem Komma, nur leider ist das Ergebnis noch falsch oder ich habe mich verrechnet obwohl ich zweimal nach gerechnet habe. weinen
_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Stormy



Anmeldungsdatum: 10.09.2004
Beiträge: 567
Wohnort: Sachsen - wo die schönen Frauen wachsen ;)

BeitragVerfasst am: 31.08.2007, 19:21    Titel: Antworten mit Zitat

Was ihr für einen Aufstand macht.. es sind doch nur 2 kleine Änderungen:

Code:
DIM schnitt AS SINGLE


Code:
schnitt = (1 * eins + 2 * zwei + 3 * drei + 4 * vier  + 5 * fuenf + 6 * sechs) / anzahl

_________________
+++ QB-City +++ Die virtuelle Stadt für jeden Freelancer - Join the community!
Projekte: QB-City,MysticWorld (RPG), 2D-OpenGL-Tutorial
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 19:27    Titel: Antworten mit Zitat

Okay.. wir kommen der Lösung näher allerdigns kommt 3.4 raus statt 3.6
wenn man der Reihe nach 2 2 1 2 1 2 eingibt.

Testet das mal an dem Code:

Code:

Dim wscreen as String
Dim eins as Integer
Dim zwei as Integer
Dim drei as Integer
Dim vier as Integer
Dim fuenf as Integer
Dim sechs as Integer
Dim anzahl as Integer
Dim schnitt as Single
'Dim summe as Single


Color 10,0
Cls

Locate 10,25
Print "Notenberechner by Ferenc Zuellich"

Locate 12,25
Print "Copyright by Ferenc Zuellich"
Locate 14,25
Print "Webseite: www.zuellich.de"
Locate 16,25
Print "E-Mail: ferenc@zuellich.de"
Sleep 5000

Cls

screen 18
Input "Moechten sie im Vollbildmodus arbeiten oder nicht ? (j/n) ",wscreen

If wscreen = "j" or wscreen = "J" then
    screen 18,,,1
elseif wscreen = "n" or wscreen = "N" then
    screen 18
endif

'Tabelle wird gezeichnet:
Line (50,50)-(544,300),,B

'erste Spalte
Line (150,50)-(150,300),,B
'erste Spalte füllen:
Locate 5,9
Print "Zensur -->"
Locate 8,9
Print "Anzahl -->"
Locate 11,9
Print "Prozent ->"
'erst Zeile
Line (50,100)-(544,100)
'erste Zeile füllen
Locate 5,23
Print "1"
Locate 5,32
Print "2"
Locate 5,41
Print "3"
Locate 5,49
Print "4"
Locate 5,57
Print "5"
Locate 5,65
Print "6"

'zweite Spalte
Line (220,50)-(220,200)
'dritte Spalte
Line (290,50)-(290,200)
'vierte Spalte
Line (355,50)-(355,200)
'fünfte Splate
Line (418,50)-(418,200)
'sechste Spalte
Line (480,50)-(480,200)

'zweite Zeile
Line (50,150)-(544,150)
'dritte Zeile
Line (50,200)-(544,200)

'Eingabe der Noten
Locate 8,23
Input eins
Locate 8,32
Input zwei
Locate 8,41
Input drei
Locate 8,49
Input vier
Locate 8,57
Input fuenf
Locate 8,65
Input sechs
'Ausagbe des Durchschnitts
anzahl = eins + zwei + drei + vier + fuenf + sechs
schnitt = (1 * eins + 2 * zwei + 3 * drei + 4 * vier  + 5 * fuenf + 6 * sechs) / anzahl 
Print schnitt

'Print summe



sleep


_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Eternal_pain



Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA

BeitragVerfasst am: 31.08.2007, 19:37    Titel: Antworten mit Zitat

Code:
schnitt = ((1 * eins) + (2 * zwei) + (3 * drei) + (4 * vier) + (5 * fuenf) + (6 * sechs)) / anzahl


peinlich
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 19:41    Titel: Antworten mit Zitat

3.4 !

Aber gut ich kann nicht rechnen mit dem Kopf durch die Mauer wollen !
_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Michael712
aka anfänger, programmierer


Anmeldungsdatum: 26.03.2005
Beiträge: 1593

BeitragVerfasst am: 31.08.2007, 20:50    Titel: Antworten mit Zitat

Franz hat Folgendes geschrieben:
Okay.. wir kommen der Lösung näher allerdigns kommt 3.4 raus statt 3.6


mit den Augen rollen

[sarkasmus]Heute lernen wie Rechnen![/sarkasmus]

Code:

2*1 + 2*2 + 1*3 + 2*4 + 1*5 + 2*6
= 2 +  4  +  3  +  8  +  5  + 12
= 34

2 + 2 + 1 + 2 + 1 + 2 = 10

Damit wir auch keinen Fehler machen, schriftliche Division:
34/10 = 3,4
30
 40
  0


Wahnsinn, da hat sich FB wohl doch nicht verrechnet...
_________________
Code:
#include "signatur.bi"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 20:55    Titel: Antworten mit Zitat

peinlich Okay und jetzt "Wie berrechne ich den Anteil der Zensuren in Prozent "
_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/

BeitragVerfasst am: 31.08.2007, 21:06    Titel: Antworten mit Zitat

Das ist einfach: Anzahl_der_Einser / Anzahl_aller_Noten * 100
usw.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 21:09    Titel: Antworten mit Zitat

Danke.
_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 21:14    Titel: Antworten mit Zitat

Okay letzte Frage kann man mit FB auch runden bei Qbasic geht das ja glaub ich wenn man \ statt / schreibt .
_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Eternal_pain



Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA

BeitragVerfasst am: 31.08.2007, 21:22    Titel: Antworten mit Zitat

erst feststellen das die zahlen gerundet SIND und dann fragen wie's geht grinsen durchgeknallt

nimm einfach mal einen Single/Double Wert
und mach dann ?INT(wert) dann ist er gerundet zwinkern
_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/

BeitragVerfasst am: 31.08.2007, 21:24    Titel: Antworten mit Zitat

\ rundet nicht, sondern schneidet die Nachkommastellen ab. Wenn du richtig runden willst, kannst du z. B. das hier nehmen:
Code:
gerundet = INT(ungerundet + .5)

_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Franz



Anmeldungsdatum: 24.03.2007
Beiträge: 111
Wohnort: Auf ner DVD ich bin nur ein Programm

BeitragVerfasst am: 31.08.2007, 21:25    Titel: Antworten mit Zitat

nemored hat Folgendes geschrieben:
\ rundet nicht, sondern schneidet die Nachkommastellen ab. Wenn du richtig runden willst, kannst du z. B. das hier nehmen:
Code:
gerundet = INT(ungerundet + .5)


Also eins = INT(eins + .5)
_________________
Guckt nicht nur den Link an, besuch ihn auch mal !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
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
Gehe zu Seite 1, 2, 3  Weiter
Seite 1 von 3

 
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