Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
19 11 2019 exercicio 2 equaçao
'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) 'Your code goes here dim x as integer=1 dim y as integer=1 dim s as decimal dim sequencia_x as integer=1 dim sequencia_y as integer=2 dim valor_maximo as integer=120 console.writeline( "(" & x & "/" & y & ")") 'processo do until y>=valor_maximo s=s+(x/y) x=x+sequencia_x y=y+sequencia_y console.writeline( s ) console.writeline( "(" & x & "/" & y & ")") loop console.writeline( "s=" & s) End Sub End Module End Namespace
run
|
edit
|
history
|
help
0
"No Fear Shakespeare" sonnet of the day ... (doy modulo 154)+1
ex1 ficha nº2
No Fear Shakespeare sonnet of the day
pgcd def
Exercico 3
CAI Visual Basic - Libreria Funciones
Web application
ABS Cracker
Declaração de Variaveis
DateTime.ParseExact