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

// função personalizada que permite verificar
// se duas strings são iguais ou diferentes sem
// considerar maiúsculas e minúsculas
int str_equal(const char *str1, const char *str2){
  while((toupper(*str1) == toupper(*str2)) && (*str1)){
    str1++;
    str2++;
  }

  return((*str1 == 0) && (*str2 == 0));
}

int main(int argc, char *argv[]){
  char palavra1[] = "Java";
  char palavra2[] = "Java";

  if(str_equal(palavra1, palavra2) == 1)
    printf("As palavras sao iguais");
  else
    printf("As palavras sao diferentes");

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

// função personalizada que permite encontrar uma janela
// baseado em seu título
function FindWindowByTitle(WindowTitle: string): Hwnd;
var
  NextHandle: Hwnd;
  NextTitle: array[0..255] of char;
begin
  // vamos obter a primeira janela
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);

  while NextHandle > 0 do
    begin
      // vamos obter o título da janela
      GetWindowText(NextHandle, NextTitle, 256);

      // a janela contém o título que procuramos?
      if Pos(Uppercase(WindowTitle), UpperCase(String(NextTitle))) <> 0 then
         begin
           Result := NextHandle;
           Exit;
         end
      else
        // vamos tentar a próxima janela
        NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
    end;

    // não encontramos nada? vamos retornar um handle nulo
    Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  handle: hwnd;
begin
  // vamos localizar e fechar a Calculadora do Windows
  // ou qualquer janela que contenha o texto "Calculadora"
  handle := FindWindowByTitle('Calculadora');
  if handle <> 0 then // encontramos a janela? vamos fechá-la
    SendMessage(handle, WM_SYSCOMMAND, SC_CLOSE, 0)
  else
    ShowMessage('A janela pesquisada não foi encontrada');
end;

Informe sua altura (ex: 1.74): 1.65
Informe o sexo (M ou F): M

Seu peso ideal é: 61.955

# método principal
def main():
  # vamos solicitar a altura e o sexo da pessoa
  altura = float(input("Informe sua altura (ex: 1.74): "))
  sexo = input("Informe o sexo (M ou F): ")
    
  # vamos testar o sexo da pessoa
  if(sexo == "M") or (sexo == "m"): # masculino
    peso_ideal = (72.7 * altura) - 58  
  else: # feminino
    peso_ideal = (62.1 * altura) - 44.7  

  # vamos mostrar o resultado
  print("Seu peso ideal é: {0}".format(peso_ideal))
  
if __name__== "__main__":
  main()

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Seno de 0 = ' + FloatToStr(Sin(0)));
  Memo1.Lines.Add('Seno de 1 = ' + FloatToStr(Sin(1)));
  Memo1.Lines.Add('Seno de 2 = ' + FloatToStr(Sin(2)));
end;