// função recursiva para calcular o fatorial
// de um determinado número
function fatorial(n: Integer): Integer;
begin
  if n = 0 then
    Result := 1
  else
    Result := n * fatorial(n - 1);
end;

// vamos chamar a função recursiva
// a partir do Click de um botão
procedure TForm1.Button1Click(Sender: TObject);
var
  res: Integer;
begin
  // vamos calcular o fatorial de 5
  res := fatorial(5);

  // vamos mostrar o resultado
  ShowMessage('O fatorial de 5 é: ' + IntToStr(res));
end;

<?
  function obter_conexao_php_mysql(){
    // Parâmetros de conexão
    $server = "localhost";
    $usuario = "root";
    $senha = "osmar1234";
    $base = "estudos";
      
    // Tenta efetuar a conexão
    $conexao = mysql_connect($server, $usuario, $senha);
 
    // Testa se a conexão foi efetuada com sucesso
    if(!$conexao)
      die('Falha ao conectar: ' . mysql_error());
   
    // conexão efetuada com sucesso. Podemos definir qual
    // base de dados será usada
    $db_selected = mysql_select_db($base, $conexao);
     
    // testa se a base foi selecionada com sucesso.
    if(!$db_selected)
      die("Falha ao selecionar o banco: " . mysql_error());
       
    return $conexao;
  }
   
  function fechar_conexao_php_mysql($conn){
    mysql_close($conn);
  }
?>

<?
  require("conexao.php");
   
  // obtém a conexão com o banco MySQL
  $conexao = obter_conexao_php_mysql();
   
  /*
    Outros códigos de manipulação dos dados
    no banco de dados vão aqui
  */
   
  // fecha a conexão
  fechar_conexao_php_mysql($conexao);
?>

Imports System

Module Program
  Sub Main(args As String())
    Dim site As String = "Arquivo de Códigos"

    ' obtém o tamanho da string
    Dim tam As Integer = site.Length

    Console.WriteLine("A string contém " & tam &
      " caracteres")

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

# método principal
def main():
  # preço anterior do produto
  precoAnterior = float(input("Informe o preço anterior: "))
  # preço atual do produto
  precoAtual = float(input("Informe o preço atual: "))
  
  # efetua o cálculo
  a = precoAnterior
  b = 100 * precoAtual
  c = b / a
  d = c - 100
  
  # mostra o resultado
  print("A porcentagem de aumento foi: %f%%" % d)
 
if __name__== "__main__":
  main()

Informe o ano: 2024
O ano informado é bissexto.

// Vamos importar a biblioteca dart:io
import "dart:io";

void main(){
  // vamos solicitar que o usuário informe um ano
  stdout.write("Informe o ano: ");
  int ano = int.parse(stdin.readLineSync());  
  
  // vamos verificar se o ano informado é bissexto
  if(((ano % 4 == 0) && (ano % 100 != 0)) || (ano % 400 == 0)){
    print("O ano informado é bissexto.");  
  }
  else{
    print("O ano informado não é bissexto.");  
  }
}