; programa LISP que converte Coordenadas Polares
; em Coordenadas Cartesianas
(let((raio)(theta)(graus)(x)(y))
  ; vamos ler o raio e o ângulo
  (princ "Informe o raio: ")
  (force-output)
  (setq raio (read))
  (princ "Informe o theta: ")
  (force-output)
  (setq theta (read))
  (princ "Theta em graus (1) ou radianos (2): ")
  (force-output)
  (setq graus (read))
  
  ; o theta está em graus?
  (if(eq graus 1)
    (setq theta (* theta (/ pi 180.0)))    
  )
  
  ; fazemos a conversão para coordenadas cartesianas 
  (setq x (* raio (cos theta)))
  (setq y (* raio (sin theta)))
  
  ; exibimos o resultado
  (format t "As Coordenadas Cartesianas são: (x = ~F, y = ~F)"
    x y)
)

# 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()

procedure TForm3.Button5Click(Sender: TObject);
var
  reg: TRegistry;
begin
  // uses Registry

  // vamos criar uma instância da classe TRegistry
  reg := TRegistry.Create;

  // a chave raiz padrão é HKEY_CURRENT_USER mas, por via das dúvidas
  // vamos reafirmar isso
  reg.RootKey := HKEY_CURRENT_USER;

  // vamos verificar a existência de uma chave a partir da chave raiz
  if reg.KeyExists('Arquivo de Códigos') then
    begin
      ShowMessage('A chave pesquisada existe.');
    end
  else
    begin
      ShowMessage('A chave pesquisada não existe.');
    end;

  // vamos liberar o registro 
  reg.Free;
end;

def main():
  numero = 10
  valor = int(input("Informe um inteiro: "))
 
  if valor == numero:
    print("Parabéns, você acertou de primeira")
    print("Já tentou a Megasena?")
  elif valor < numero:
    print("Tente um número maior")
  else:
    print("Tente um número menor")
 
if __name__== "__main__":
  main()