只需要帮助解决一件事 [英] Just need help to fix one thing

问题描述

我差点完成这个家庭作业问题，我只需要知道正确的数学就可以完成这项工作。这个程序按照输入的天数计算一个循环中的便士，然后便士的数量从1开始，每天继续加倍。我想在每行末尾添加一个累加器到总便士数。累加器是我需要做的最后一部分。



我尝试过：



以下是代码的样子：

I'm almost done with this homework problem, I just need to know the correct math to make this work. this program counts pennies in a loop by the number of days entered, and then the number of pennies start at 1 and proceed to double each day. I want to add an accumulator to the total amount of pennies at the end of each line. the accumulator is the last part I need to do.

What I have tried:

Here is what the code looks like at the moment:

Module Module1

    Sub Main()
        Dim Pennies As Double = 0.01
        Dim NumberOfDays As Integer = 0
        Dim InvalidInput As Integer = 0
        Dim Accumulator As Double
        Dim Counter As Integer


        While InvalidInput <= 0
            Console.WriteLine("Enter number of days worked")
            NumberOfDays = Console.ReadLine
            Console.Write("Day ")
            Console.Write(vbTab & "Amount")
            Console.Write(vbTab & "Total")
            Console.WriteLine()


            Accumulator = Pennies + Pennies
            Accumulator = Pennies * 2 + Pennies
            Accumulator += Accumulator + Pennies
            Accumulator = Accumulator + Pennies


            If NumberOfDays >= 1 Then
                For Counter = 1 To NumberOfDays
                    Console.Write(Counter)
                    Console.Write(vbTab & "$" & Pennies)
                    Console.Write(vbTab & Accumulator)
                    Console.WriteLine()
                    Pennies = Pennies * 2
                Next
            ElseIf NumberOfDays = InvalidInput Then
                Console.WriteLine("Invalid input")
            End If
        End While
    End Sub
End Module

这是我试过的：

不同线条之间的四条粗线，我试图单独插入，看看会发生什么，没有给我正确的输出。 />

Here is what I tried:
The Four bold lines between different lines I've tried inserting individually to see what would happen none gave me the correct output.

Module Module1
    Sub Main()
        Dim Pennies As Double = 0.01
        Dim NumberOfDays As Integer = 0
        Dim InvalidInput As Integer = 0
        Dim Accumulator As Double
        Dim Counter As Integer


           Accumulator = Pennies + Pennies
           Accumulator = Pennies * 2 + Pennies
           Accumulator += Accumulator + Pennies
           Accumulator = Accumulator + Pennies


        While InvalidInput <= 0
            Console.WriteLine("Enter number of days worked")
            NumberOfDays = Console.ReadLine
            Console.Write("Day ")
            Console.Write(vbTab & "Amount")
            Console.Write(vbTab & "Total")
            Console.WriteLine()
            Accumulator = Pennies + Pennies
            Accumulator = Pennies * 2 + Pennies
            Accumulator += Accumulator + Pennies
            Accumulator = Accumulator + Pennies
            If NumberOfDays >= 1 Then
                For Counter = 1 To NumberOfDays
                    Accumulator = Pennies + Pennies
                    Accumulator = Pennies * 2 + Pennies
                    Accumulator += Accumulator + Pennies
                    Accumulator = Accumulator + Pennies
                    Console.Write(Counter)
                    Console.Write(vbTab & "$" & Pennies)
                    Console.Write(vbTab & Accumulator)
                    Console.WriteLine()
                    Accumulator = Pennies + Pennies
                    Accumulator = Pennies * 2 + Pennies
                    Accumulator += Accumulator + Pennies
                    Accumulator = Accumulator + Pennies
                    Pennies = Pennies * 2
                    Accumulator = Pennies + Pennies
                    Accumulator = Pennies * 2 + Pennies
                    Accumulator += Accumulator + Pennies
                    Accumulator = Accumulator + Pennies
                Next
            ElseIf NumberOfDays = InvalidInput Then
                Console.WriteLine("Invalid input")
            End If
        End While
    End Sub
End Module

推荐答案

&便士）
Console.Write（vbTab& Accumulator）
Console.WriteLine（）
便士=便士* 2
下一步
ElseIf NumberOfDays = InvalidInput 然后
Console.WriteLine（ 输入无效）
结束 如果
结束 while
结束 Sub
结束 模块

" & Pennies) Console.Write(vbTab & Accumulator) Console.WriteLine() Pennies = Pennies * 2 Next ElseIf NumberOfDays = InvalidInput Then Console.WriteLine("Invalid input") End If End While End Sub End Module

这是我试过的：

不同行之间的四条粗线我试过单独插入o看看会发生什么没有给我正确的输出。

Here is what I tried:
The Four bold lines between different lines I've tried inserting individually to see what would happen none gave me the correct output.

Module Module1
    Sub Main()
        Dim Pennies As Double = 0.01
        Dim NumberOfDays As Integer = 0
        Dim InvalidInput As Integer = 0
        Dim Accumulator As Double
        Dim Counter As Integer


           Accumulator = Pennies + Pennies
           Accumulator = Pennies * 2 + Pennies
           Accumulator += Accumulator + Pennies
           Accumulator = Accumulator + Pennies


        While InvalidInput <= 0
            Console.WriteLine("Enter number of days worked")
            NumberOfDays = Console.ReadLine
            Console.Write("Day ")
            Console.Write(vbTab & "Amount")
            Console.Write(vbTab & "Total")
            Console.WriteLine()
            Accumulator = Pennies + Pennies
            Accumulator = Pennies * 2 + Pennies
            Accumulator += Accumulator + Pennies
            Accumulator = Accumulator + Pennies
            If NumberOfDays >= 1 Then
                For Counter = 1 To NumberOfDays
                    Accumulator = Pennies + Pennies
                    Accumulator = Pennies * 2 + Pennies
                    Accumulator += Accumulator + Pennies
                    Accumulator = Accumulator + Pennies
                    Console.Write(Counter)
                    Console.Write(vbTab & "

&便士）
Console.Write（vbTab& Accumulator）
Console.WriteLine（）
累加器=便士+便士
累加器=便士* 2 +便士
累加器+ =累加器+便士
累加器=累加器+便士
便士=便士* 2
累加器=便士+便士
累加器=便士* 2 +便士
累加器+ =累加器+便士
累加器=累加器+便士
下一步
ElseIf NumberOfDays = InvalidInput 然后
Console.WriteLine（ 无效输入）
结束 如果
结束
结束 Sub
结束 模块

" & Pennies) Console.Write(vbTab & Accumulator) Console.WriteLine() Accumulator = Pennies + Pennies Accumulator = Pennies * 2 + Pennies Accumulator += Accumulator + Pennies Accumulator = Accumulator + Pennies Pennies = Pennies * 2 Accumulator = Pennies + Pennies Accumulator = Pennies * 2 + Pennies Accumulator += Accumulator + Pennies Accumulator = Accumulator + Pennies Next ElseIf NumberOfDays = InvalidInput Then Console.WriteLine("Invalid input") End If End While End Sub End Module

我自己修复了这个问题，因为某些原因它之前没有工作。我可能有一个重复的路线，当我从学校回家时，我清理了代码。谢谢Google.

Fixed it myself, this one works for some reason it wasn't working earlier. I might have had a repeat line I cleaned up the code when I got home from school. Thank you Google.

Module Module1


    Sub Main()
        Dim Pennies As Double = 0.01
        Dim NumberOfDays As Integer = 0
        Dim InvalidInput As Integer = 0
        Dim Accumulator As Decimal = 0
        Dim Counter As Integer


        While InvalidInput <= 0
            Console.WriteLine("Enter number of days worked")
            NumberOfDays = Console.ReadLine
            Console.Write("Day ")
            Console.Write(vbTab & "Amount")
            Console.Write(vbTab & "Total")
            Console.WriteLine()
            If NumberOfDays >= 1 Then
                For Counter = 1 To NumberOfDays
                    Accumulator = Accumulator + Pennies
                    Console.Write(Counter)
                    Console.Write(vbTab & "

这篇关于只需要帮助解决一件事的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！