Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
exercicio 2 2019 11 11
'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=12 dim sequencia_y as integer=12 dim valor_maximo as integer=45 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
gf
Example day of year ~ use of mod to obtain remainder
Web application
Hello
hckhckhhkck
exercicio A
Black Jack
CAI Visual Basic - Libreria Funciones
Test 1
ok