Computação

Exercícios
1.4 – Escreva um algoritmo para calcular a soma de todos os números inteiros de 1 a 100.
1.5 – Escreva um algoritmo para calcular a média de 50 números reais (single) digitados pelo usuário.
1.6 – Refaça o exercício anterior usando N ao invés da constante 50. O valor de N deve ser fornecido pelo usuário.
Exercícios
2 – Escreva um algoritmo para que um usuário digite vários números até que um número negativo seja digitado. Ao final, exiba quantos números foram digitados. 3 – Escreva um algoritmo para que um usuário digite vários números até que um número negativo seja digitado. Ao final, exiba a média aritmética dos números digitados.
4 – Escreva um algoritmo para que um usuário digite vários números até que um número múltiplo de 13 seja digitado. Ao final, exiba quantos números foram digitados. Resolução – Exercício 1.1
Sub Main()
Dim i As Integer i = 1000
Do Until (i > 2000)
Console.WriteLine(i)
i = i + 1
Loop
Console.ReadKey() 'Para parar a tela
End Sub
Resolução – Exercício 1.2
Sub Main()
Dim i, x, y As Integer x = InputBox("Digite o limite inferior") y = InputBox("Digite o limite superior") i = x
Do Until (i > y)
Console.WriteLine(i)
i = i + 1
Loop
Console.ReadKey()
End Sub
Resolução – Exercício 1.3
Sub Main()
Dim i As Integer i = 100
Do Until (i > 1000)
If (i Mod 7 = 0 Or i Mod 13 = 0) Then
Console.WriteLine(i)
End If i = i + 1
Loop
Console.ReadKey() 'Para parar a tela
End Sub
Resolução – Exercício 1.4
Sub Main()
Dim i, soma As Integer soma = 0 i = 1
Do Until (i > 100) soma = soma + i i = i + 1
Loop
MsgBox("A soma é: " & soma)
End Sub
Resolução – Exercício 1.5
Sub Main()
Dim i As Integer
Dim soma, media, valor As Single soma = 0 i = 1
Do Until (i > 50) valor = InputBox("Digite o valor: ") soma = soma + valor i = i + 1
Loop
media = soma / 50
MsgBox("A média é: " & media)
End Sub
Resolução – Exercício 1.6
Sub Main()
Dim i, N As Integer
Dim soma, media, valor As Single