c <- 36.056 # medida da hipotenusa
b <- 30 # medida do cateto adjascente
  
# agora vamos calcular o comprimento da cateto oposto
a <- sqrt(c ^ 2 - b ^ 2)
 
# e mostramos o resultado
paste("A medida do cateto oposto é:", a)

LPTSTR CharUpper(
  LPTSTR lpsz
);

#include <cstdlib>
#include <iostream>
#include <windows.h>

using namespace std;

int main(int argc, char *argv[]){
  CHAR letra = 'a';
  
  // vamos converter para letra maiúscula
  CharUpper(&letra);
  
  // vamos exibir o resultado
  cout << letra << endl;
  
  system("PAUSE");
  return EXIT_SUCCESS;
}

#include <cstdlib>
#include <iostream>
#include <windows.h>

using namespace std;

int main(int argc, char *argv[]){
  CHAR letra = 'a';
  
  // vamos converter para letra maiúscula
  CHAR *resultado = CharUpper(&letra);
  
  // vamos exibir o resultado
  cout << *resultado << endl;
  
  system("PAUSE");
  return EXIT_SUCCESS;
}

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer; // variável de controle
begin
  for i := 0 to 10 do
    begin
      ShowMessage(IntToStr(i)); // mostra a mensagem 10 vezes
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer; // variável de controle
begin
  // este laço for pretende exibir os números pares de 0 a 10
  for i := 0 to 10 do
    begin
      ShowMessage(IntToStr(i));
      i := i + 2;  // vamos ter problemas aqui
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer; // variável de controle
begin
  // este laço for conta de 10 até 0
  for i := 10 downto 0 do
    begin
      ShowMessage(IntToStr(i));
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  frase, substring: string;
begin
  frase := 'Programar em Delphi é muito bom';

  // vamos obter a substring "Delphi"
  substring := AnsiMidStr(frase, 14, 6);

  // vamos exibir o resultado
  ShowMessage('Resultado: ' + substring);
end;