package estudos;
 
import java.util.Scanner;
 
public class Estudos {
  public static void main(String[] args) {
    // para ler a entrada do usuário
    Scanner entrada = new Scanner(System.in);
   
    // vamos pedir para o usuário informar a altura da lâmina
    // de água em milímetros
    System.out.print("Altura da lâmina de água em milímetros: ");
    double altura_lamina = Double.parseDouble(entrada.nextLine());

    // o primeiro passo é converter os milímetros da lâmina de água
    // para metros
    altura_lamina = altura_lamina / 1000.00;

    // agora que já temos a altura da lâmina em metros, vamos multiplicar
    // pela base (1 metro quadrado) para obtermos o volume da chuva por
    // metro quadrado
    double volume_chuva = (altura_lamina * 1.00) * 1000.00;

    // vamos mostrar o resultado
    System.out.println("O volume da chuva é: " + volume_chuva +
      " litros para cada metro quadrado");
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  frase: string;
begin
  frase := 'Gosto muito de Delphi e Java';

  // vamos verificar se a string começa com "Gosto"
  if AnsiStartsStr('Gosto', frase) then
    ShowMessage('A frase começa com a substring indicada')
  else
    ShowMessage('A frase NÃO começa com a substring indicada')
end;

# método principal
def main():
  # vamos pedir o comprimento do pilar em metros (pé direito)
  le = float(input("Informe o comprimento do pilar (em metros): "))
  # vamos converter o comprimento em metros para centímetros
  le = le * 100.0

  # vamos pedir as dimensões do pilar
  hx = float(input("Informe a dimensão do pilar na direção x (em cm): "))
  hy = float(input("Informe a dimensão do pilar na direção y (em cm): "))

  # agora vamos calcular o índice de esbeltez na direção x
  lambda_x = 3.46 * (le / hx)

  # agora vamos calcular o índice de esbeltez na direção y
  lambda_y = 3.46 * (le / hy)

  # e mostramos os resultados
  print("\nO índice de esbeltez na direção x é: {0}".format(round(lambda_x, 2)))

  # precisamos considerar os efeitos locais de segunda ordem na direção x?
  if lambda_x < 35:
    print("Não considerar os efeitos locais de 2ª ordem na direção x")
  else:
    print("Considerar os efeitos locais de 2º ordem na direção x")

  print("\nO índice de esbeltez na direção y é: {0}".format(round(lambda_y, 2)))

  # precisamos considerar os efeitos locais de segunda ordem na direção y?
  if lambda_y < 35:
    print("Não  considerar os efeitos locais de 2ª ordem na direção y")
  else:
    print("Considerar os efeitos locais de 2ª ordem na direção y")

if __name__== "__main__":
  main()

Informe um número decimal: 9
O número binário é: 00000000000000000000000000001001

using System;

namespace Estudos {
  class Principal {
    // vamos definir o tamanho do vetor para guardar
    // os dígitos do número binário
    const int TAM_INT = sizeof(int) * 8;

    static void Main(string[] args) {
      // variáveis para ajudar a resolver o problema
      int dec, indice;

      // vetor para guardar o número binário
      int[] binario = new int[TAM_INT];

      // vamos pedir para o usuário informar um decimal inteiro
      Console.Write("Informe um número decimal: ");
      dec = int.Parse(Console.ReadLine());

      // ajustamos índice para o último elemento do vetor
      indice = TAM_INT - 1;

      // enquanto índice for maior ou igual a 0
      while (indice >= 0) {
        // vamos guardar o bit menos significativo LSB
        binario[indice] = dec & 1;

        // diminuímos o índice
        indice--;

        // desloca bits para a direita uma posição
        dec = dec >> 1;
      }

      // agora vamos exibir o número binário
      Console.Write("O número binário é: ");
      for (int i = 0; i < TAM_INT; i++) {
        Console.Write(binario[i]);
      }

      Console.WriteLine("\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  principal, taxa, juros, montante: double;
  meses: integer;
begin
  principal := 2000.00;
  taxa := 0.03;
  meses := 3;

  montante := principal * power((1 + taxa), meses);
  juros := montante - principal;

  ShowMessage('O total de juros a ser pago é: '
    + FloatToStr(juros));
  ShowMessage('O montante a ser pago é: '
    + FloatToStr(montante));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  principal, taxa, juros, montante, anterior: double;
  i, meses: integer;
begin
  principal := 2000.00;
  taxa := 0.03;
  meses := 3;
  anterior := 0.0;

  for i := 1 to meses do
    begin
      montante := principal * power((1 + taxa), i);
      juros := montante - principal - anterior;

      anterior := anterior + juros;

      Memo1.Lines.Add('Mês: ' + IntToStr(i) + ' - Montante: '
        + FloatToStr(montante) + ' - Juros: ' + FloatToStr(juros));
    end;
end;