programa {
  // vamos incluir a biblioteca Texto
  inclua biblioteca Texto --> texto
  
  funcao inicio() {
    // vamos declarar uma variável para guardar o nome de uma pessoa
    cadeia nome, nome_maiusculo

    // vamos pedir para o usuário informar o seu nome
    escreva("Informe o seu nome: ")
    leia(nome)

    // vamos converter o nome para letras maiúsculas
    nome_maiusculo = texto.caixa_alta(nome)

    // vamos mostrar o resultado
    escreva("O seu nome em letras maiúsculas é: " + nome_maiusculo)
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  data1, data2: TDateTime;
  quant_dias: Integer;
begin
  // vamos criar as duas datas, observe que as horas
  // também foram definidas

  // primeira data: 12/01/2010 às 09:10:15
  data1 := EncodeDateTime(2010, 1, 12, 9, 10, 15, 0);

  // segunda data: 15/01/2010 às 19:10:15
  data2 := EncodeDateTime(2010, 1, 15, 19, 10, 15, 0);

  // vamos obter a quantidade de dias entre as duas datas
  quant_dias := DaysBetween(data1, data2);

  // mostra o resultado
  ShowMessage('A diferença de dias é: ' + IntToStr(quant_dias));
end;

Informe a Massa Específica do fluido (kg/m3): 1030
Informe a Viscosidade Dinâmica do fluido (N.s/m2): 2.12e-3
Informe a Vazão Mássica (kg/s): 0.605
Informe o Diâmetro da Tubulação (mm): 63.5

A área da tubulação é: 0.003166921744359361 m2
A vazão volumétrica do fluido é: 0.000587378640776699 m3/s
A velocidade de escoamento do fluido é: 0.18547305181218499 m/s
O Número de Reynolds é: 5722.106110271679

Informe o novo Número de Reynolds: 2100
A nova velocidade de escoamento do fluido é: 0.06806819050531304 m/s
A nova vazão volumétrica do fluido é: 0.0002155666326104713 m3/s

# vamos importar a biblioteca Math
import math

# método principal
def main():
  # vamos ler a massa específica da água
  massa_especifica = float(input("Informe a Massa Específica (kg/m3): "))

  # vamos ler a viscosidade dinâmica do fluido
  viscosidade_dinamica = float(input("Informe a Viscosidade (N.s/m2): "))

  # vamos ler a vazão mássica
  vazao_massica = float(input("Informe a Vazão Mássica (kg/s): "))

  # vamos ler o diâmetro da tubulação
  diametro = float(input("Informe o Diâmetro da Tubulação (mm): "))

  # o primeiro passo é calcular a área da seção transversal da tubulação
  # a) convertemos milímetros para metros
  diametro = diametro / 1000.0
  # b) calculamos a área em metros quadrados
  area = (math.pi * math.pow(diametro, 2) / 4)  
  
  # vamos converter a vazão mássica em vazão volumétrica
  vazao = vazao_massica / massa_especifica

  # vamos obter a velocidade de escoamento do fluido
  velocidade = vazao / area

  # e finalmente calculamos o Número de Reynolds
  numero_reynolds = (massa_especifica * velocidade * diametro) / viscosidade_dinamica

  # mostramos os resultados
  print("\nA área da tubulação é: {0} m2".format(area))
  print("A vazão volumétrica do fluido é: {0} m3/s".format(vazao))
  print("A velocidade de escoamento do fluido é: {0} m/s".format(velocidade))
  print("O Número de Reynolds é: {0}".format(numero_reynolds))

  # vamos ler o novo Número de Reynolds
  novo_numero_reynolds = float(input("\nInforme o novo Número de Reynolds: "))

  # vamos calcular a velocidade para o novo Reynolds  
  nova_velocidade = ((viscosidade_dinamica * novo_numero_reynolds)
    / (massa_especifica * diametro))
  print("A nova velocidade de escoamento do fluido é: {0} m/s".format(nova_velocidade))

  # vamos calcular a nova vazão volumétrica
  nova_vazao = area * nova_velocidade
  print("A nova vazão volumétrica do fluido é: {0} m3/s".format(nova_vazao))

if __name__== "__main__":
  main()

using System;

namespace Estudos {
  class Principal {
    static void Main(string[] args) {
      // os coeficientes
      double a, b, c;
      // as duas raizes, a imaginaria e o discriminante
      double raiz1, raiz2, imaginaria, discriminante;

      // vamos pedir para o usuário informar os valores dos coeficientes
      Console.Write("Valor do coeficiente a: ");
      a = Double.Parse(Console.ReadLine());
      Console.Write("Valor do coeficiente b: ");
      b = Double.Parse(Console.ReadLine());
      Console.Write("Valor do coeficiente c: ");
      c = Double.Parse(Console.ReadLine());

      // vamos calcular o discriminante
      discriminante = (b * b) - (4 * a * c);

      // a equação possui duas soluções reais?
      if (discriminante > 0) {
        raiz1 = (-b + Math.Sqrt(discriminante)) / (2 * a);
        raiz2 = (-b - Math.Sqrt(discriminante)) / (2 * a);
        Console.Write("Existem duas raizes: x1 = " + raiz1
          + " e x2 = " + raiz2);
      }
      // a equação possui uma única solução real?
      else if (discriminante == 0) {
        raiz1 = raiz2 = -b / (2 * a);
        Console.Write("Existem duas raizes iguais: x1 = "
          + raiz1 + " e x2 = " + raiz2);
      }
      // a equação não possui solução real?
      else if (discriminante < 0) {
        raiz1 = raiz2 = -b / (2 * a);
        imaginaria = Math.Sqrt(-discriminante) / (2 * a);
        Console.Write("Existem duas raízes complexas: x1 = " +
          raiz1 + " + " + imaginaria + " e x2 = " + raiz2
          + " - " + imaginaria);
      }
    
      Console.WriteLine("\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}