الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ادخال قيمة مصفوفه

مغلق
بدأه jihadf86 في 18 ديسمبر 2011 · 1 رد · 294 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع 
Sub Main()
        Dim a As Integer
        Console.WriteLine("enter a of type:")
        a = Console.Read()
        Dim t(a) As String
        Dim s(a) As Integer
        Dim c(a) As Integer
        Dim totle() As Integer

        For i As Integer = 1 To a
            Console.WriteLine("enter name of type" + t(i))
            t(i) = Console.Read()

            Console.WriteLine("enter Price of" + t(i))
            s(i) = Console.ReadLine()
            Console.WriteLine("enter number of " + t(i))
            c(i) = Console.ReadLine()
        Next i
        For i As Integer = 1 To a
            totle(i) = s(i) * c(i)
        Next
        Dim tit As Integer
        For i As Integer = 1 To a
            tit += totle(i)
        Next
        Console.WriteLine("totle Price" + tit)
    End Sub

ايش الخطأ ياشباب الله يسعدكم

#2

مشكورين شباب تم الحل

 Module Module1



    Sub Main()

start:



        Dim a As Integer

        Console.WriteLine("enter number of Item:")

        a = Console.ReadLine()

        Dim Items(a) As String

        Dim Salry(a) As Integer

        Dim Count(a) As Integer

        Dim totle(a) As Integer



        For i As Integer = 1 To a

            Console.WriteLine("enter **name** of Item" & i)

            Items(i) = Console.ReadLine()

            Console.WriteLine("enter ((Price)) of item" & i)

            Salry(i) = Console.ReadLine()

            Console.WriteLine("enter ___number___ of item" & i)

            Count(i) = Console.ReadLine()

        Next i

        For i As Integer = 1 To a

            totle(i) = Salry(i) * Count(i)

        Next

        Dim tit As Integer

        For i As Integer = 1 To a

            tit += totle(i)

        Next

        Dim Discount As Double

        If tit >= 500 And tit < 1000 Then

            Discount = tit - (tit * 0.03)

        ElseIf tit > 1000 And tit < 2000 Then

            Discount = tit - (tit * 0.05)

        ElseIf tit >= 2000 Then

            Discount = tit - (tit * 0.05)

        Else

            Discount = tit

        End If



        Console.WriteLine("totle Price :" & tit)

        Console.WriteLine("price after Discount is : " & Discount)

        Console.WriteLine("if you Want more Press **((Y))** to end press**((N))**")

        Dim more As String



        more = Console.ReadLine()



        If more = "y" Then

            GoTo start

        Else

            Console.ReadLine()

        End If









    End Sub



End Module

تم تعديل هذه المشاركة بواسطة jihadf86 في 18 ديسمبر 2011 في 10:40

هذا الموضوع مغلق.

مواضيع مشابهة