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
Hello
pgcd def
number from base 10 to base 2
Denary numbers to binary for numbers below 255
macro for msg box in outlook
pepe
rotina de professores (select case)
Visual-Basic
Exercico 2
"No Fear Shakespeare" sonnet of the day ... (doy modulo 154)+1