Algoritmia5

Visual Basic
' Programa Adiciona: Este algoritmo calcula ' a soma de dois números Module modAdiciona Sub Main() ' Inicalização ' Variaveis utilizadas no cálculo da adição Dim num1, num2, soma As Double ' ler 1º número Console.Write("Entrar 1º número: ") num1 = Console.ReadLine() ' ler 2º número Console.Write("Entrar 2º número: ") Num2 = Console.ReadLine() ' Cálculo da soma soma = num1 + num2 ' Saida do resultado Console.WriteLine("A soma é {0}", soma) End Sub ' Main End Module ' modAdiciona

Algoritmo Adiciona: Este algoritmo calcula a soma de dois números. S10 [Inicialização] num1 ← 0.0 num2 ← 0.0 S20 [Entrada dos números] READ (num1, num2) S30 [Cálculo da soma] soma ← num1 + num2 S40 [Saída do resultado] PRINT ('A soma é', soma) S50 [Termina] EXIT

Visual Basic
Exemplo: (cont.)
' Adiciona.vb ' Programa Adiciona: Este algoritmo calcula a soma ‘ de dois números. Converte os valores de entrada para ‘ inteiros. Module modAdiciona Sub Main() ' Inicalização ' Variáveis de entrada Dim primeiro, segundo As String ' Variaveis utilizadas no cálculo da adição Dim num1, num2, soma As Integer ' ler 1º número Console.Write("Entrar 1º número: ") primeiro = Console.ReadLine() ' ler 2º número Console.Write("Entrar 2º número: ") segundo = Console.ReadLine() ' Converte os valores de entrada para inteiros num1 = primeiro num2 = segundo ' Cálculo da soma soma = num1 + num2 ' Saida do resultado Console.WriteLine("A soma é {0}", soma) End Sub ' Main End Module ' modAdiciona

Visual Basic
____________________________________________________________________ Algoritmo Pitagoras: Dado o comprimento dos lados de um triangulo rectangulo, este algoritmo calcula e imprime o comprimento do terceiro lado (hipotenusa). P10. [Ler os comprimentos dos lados] READ (lado1,lado2) P20. [Calcular os quadrados dos lados] quad1 ← lado1↑2 quad2 ← lado2↑2 P30. [Calcular o comprimento do terceiro lado] hipotenusa ← SQRT(quad1+quad2) P40. [Sair resultados] PRINT ('Os lados do triangulo são', lado1,