# x e y do primeiro ponto
x1 <- readline("Coordenada x do primeiro ponto: ")
y1 <- readline("Coordenada y do primeiro ponto: ")
x1 <- as.numeric(x1)
y1 <- as.numeric(y1)

# x e y do segundo ponto
x2 <- readline("Coordenada x do segundo ponto: ")
y2 <- readline("Coordenada y do segundo ponto: ")
x2 <- as.numeric(x2)
y2 <- as.numeric(y2)

# agora vamos calcular o coeficiente angular
m <- (y2 - y1) / (x2 - x1)

# mostramos o resultado
paste("O coeficiente angular é:", m)

# x e y do primeiro ponto
x1 <- readline("Coordenada x do primeiro ponto: ")
y1 <- readline("Coordenada y do primeiro ponto: ")
x1 <- as.numeric(x1)
y1 <- as.numeric(y1)

# x e y do segundo ponto
x2 <- readline("Coordenada x do segundo ponto: ")
y2 <- readline("Coordenada y do segundo ponto: ")
x2 <- as.numeric(x2)
y2 <- as.numeric(y2)

# vamos obter o comprimento do cateto oposto
cateto_oposto <- y2 - y1
# e agora o cateto adjascente
cateto_adjascente <- x2 - x1
# vamos obter o ângulo tetha, ou seja, a inclinação da hipetunesa
# (em radianos, não se esqueça)
tetha <- atan2(cateto_oposto, cateto_adjascente)
# e finalmente usamos a tangente desse ângulo para calcular
# o coeficiente angular
tangente <- tan(tetha)

# mostramos o resultado
paste("O coeficiente angular é:", tangente)

#include <stdio.h>
#include <stdlib.h>
#include <math.h> 
     
int main(int argc, char *argv[]){
  // gravidade terrestre em m/s2
  float gravidade = 9.80665;
  // altura da queda (em metros)
  int altura = 5; // em metros
  // velocidade da queda em metros por segundo
  float velocidade_m_s = sqrt(2 * gravidade * altura);
  // velocidade da queda em km/h
  float velocidade_km_h = velocidade_m_s * 3.6;
  
  // mostramos o resultado
  printf("A velocidade da queda livre em m/s é: %fm/s",
    velocidade_m_s);
  printf("\nA velocidade da queda livre em km/h é: %fkm/h",
    velocidade_km_h);
	  
  printf("\n\n");
  system("PAUSE");
  return 0;
}

procedure TForm1.Button1Click(Sender: TObject);
var
  nome: string;
begin
  nome := 'Osmar';

  // vamos converter a string para letras maiúsculas
  nome := AnsiUpperCase(nome);

  // exibe o resultado
  ShowMessage(nome);
end;

#include <stdio.h>
#include <stdlib.h>
 
// vamos definir o valor de PI
#define PI 3.14159265358979323846
 
int main(int argc, char *argv[]){
  // valor em radianos
  double radianos = 1.5;
  // obtém o valor em graus
  double graus = radianos * (180 / PI);
  // mostra o resultado
  printf("%f radianos convertidos para graus é %f\n\n",
    radianos, graus);
  
  system("PAUSE");  
  return 0;
}