3.1, Visual Basic - rextester

3.1

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
        dim X, Y, Z, L, M, N as double
        X = console.readline()
        console.writeline ("X=" & X)
        Y = console.readline()
        console.writeline ("Y=" & Y)
        Z = console.readline()
        console.writeline ("Z=" & Z)
        L = console.readline()
        console.writeline ("L=" & L)
        M = console.readline()
        console.writeline ("M=" & M)
        N = console.readline()
        console.writeline ("N=" & N)
                If (X=0 and Y=0 and Z=0)And(L=1 and M=0 and N=0) Then  
                    console.writeline ("Encastrement")
                ElseIf (X=0 and Y=0 and Z=0)And(L=1 and M=0 and N=0) Then
                    console.writeline ("Pivot")
                ElseIf (X=0 and Y=0 and Z=0)And(L=1 and M=0 and N=0) Then
                    console.writeline ("Glissière")
                ElseIf (X=1 and Y=0 and Z=0)And(L=1 and M=0 and N=0) Then
                    console.writeline ("Pivot Glissant")
                ElseIf (X=0 and Y=0 and Z=0)And(L=1 and M=1 and N=0) Then
                    console.writeline ("Rotule à doigt")
                ElseIf (X=1 and Y=1 and Z=0)And(L=0 and M=0 and N=1) Then
                    console.writeline ("Appui Plan")
                ElseIf (X=0 and Y=0 and Z=0)And(L=1 and M=1 and N=1) Then
                    console.writeline ("Rotule")
                ElseIf (X=1 and Y=0 and Z=0)And(L=1 and M=1 and N=1) Then
                    console.writeline ("Linéaire Annulaire")
                ElseIf (X=0 and Y=1 and Z=1)And(L=1 and M=1 and N=0) Then
                    console.writeline ("Linéaire Rectiligne")
                ElseIf (X=1 and Y=1 and Z=0)And(L=1 and M=1 and N=1) Then
                    console.writeline ("Ponctuelle")
                ElseIf (X=1 and Y=1 and Z=1)And(L=1 and M=1 and N=1) Then
                    console.writeline ("Rien")
            end if
        End Sub
    End Module
End Namespace


run \| edit \| history \| help	0

Please log in to post a comment.