Zum neuen Informatik-Forum >>
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren   ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Rechnen - Seite 2
Gehe zu Seite Zurück  1, 2
 
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Informatikerboard.de Foren-Übersicht -> QBasic und andere Basic-Dialekte
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Logit



Anmeldungsdatum: 22.03.2005
Beiträge: 27

BeitragVerfasst am: 07. Apr 2005 19:06    Titel: Antworten mit Zitat

geschockt

jo, danke für deine Anstrengungen. Ich eigne mir noch Wissen an. Vllt kann ich das ja dann irgendwann mal mit dieser Methode versuchen.
Ich bin -wie ich grade gemerkt habe- eine ziemliche Lusche. traurig

Ich meinte aber z.B.:

cls
Print "Gib eine belibige Zahl ein (kann auch ein Buchstabe sein):"
Input Zahl1$ 'es muss doch hier eine variable sein, weil man ja auch a einfügen könnte
cls
Print "Jetzt eine zweite:"
Input Zahl2$
cls
Print "Das Ergebnis der Hochaufgabe lautet:" (Zahl1$ ^ Zahl2$)

Man könnte das zum Beispiel bei binomischen Rechnungen benutzen.
Ich hoffe ihr habt mir jetzt genau verstanden.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
ME



Anmeldungsdatum: 07.04.2005
Beiträge: 4
Wohnort: Mainz

BeitragVerfasst am: 07. Apr 2005 23:42    Titel: Antworten mit Zitat

Code:
OPTION BASE 0

DECLARE FUNCTION EnterNumber$ ()
DECLARE FUNCTION IsNumeric% (s AS STRING)

DIM zahl1 AS STRING
DIM zahl2 AS STRING

zahl1 = EnterNumber
zahl2 = EnterNumber

IF IsNumeric(zahl1) AND IsNumeric(zahl2) THEN
    PRINT "Ergebnis: " + STR$(VAL(zahl1) ^ VAL(zahl2))
ELSE
    PRINT "Ergebnis: " + zahl1 + "^" + zahl2
END IF

FUNCTION EnterNumber$
    DIM a AS STRING
    CLS
    PRINT "Geben Sie eine Zahl ein: "
    INPUT a
    EnterNumber$ = a
END FUNCTION

FUNCTION IsNumeric% (s AS STRING)
    IsNumeric% = NOT (VAL(s) = 0)
END FUNCTION


Und da sagen die Leute noch, Basic würde sich nicht um Datentypen scheren.

Speichere das als *.bas-Datei, öffne es in QBasic und drücke [F2], wenn du den Funktionencode sehen willst.

Was Erklärungen angeht, passe ich erstmal, da ich nicht wüsste, wo ich anfangen sollte. Augenzwinkern

Nur eine kleine Anmerkung:

DIM zahl1$ bedeutet nichts anderes als DIM zahl1 AS STRING. Was du als "Variable" bezeichnest, ist eine Variable vom Datentyp STRING.

Zudem ist es sauberer, alle benutzten Variablen zu deklarieren. (Und dann wird man nicht so häufig von irgendwelchen Programmierern ausgeschimpft, deren Sprachen das zwingend vorschreiben.)

Vielleicht hilft es dir weiter, so einen (halbwegs funktionierenden) Code mal insgesamt zu sehen.

Mir hat es jedenfalls Spaß gemacht, mal wieder etwas mit QBasic zu probieren.

LG
Marc
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Logit



Anmeldungsdatum: 22.03.2005
Beiträge: 27

BeitragVerfasst am: 08. Apr 2005 06:55    Titel: Antworten mit Zitat

danke.
Prost
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Informatikerboard.de Foren-Übersicht -> QBasic und andere Basic-Dialekte Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite Zurück  1, 2
Seite 2 von 2

 
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.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum nicht herunterladen