Imports System

Public Module Module1

    Public Sub Main()

        dim nom ,dates as string  

        dim piece() ,som , moy as double 

        dim nbpiece , i as integer 

        dim ref() as string 

        console.WriteLine("nom de l'opérateur ?")

        nom = console.ReadLine()

        console.WriteLine("date de l'opération?")

        dates = console.ReadLine()

        console.WriteLine("nombre de piece ?")

        nbpiece = console.ReadLine()

        redim piece(nbpiece)

        redim ref(nbpiece)

        for i=1 to nbpiece 

           console.WriteLine("alésage" & i & "?")

           piece(i) = console.ReadLine()

           som = som+ piece(i)

           console.WriteLine("reference de la piece " & i & "?")

           ref (i) = console.ReadLine()

        next i 

        moy= som / nbpiece

        console.WriteLine("valeur de l'alésage moy = " & moy)

        dim A,C, nbdefA ,nbdefC as integer 

        dim rebus , rebusA, rebusC as double 

        for i=1 to nbpiece 

           if ref(i)=A then 

                A=A+1

        if piece(i)<39.976  and piece(i)> 40.024 then

             nbdefA =nbdefA+1

            end if 

        else if ref(i) =C then

                C=C+1

            if piece(i)<39.976 and piece(i)> 40.024  then 

               nbdefC =nbdefC+1

            end if 

          end if 

        next i

        console.WriteLine(nbdefA & " piece nom comforme de référence  A")

        console.WriteLine(nbdefC & " piece nom comforme de référence  C") 

        rebusA = nbdefA/A

        console.WriteLine("le taux de rebus de la référence A est de :" & rebusA)

        rebusC= nbdefC/C

        console.WriteLine("le taux de rebus de la référence C est de :" & rebusC)

        if rebus > 0.02 then 

         console.WriteLine(" livraison acceptée")

       else

        console.WriteLine(" livraison refuséé")

       end if 

    End Sub

End Module