Imports System

Public Module Module1

    Public Sub Main()

        dim nom, dateduj as String 

        console.writeline("quel est le nom de l'opérateur ?")

        nom = console.readline()

        console.writeline("quelle est la date du jour ?")

        dateduj = console.readline()

        dim piecescontrol, alesagemoy, piecenonconf, tauxrebux as Decimal 

        console.writeline("nombre de pièces controlées ?")

        piecescontrol = console.readline()

        dim pieces(piecescontrol), som as Double 

        dim i as Double 

        for i = 1 to piecescontrol

            console.writeline("alésage ?")

            pieces(i) = console.readline()

        next i 

        for i = 1 to piecescontrol

            som = som + pieces(i)

        next i 

        alesagemoy = som/piecescontrol

        console.writeline("l'alésage moyen est" & alesagemoy)

        for i = 1 to piecescontrol

            if pieces(i) < 39.976 Or pieces(i) > 40.024 Then piecenonconf = piecenonconf + 1

        next i 

        console.writeline("pieces non conformes :" & piecenonconf)

​

        tauxrebux = piecenonconf/piecescontrol

        console.writeline("taux de rebux est" & tauxrebux)

        if tauxrebux < 0.02 then

            console.writeline("livraison ok")

        else 

            console.writeline("livraison pas ok")

        end if 

    End Sub

End Module