Imports System

Module Program
  Sub Main(args As String())
    ' x e y do primeiro ponto
    Console.Write("Informe a coordenada x do primeiro ponto: ")
    Dim x1 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Informe a coordenada y do primeiro ponto: ")
    Dim y1 As Double = Double.Parse(Console.ReadLine())

    ' x e y do segundo ponto
    Console.Write("Informe a coordenada x do segundo ponto: ")
    Dim x2 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Informe a coordenada y do segundo ponto: ")
    Dim y2 As Double = Double.Parse(Console.ReadLine())

    ' agora vamos calcular o coeficiente angular
    Dim m As Double = (y2 - y1) / (x2 - x1)

    ' e mostramos o resultado
    Console.WriteLine("O coeficiente angular é: " & m)

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

Imports System

Module Program
  Sub Main(args As String())
    ' x e y do primeiro ponto
    Console.Write("Informe a coordenada x do primeiro ponto: ")
    Dim x1 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Informe a coordenada y do primeiro ponto: ")
    Dim y1 As Double = Double.Parse(Console.ReadLine())

    ' x e y do segundo ponto
    Console.Write("Informe a coordenada x do segundo ponto: ")
    Dim x2 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Informe a coordenada y do segundo ponto: ")
    Dim y2 As Double = Double.Parse(Console.ReadLine())

    ' vamos obter o comprimento do cateto oposto
    Dim cateto_oposto As Double = y2 - y1
    ' e agora o cateto adjascente
    Dim cateto_adjascente As Double = x2 - x1
    ' vamos obter o ângulo tetha, ou seja, a inclinação da hipetunesa
    ' (em radianos, não se esqueça)
    Dim tetha As Double = Math.Atan2(cateto_oposto, cateto_adjascente)
    ' e finalmente usamos a tangente desse ângulo para calcular
    ' o coeficiente angular
    Dim tangente As Double = Math.Tan(tetha)

    ' e mostramos o resultado
    Console.WriteLine("O coeficiente angular é: " & tangente)

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

Informe o valor do 1.o elemento: 8
Informe o valor do 2.o elemento: 5
Informe o valor do 3.o elemento: 4
Informe o valor do 4.o elemento: 1
Informe o valor do 5.o elemento: 2
Informe o valor do 6.o elemento: 3
Informe o valor do 7.o elemento: 4
Informe o valor do 8.o elemento: 6
Informe o valor do 9.o elemento: 9
Informe o valor do 10.o elemento: 7

Elementos do vetor A:

8,  5,  4,  1,  2,  3,  4,  6,  9,  7  

Elementos do vetor B:

24,  10,  12,  2,  6,  6,  12,  12,  27,  14

package estudos;

import java.util.Scanner;
 
public class Estudos {
  public static void main(String[] args) {
    // vamos fazer a leitura usando a classe Scanner
    Scanner entrada = new Scanner(System.in);
       
    // vamos declarar e construir dois vetores de 10 inteiros
    int vetor_a[] = new int[10];
    int vetor_b[] = new int[10];
    
    // agora vamos pedir para o usuário informar os valores
    // dos elementos do vetor A
    for(int i = 0; i < vetor_a.length; i++){
      System.out.print("Informe o valor do " + (i + 1) +
        ".o elemento: ");
      vetor_a[i] = Integer.parseInt(entrada.nextLine());
    }
    
    // vamos construir o vetor B
    for(int i = 0; i < vetor_a.length; i++){
      // o índice atual é par?
      if(i % 2 == 0){
        vetor_b[i] = vetor_a[i] * 3;
      }
      else{
        vetor_b[i] = vetor_a[i] * 2;
      }
    }
      
    // vamos mostrar os elementos do vetor A
    System.out.println("\nElementos do vetor A:\n");
    for(int i = 0; i < vetor_a.length; i++){
      System.out.print(vetor_a[i] + ",  ");
    }
    
    // vamos mostrar os elementos do vetor B
    System.out.println("\n\nElementos do vetor B:\n");
    for(int i = 0; i < vetor_b.length; i++){
      System.out.print(vetor_b[i] + ",  ");
    }
    System.out.println();
  }
}

<?php
  // uma frase contendo espaços no início e
  // no final
  $frase = "   PHP? Eu gosto de PHP.    ";
  
  // vamos remover os espaços no início e no fim
  $frase = trim($frase);
  
  // e mostramos o resultado
  echo "A frase é: " . $frase;
?>

			 
int compare(size_t pos1, size_t n1, 
  const string& str) const;
int compare(size_t pos1, size_t n1, 
  const char* s) const;

#include <iostream>
#include <string>

using namespace std;

// função principal do programa
int main(int argc, char *argv[]){
  // vamos criar duas strings
  string str1("Gosto de programar em Java");
  string str2("Gosto");

  // agora vamos testar se a primeira string começa com a segunda
  if(str1.compare(0, str2.size(), str2) == 0){
    cout << "A string começa com \"Gosto\"";
  }
  else{
    cout << "A string não começa com \"Gosto\""; 
  }
	   
  cout << "\n" << endl;
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}