Informe um caractere: A
Você informou o caractere: A
O código ASCII correspondente é: 65

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos pedir para o usuário informar uma letra, símbolo ou pontuação
    Console.Write("Informe um caractere: ")

    ' vamos ler o caractere informado
    Dim caractere As Char = Console.ReadLine()(0)

    ' agora vamos obter o código ASCII correspondente
    Dim codigo As Integer = Asc(caractere)

    ' e mostramos o resultado
    Console.WriteLine("Você informou o caractere: " & caractere)
    Console.WriteLine("O código ASCII correspondente é: " & codigo)

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

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos ativar o client dataset
  ClientDataSet1.Active := True;

  // vamos testar se o client dataset foi mesmo ativado
  if ClientDataSet1.Active then
    ShowMessage('O ClientDataSet está ativo')
  else
    ShowMessage('O ClientDataSet  NÃO está ativo')
end;

void *malloc(size_t size);

// aloca memória para um int
ponteiro = malloc(4);

// aloca memória para um int
ponteiro = malloc(sizeof(int));

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char *argv[])
{
  // ponteiro para uma variável do tipo inteiro
  int *ponteiro;

  // aloca memória para um int
  ponteiro = malloc(sizeof(int));

  // testa se a memória foi alocada com sucesso
  if(ponteiro)
    printf("Memoria alocada com sucesso.\n");
  else
    printf("Nao foi possivel alocar a memoria.\n");

  // atribui valor à memória alocada
  *ponteiro = 45;

  // obtém o valor atribuído
  printf("Valor: %d\n\n", *ponteiro);

  // libera a memória
  free(ponteiro);

  system("PAUSE");
  return 0;
}

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char *argv[])
{
  int i;

  // quantidade de elementos na matriz
  int quant = 10;

  // ponteiro para o bloco de memória
  int *ponteiro;

  // aloca memória para uma matriz de inteiros
  ponteiro = malloc(quant * sizeof(int));

  // testa se a memória foi alocada com sucesso
  if(ponteiro)
    printf("Memoria alocada com sucesso.\n");
  else{
    printf("Nao foi possivel alocar a memoria.\n");
    exit(1);
  }

  // atribui valores aos elementos do array
  for(i = 0; i < quant; i++){
    ponteiro[i] = i * 2;
  }

  // exibe os valores
  for(i = 0; i < quant; i++){
    printf("%d  ", ponteiro[i]);
  }

  // libera a memória
  free(ponteiro);

  printf("\n\n");
  system("PAUSE");
  return 0;
}

<?php
  $c = 36.056; // medida da hipotenusa
  $b = 30; // medida do cateto adjascente
  
  // agora vamos calcular o comprimento da cateto oposto
  $a = sqrt(pow($c, 2) - pow($b, 2));
 
  // e mostramos o resultado
  echo "A medida do cateto oposto é: " . $a;
?>