Visual Basic Aσκηση

[VBprogrammer]

Ζητούμε πρόγραμμα στο οποίο ο χρήστης θα δίνει

θετικούς και αρνητικούς αριθμούς στην είσοδο και το

άθροισμα αυτών θα εκτυπώνεται στην έξοδο. Σήμα

τέλους το 0.

 

 

Module Module1

Sub Main()

Console.Title = "VB"

Dim num As Integer

Dim sum As Integer = 0

While num !=0// εδω μου εμφανιζει το λαθος στο !=0 δεν μου το περνει

Console.Write("Dwse arithmo : ")

num = Convert.ToInt32(Console.ReadLine())

sum = sum + num

End While

Console.WriteLine("To athroisma einai {0} : ", sum)

Console.ReadKey()

End Sub

End Module

 

 

[SouLSLayeR]

Το άνισο είναι <>.

[Alithinos]

Βασικά μ' αρέσει η άσκηση, αλλά επειδή δεν ξέρω basic θα τη λύσω στη C#. 

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
           
            SimeioA:
           Console.WriteLine("Give me the first number. ");
           int protosarithmos = Convert.ToInt32(Console.ReadLine());

           Console.WriteLine("Give me the second number. ");
           int defterosarithmos = Convert.ToInt32(Console.ReadLine());

           int apotelesma = protosarithmos + defterosarithmos;

           while (apotelesma != 0)
           {
               goto SimeioA;
           }

           Console.WriteLine("Trexon athroisma einai: " + apotelesma);
           Console.ReadLine();

        }
    }
}

[gon1332]

 

 

 

Βασικά μ' αρέσει η άσκηση, αλλά επειδή δεν ξέρω basic θα τη λύσω στη C#. 

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
           
            SimeioA:
           Console.WriteLine("Give me the first number. ");
           int protosarithmos = Convert.ToInt32(Console.ReadLine());

           Console.WriteLine("Give me the second number. ");
           int defterosarithmos = Convert.ToInt32(Console.ReadLine());

           int apotelesma = protosarithmos + defterosarithmos;

           while (apotelesma != 0)
           {
               goto SimeioA;
           }

           Console.WriteLine("Trexon athroisma einai: " + apotelesma);
           Console.ReadLine();

        }
    }
}

Προσοχή όσο είναι νωρίς! Όχι στη χρήση goto, εκτός κι αν ξέρεις ότι είναι αναγκαία

και δε σου χαλάει πολύ την αναγνωσιμότητα του προγράμματος. Επίσης υπήρξαν

κάποιες παρανοήσεις σε αυτή την άσκηση.

Η άσκηση ζητάει να δέχεται κάθε φορά από τον χρήστη μόνο έναν αριθμό διάφορο

του μηδενός και όχι δύο. Κάθε νέο αριθμό που διαβάζει θα τον προσθέτει στον

προηγούμενο. Συνθήκη τερματισμού είναι η είσοδος 0 από τον χρήστη και όχι μηδε-

νικό άθροισμα. Για ρίξτου άλλη μία ματιά και επίσης, αυτή τη φορά χωρίς goto, αλλά

με κάποια δομή επανάληψης.

 

Μπράβο πάντως που το πήρες ζεστά.

 

 

[Alithinos]

 

 

Προσοχή όσο είναι νωρίς! Όχι στη χρήση goto, εκτός κι αν ξέρεις ότι είναι αναγκαία

και δε σου χαλάει πολύ την αναγνωσιμότητα του προγράμματος. Επίσης υπήρξαν

κάποιες παρανοήσεις σε αυτή την άσκηση.

Η άσκηση ζητάει να δέχεται κάθε φορά από τον χρήστη μόνο έναν αριθμό διάφορο

του μηδενός και όχι δύο. Κάθε νέο αριθμό που διαβάζει θα τον προσθέτει στον

προηγούμενο. Συνθήκη τερματισμού είναι η είσοδος 0 από τον χρήστη και όχι μηδε-

νικό άθροισμα. Για ρίξτου άλλη μία ματιά και επίσης, αυτή τη φορά χωρίς goto, αλλά

με κάποια δομή επανάληψης.

 

Μπράβο πάντως που το πήρες ζεστά.

 

 

 

 

Αααααα..... 

 

Για δες εδώ:

 

 

 

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            int score = 0;
            int arithmos;


            do
            {
                Console.WriteLine("Give me a number ");
                arithmos = Convert.ToInt32(Console.ReadLine());
                score = score + arithmos;
            }
            while (arithmos != 0);
            Console.WriteLine("Trexon athroisma einai: " + score);
            Console.ReadLine();


        }
    }
}

 

 

 

 

Το πέτυχα ? 

 

 

 

υ.γ. Γιατί να αποφεύγω τo goto ? 

[Kercyn]

Σωστό είναι.

[Alithinos]