Bucles anidados en VB.NET (código)


Vemos a realizar un programa  que imprima los números  z  comprendidos entre 1 y 50 que cumplan la expresión:

z²  = x²  +  y²donde z, x e y son números enteros positivos. El resultado se presentará de esta forma

Pitagoras

y la solución de este problema puede ser de la siguiente forma

Cap. 7 – Pág 145

Código Visual Basic:

Imports System

Module Pitagoras

‘ Teorema de Pitágoras

Public Sub Main()

Dim x As Integer = 1, y As Integer = 1, z As Integer = 0

Dim TH As Char = Convert.ToChar(&H9) ‘ tab horizontal

Console.WriteLine(“Z” & TH & “X” & TH & “Y”)

Console.WriteLine(“____________________”)

While (x <= 50)

‘ Calcular z. Como z es un entero, almacena

‘ la parte entera (redondeada) de la raíz cuadrada

z = Math.Sqrt(x * x + y * y)

While (y <= 50 And z <= 50)

‘ Si la raíz cuadrada anterior fue exacta,

‘ escribir z, x e y

If (z * z = x * x + y * y) Then

Console.WriteLine(z & TH & x & TH & y)

End If

y = y + 1

z = Math.Sqrt(x * x + y * y)

End While

x = x + 1 : y = x

End While

System.Console.ReadKey()

End Sub

End Module

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s