// Vamos importar a biblioteca dart:io
import "dart:io";

// vamos importar a biblioteca dart:math
import "dart:math";

void main(){
  // vamos ler as latitudes e longitudes das duas
  // localizações
  stdout.write("Informe a primeira latitude: ");
  double lat1 = double.parse(stdin.readLineSync());
  stdout.write("Informe a primeira longitude: ");
  double lon1 = double.parse(stdin.readLineSync());
  stdout.write("Informe a segunda latitude: ");
  double lat2 = double.parse(stdin.readLineSync());
  stdout.write("Informe a segunda longitude: ");
  double lon2 = double.parse(stdin.readLineSync());
  
  // vamos calcular a distância entre os dois pontos em Kms
  double distancia = calcularDistancia(lat1, lat2, lon1, lon2);
    
  // mostramos o resultado
  print("Distância entre os dois pontos: ${distancia} kms");
}

// função que recebe dois pontos na terra e retorna a distância
// entre eles em quilômetros
double calcularDistancia(double lat1,
  double lat2, double lon1, double lon2){
    
  double raio_terra = 6378.137; // raio da terra em quilômetros
    
  // o primeiro passo é converter as latitudes e longitudes
  // para radianos
  lon1 = grausParaRadianos(lon1);
  lon2 = grausParaRadianos(lon2);
  lat1 = grausParaRadianos(lat1);
  lat2 = grausParaRadianos(lat2);
 
  // agora aplicamos a Fórmula de Haversine
  double dlon = lon2 - lon1;
  double dlat = lat2 - lat1;
  double a = pow(sin(dlat / 2), 2) + cos(lat1) * cos(lat2)
    * pow(sin(dlon / 2),2);
             
  double c = 2 * asin(sqrt(a));
 
  // e retornamos a distância    
  return(c * raio_terra);
}

// função que permite converter graus em radianos
double grausParaRadianos(double graus){
  return graus * (pi /  180);
}

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler as coordenadas do primeiro ponto
    Console.Write("Coordenada x do primeiro ponto: ")
    Dim x1 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Coordenada y do primeiro ponto: ")
    Dim y1 As Double = Double.Parse(Console.ReadLine())

    ' vamos ler as coordenadas do segundo ponto
    Console.Write("Coordenada x do segundo ponto: ")
    Dim x2 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Coordenada y do segundo ponto: ")
    Dim y2 As Double = Double.Parse(Console.ReadLine())

    Dim sinal As String = "+"
    ' vamos calcular o coeficiente angular da reta
    Dim m As Double = (y2 - y1) / (x2 - x1)
    ' vamos calcular o coeficiente linear
    Dim n As Double = y1 - (m * x1)

    ' coeficiente linear menor que zero? O sinal será negativo
    If n < 0 Then
      sinal = "-"
      n = n * -1
    End If

    ' mostra a equação reduzida da reta
    Console.WriteLine("Equação reduzida: y = " & m & "x" _
      & " " & sinal & " " & n)

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

End Module

>> y = (-0.75 * 3) + 8.75
y = 6.5000

public String replace(CharSequence target, 
  CharSequence replacement)

public class Estudos {
  public static void main(String[] args) {
    String frase = "Programar em C++ é muito bom! Gosto muito de C++";
    System.out.println("Frase original: " + frase);
    
    // vamos substituir todas as ocorrências de "C++" por "Java"
    frase = frase.replace("C++", "Java");
    System.out.println("Depois da substituição: " + frase);
  }
}

Frase original: Programar em C++ é muito bom! Gosto 
  muito de C++
Depois da substituição: Programar em Java é muito bom! Gosto 
  muito de Java

; Esta função permite obter e exibir o valor atual
; da variável CLAYER do AutoCAD. Esta variável retorna
; o nome da layer atual
(defun c:layer_atual()
  (setq nome_layer_atual (getvar "CLAYER"))
  ; mostramos o resultado
  (princ (strcat "\nNome da layer atual: " nome_layer_atual))
  (princ)
)

#include <stdio.h>
#include <stdlib.h>
 
int main(int argc, char *argv[])
{
  int pode = 1; // verdadeiro
  int nao_pode = 0; // falso
 
  if(pode)
    printf("Teste resultou verdadeiro\n\n");
 
  if(!nao_pode)
    printf("Teste resultou verdadeiro\n\n");
 
  system("PAUSE");
  return 0;
}

#include <string>
#include <iostream>
 
using namespace std;
 
int main(int argc, char *argv[]){
  bool pode = true;
  bool nao_pode = false;
 
  cout << pode << "\n";
  cout << nao_pode << "\n\n";
 
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}