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

algoritmo "Como retornar código ASCII em VisuAlg"
var
  // variáveis usadas na resolução do problema
  ch: caractere
  codigo: inteiro

inicio
  // vamos pedir para o usuário informar uma letra, símbolo ou pontuação
  escreva("Informe um caractere: ")
  leia(ch)

  // agora vamos obter o código ASCII correspondente
  codigo <- Asc(ch)

  // e mostramos o resultado
  escreval("Você informou o caractere: ", ch)
  escreval("O código ASCII correspondente é: ", codigo)

fimalgoritmo

import math as math

def main():
  # vamos ler o raio do círculo
  raio = float(input("Informe o raio do círculo: "))
  
  # vamos achar o diâmetro do círculo
  diametro = 2 * raio
  # agora calculamos a circunferência
  circunferencia = 2 * math.pi * raio
  # finalmente calculamos a área do círculo
  area = math.pi * math.pow(raio, 2)
    
  # vamos mostrar os resultados
  print("O diâmetro do círculo é:", diametro)
  print("A circunferência do círculo é:", circunferencia)
  print("A área do círculo é:", area)

if __name__== "__main__":
  main()

<script type="text/javascript">
<!--
  function definirCSS(){
    // define a cor verde para a propriedade CSS color da
    // DIV com id "div_2"
    $('#div_2').css('color', 'green');
  }
//-->
</script>

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos adicionar um novo item na PickList da primeira coluna
  DBGrid1.Columns[0].PickList.Add('40');
end;

procedure TForm3.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  // vamos adicionar o conteúdo da PickList da primeira coluna
  // a um TMemo
  for i := 0 to DBGrid1.Columns[0].PickList.Count - 1 do
    begin
      Memo1.Lines.Add(DBGrid1.Columns[0].PickList[i]);
    end;
end;