Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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.
do until ex 2
Me3.1
bb
exercicio A
DO LOOP UNTIL EX3
Black Jack
5
CALCULADORA
Códigos dum boi olhando para um palácio
Visual-Basic
Please log in to post a comment.