// Calcular o coeficiente angular de uma reta em Portugol

programa {
  // vamos incluir a biblioteca Matematica
  inclua biblioteca Matematica --> mat
  
  funcao inicio() {
    // coordenadas dos dois pontos
    real x1, y1, x2, y2
    // guarda o coeficiente angular
    real m

    // x e y do primeiro ponto
    escreva("Coordenada x do primeiro ponto: ")
    leia(x1)
    escreva("Coordenada y do primeiro ponto: ")
    leia(y1)

    // x e y do segundo ponto
    escreva("Coordenada x do segundo ponto: ")
    leia(x2)
    escreva("Coordenada y do segundo ponto: ")
    leia(y2)

    // vamos calcular o coeficiente angular
    m = (y2 - y1) / (x2 - x1)

    // mostramos o resultado
    escreva("O coeficiente angular é: ", m) 
  }
}

Imports System

Module Program
  Sub Main(args As String())
    Dim frase As String = "VejA esta FRASe"

    ' vamos mostrar a frase original
    Console.WriteLine("Frase original: " & frase)

    ' transforma tudo em letras maiúsculas
    frase = frase.ToUpper()

    ' agora mostramos a frase em letras maiúsculas
    Console.WriteLine("Em letras maiúsculas: " & frase)

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

static void Main(string[] args){
  // vamos verificar se o ano 2008
  // é bissexto
  int ano = 2008;

  if(DateTime.IsLeapYear(ano)){
    Console.WriteLine("O ano informado é bissexto");
  }
  else{
    Console.WriteLine("O ano informado NÃO é bissexto");
  }

  // pausa o programa
  Console.ReadKey();
}

static void Main(string[] args){
  double principal = 2000.00;
  double taxa = 0.03;
  int meses = 3;
  
  double montante = principal * Math.Pow((1 + taxa), meses);  
  double juros = montante - principal;

  Console.WriteLine("O total de juros a ser pago é: " 
      + juros);
  Console.WriteLine("O montante a ser pago é: " 
      + montante);

  Console.WriteLine("Pressione qualquer tecla para sair...");
  // pausa o programa
  Console.ReadKey();
}

static void Main(string[] args){
  double principal = 2000.00;
  double taxa = 0.03;
  int meses = 3;
  double anterior = 0.0;  

  for(int i = 1; i <= meses; i++){
    double montante = principal * Math.Pow((1 + taxa), i);
    double juros = montante - principal - anterior;
      
    anterior += juros;

    Console.WriteLine("Mês: " + i + " - Montante: " 
      + montante + " - Juros: " + juros);
  }  

  Console.WriteLine("Pressione qualquer tecla para sair...");
  // pausa o programa
  Console.ReadKey();
}

public static int quantDigitos(int numero){
  // seu código aqui
}

Informe um número inteiro de qualquer tamanho: 4983
O número informado possui 4 dígitos

package exercicio;

import java.util.Scanner;

public class Exercicio{
  public static void main(String[] args) {
    // cria um novo objeto da classe Scanner
    Scanner entrada = new Scanner(System.in);
    	
    // vamos pedir para o usuário informar um número inteiro
    System.out.print("Informe um número inteiro de qualquer tamanho: ");
    int num = Integer.parseInt(entrada.nextLine());
    
    // vamos obter a quantidade de dígitos no número usando
    // uma chamada à função recursiva quant_digitos()
    int quant = quantDigitos(num);
     
    // mostramos o resultado
    System.out.println("O número informado possui " + quant +
      " dígitos");
  }
  
  // função recursiva que recebe um número inteiro e retorna
  // sua quantidade de dígitos
  public static int quantDigitos(int numero){
    if ((numero / 10) == 0){ // atenção: divisão inteira
      // retorna o caso base
      return 1;
    }
    else{
      // efetua mais uma chamada recursiva
      return 1 + quantDigitos(numero / 10);
    }
  }   
}