Forum
Tipps
News
Menu-Icon

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

hab ne aufgabe gefunden aus dem letzten kurs

"Aufgabe 3
Erstellen Sie einen Taschenrechner für die sieben o.a. Rechenarten. Er soll immer nur aus  2 Werten die jeweiligen Ergebnisse der Rechenoperatoren berechnen. Geben Sie die Werte für Zahl1 und Zahl2  per Wertzuweisung vor.
Geben Sie bitte alle Ergebnisse untereinander aus. Jede Rechenart soll zusammen mit den vorgegebenen Werten (Zahl1 und Zahl2) in genau einer Zeile angezeigt werden.
Sorgen Sie dafür, dass der Quelltext pro Ausgabe einer Rechenart genau eine Zeile einnimmt.
Testfälle: (5, 5), (50, 10), (10, 50), (100, 100),  (4.5, 6.4),"


Bei den Testfällen unte hab ich das problem das ich nicht weiß wie ich sie alle unterbringe
kann ich mehrere zahlen in einer dim-zeile unterbringen ??

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Nun könnte ich das in etwa der art irgendwie unterbringen?

Re:
    Dim zahl1 As Byte = 5 ; 50 ;10; 100
        Dim zahl2 As Byte = 5 ; 10 ; 50 ; 100
        Dim ergebnis As Byte
        'Addieren
        ergebnis = zahl1 + zahl2
        Console.WriteLine("ergebnis")

ich  hab wenn es an dieser art bespiele ging einfach immer ein neues modul geschrieben

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button
Es sind 5 Fälle, also 5 Durchläufe und weil dort stand:

Zitat
die Werte für Zahl1 und Zahl2  per Wertzuweisung vor.
also jeweils die Zahlen aus der Vorgabe bei Dim oben bei Zahl1 und Zahl2 vorgeben.

Mit den Zahlen also wie du schon angefangen hast jeweils alle Rechenarten durchrechnen und auch ausgeben. Also müsste z.B. stehen:
bei Addition
5 5 10

so z.B: beim Fall 1 und beim Addieren (5 + 5 = 10)
In einer Zeile also. Dafür nutzt du nicht .Writeline sondern nur .Write das macht keinen Zeilenumbruch, geht aber mit & auch so[/color]

Module Module1

    Sub Main()
        Dim zahl1 As Byte = 5
        Dim zahl2 As Byte = 5
        Dim ergebnis As Byte
        'Addieren
        ergebnis = zahl1 + zahl2
        Console.WriteLine(zahl1 & " " & zahl2 & " " & ergebnis)

        'pause
        Console.ReadLine()

    End Sub

End Module


« Letzte Änderung: 27.10.10, 20:57:43 von Dr.Nope »

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Re:

Module Module1

    Sub Main()
        Dim zahl1 As Byte = 5
        Dim zahl2 As Byte = 5
        Dim ergebnis As Byte
        'Addieren
        ergebnis = zahl1 + zahl2
        Console.WriteLine(zahl1 & " " & zahl2 & " " & ergebnis)

        'pause
        Console.ReadLine()

    End Sub

End Module

Noch mal zu meiner Frage
wenn ich mehrere werte als Zahl1 definieren möchte, was muss ich da beachten bzw. wie muss ich das formulieren?

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button
Also ich verstehe es so, dass es 5 voneinander getrennte Testfälle sind. Also 5 mal verschiedene Werte oben und dann durchlaufen lassen. Ich kann mir nicht vorstellen, das ganz am Beginn solcher Aufgaben hier noch ein 5er Durchlauf mit wechselnden Zahlen erwartet wird. Kann das sein? Dann wäre ja einfach.

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

hab mir mal erlaubt das so zu gestalten aber er gibt mir ne fehlermeldung:    ")"erwartet

zur vorsicht nochmal mein`s

Module Module1

    Sub Main()
        Dim zahl1 As Byte = zahl1
        Dim zahl2 As Byte = zahl2
        Dim ergebnis As Byte

       'Addieren
        ergebnis = zahl1 + zahl2
        zahl1 = Console.ReadLine()
        zahl2 = Console.ReadLine()
        Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis)

        'Subtrahieren
        ergebnis = zahl1 - zahl2
        zahl1 = Console.ReadLine()
        zahl2 = Console.ReadLine()
        Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis)

        'Multiplizieren
        ergebnis = zahl1 * zahl2
        zahl1 = Console.ReadLine()
        zahl2 = Console.ReadLine()
        Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis)

        'Dividieren
        ergebnis = zahl1 / zahl2
        zahl1 = Console.ReadLine()
        zahl2 = Console.ReadLine()
        Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis)

        Console.ReadLine()


kannst mich ruhig hauen für fehler meinerseits

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

wie meinst du das mit "ganz am beginn"  und "noch"
 

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button
Du fängst doch grad erst an mit der Programmierung (zu Beginn), ich glaub nicht, dass sowas schon erwartet wird.

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

achso, sorry
dachte da läge ein wenig gehässigkeit im satz versteckt (selbst wenn wäre es mir auch recht)

Jepp gaaaaannz am anfang und doch schon ein wenig überfordert

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Ich weiß ich bin penetrant aber liegen da nicht noch mindestens ein paar dutzen fehler bei mir im "programm versteckt"?
Er will einfach nicht debuggen

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button
Lass mir Zeit zum Schreiben :)

Also das mit den Klammern liegt am Ende rechts hinter Ergebnis, da ist nur eine Klammer zu, vorn aber zwei auf. Das meckert er nun jedesmal an. Also hinten zwei ))

Nun hast du aber beide Varianten drin. Werte vorgeben hinter DIM, aber nicht eingesetzt (z.B. 5 und 5).

Und du hast noch meine Vorschläge zusätzlich drin, die aber nun aus der Aufgabenstellung heraus nicht gewollt waren. Hier noch mal das Ganze für den ersten Testlauf



Module Module1

    Sub Main()
        Dim zahl1 As Byte = 5
        Dim zahl2 As Byte = 5
        Dim ergebnis As Byte

        'Addieren
        ergebnis = zahl1 + zahl2
        Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis))

        'Subtrahieren
        ergebnis = zahl1 - zahl2
        Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis))

        'Multiplizieren
        ergebnis = zahl1 * zahl2
        Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis))

        'Dividieren
        ergebnis = zahl1 / zahl2
        Console.WriteLine((zahl1 & " " & zahl2 & " " & ergebnis))

        'pause
        Console.ReadLine()

    End Sub

End Module

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

sorry, fürs drängen

das mit den Klammern führt jetzt dazu dass das debuggen startet

leider kann ich mit konsole die dann geöffnet wird nicht viel anfangen nur
schwarz wie die nacht! wenn ich jetzt etwas eingeben möchte, worauf muss ich dann achten?

1+1=
oder
1
+
1
=
oder etwas in der art?




hat sich erledigt
5
5
5510
^^

« Letzte Änderung: 27.10.10, 21:23:56 von Markus_Slide »

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

das sieht schon wunderbar aus. danke
aber wenn ich jetzt alle besipiele durchrechnen lassen möcchte muss ich dasnn jedesmal ein neues Projekt schreiben oder bekomme ich auch alle zahlen aus dem beispiel in einem projekt unter?


und was noch am anfang des threads versteckt war

Wurzel
Potenz
Min von zwei Zahlen
Max von zwei Zahlen
Lassen Sie sich jedes mal das aktuelle Datum und die Uhrzeit anzeigen.
Verwenden Sie Readline zur Eingabe von zwei Zahlen.
Formatieren Sie das Ergebnis der Division auf genau zwei Stellen nach dem Komma.
Verwenden Sie dazu Funktionen

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

also das mit der eingabe habe ich jetzt geschnallt, scheint zu laufen

ein anderer schreibfehler?

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button
Man kann alles oder vieles machen. Z.b. wie du jetzt schon gelernt hast die Werte vorher für die 5 Läufe abfragen.



Dim zahl1 As Byte = Console.ReadLine()
 Dim zahl2 As Byte = Console.ReadLine()

Die anderen Rechenarten guck Dir mal an, ich glaube Hilfe war das ja nun schon einiges :)

Läufts sonst nicht bei dir? Kopier dir den Text raus aus dem Codefenster und füge ihn bei dir ein

Edit: Aha,

Zitat
Verwenden Sie Readline zur Eingabe von zwei Zahlen.
Das ist ja dann das, was ich hier schrieb das geht dann wie gesagt mit dem obigen code.
[/color]
« Letzte Änderung: 27.10.10, 21:32:57 von Dr.Nope »

« [VBA] Funktion mit ByVal?Bild in BlueJ mit turtledrawing erstellen »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Byte
Der Begriff Byte (auch selten Oktett genannt) bezeichnet einen Mengenbegriff, beziehungsweise eine Maßeinheit, in der Digitaltechnik und Informatik. Diese steht mei...

Gigabyte
Ein Gigabyte ist eine Speichereinheit aus dem Computerbereich: In Gigabyte (abgekürzt: GB) wird die Größe von Festplatten, Speicherkarten, USB-Sticks oder...

Kilobyte
Speichereinheit: 1 Kilobyte (KB) entspricht 1024 Byte. Generell ist Byte ein Mengenbegriff, beziehungsweise eine Maßeinheit, in der Digitaltechnik und der Informati...