Exercicios resolvidos Desenvolvimento de Software

Prévia do material em texto

Exercicio 1
//Faça um programa que recebe um numero X como valor central e mostre em uma lista, em seguida faça um looping onde o mesmo só terminará quando a soma dos 2 últimos valores forem iguais a X e mostre os valores a cada rodada do looping.
Public Class Form1
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim x, num1, num2 As Integer
 x = InputBox("Informe um numero X:", "Leitura de um numero X")
 num1 = 0
 num2 = 0
 While (num1 + num2 <> x)
 num1 = InputBox("Informe um numero:", "Leitura de um numero")
 num2 = InputBox("Informe outro numero:", "Leitura de um numero ")
 ListBox1.Items.Add(CStr(num1))
 ListBox1.Items.Add(CStr(num2))
 End While
 MsgBox("A soma dos 2 ultimos numeros e igual a " + CStr(x) + " com isso o looping termina!")
 ListBox1.Items.Add(CStr(num1 + num2))
 End Sub
End Class
Exercicio 2
//Faça um Programa que informe um número inteiro e como resultado mostre o quadrado desse número ou o quadrado mais próximo dele
Public Class Form1
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim n, num1, num2 As Integer
 n = CInt(InputBox("Informe um numero inteiro positivo:", "Leitura do numero inteiro"))
 While (num1 * num2 < n)
 num1 = num1 + 1
 num2 = num2 + 1
 End While
 If (num1 * num2 = n) Then
 MsgBox("O quadrado mas proximo de " + CStr(n) + " e " + CStr(num1 * num2))
 Else
 num1 = num1 - 1
 num2 = num2 - 1
 MsgBox("O quadrado mas proximo de " + CStr(n) + " e " + CStr(num1 * num2))
 End If
 End Sub
End Class
Exercicio 3
//Faça um programa que peça um valor n e faça o fibonnaci de N ate 1.
Public Class Form1
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim n, i, novovalor, anterior, atual As Integer
 n = CInt(InputBox("Informe a quantidade de veses do Fibonnaci ", "Leitura do numero"))
 anterior = CInt(InputBox("Informe o 1º numero do Fibonnaci:", "Fibonnaci"))
 atual = CInt(InputBox("Informe o 2º numero do Fibonnaci:", "Fibonnaci"))
 ListBox1.Items.Add(CStr(anterior))
 ListBox1.Items.Add(CStr(atual))
 novovalor = anterior + atual
 For i = 1 To n
 ListBox1.Items.Add(novovalor)
 anterior = atual
 atual = novovalor
 novovalor = anterior + atual
 Next
 End Sub
End Class
Exercicio 4
//Faça um programa que leia um número N e e um numero inteiro que deverá ser lido de 1 ate N vezes e verificar quem é o maior numero de todas as N vezes que o looping acontecer, em seguida mostre e maior valor.
Public Class Form1
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim n, i, valor, anterior, atual, maior As Integer
 n = CInt(InputBox("Informe a quantidade de veses", "Leitura do numero"))
 
 atual = 0
 For i = 1 To n
 valor = InputBox("Informe um valor inteiro:", "Valor")
 anterior = atual
 atual = valor
 If (anterior > atual) Then
 maior = anterior
 Else
 maior = atual
 End If
 Next
 MsgBox("O maior valor da lista e " + CStr(maior))
 End Sub
End Class
Exercicio 5
//Faça um programa que leia um letra enquanto a letra z não for achada, assim que achar a letra z o programa deve ser terminado.
Public Class Form1
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim letra As String = ""
 While (letra <> "z")
 letra = InputBox("Informe uma letra de A ate Z:", "Leitura de letras")
 ListBox1.Items.Add(letra)
 End While
 MsgBox("Letra (Z) achada!!")
 End Sub
End Class