(
  ; vamos declarar a variável que vamos usar
  let (numero)	
  ; vamos inicializar a variável com o valor 1
  (setq numero 1)
  ; agora iniciamos o laço
  (loop 
    ; escrevemos o valor da variável
    (write numero)
    ; aumentamos o valor da variável em 1
    (setq numero (+ numero 1))
    ; provocamos uma quebra de linha 
    (terpri)
    ; e fazemos o teste da continuidade
    (when (> numero 10) (return))
  )
)

// Algoritmo Delphi para calcular desvio padrão

program estudos_delphi;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  // conjunto de dados
  conjunto: array[1..4] of double = (10, 30, 90, 30);
  soma: double; // Soma dos elementos
  desvio_padrao: double; // Desvio padrão
  tam: integer; // Tamanho dos dados
  media: double; // média
  i: integer;

begin
  soma := 0.0;
  desvio_padrao := 0.0;
  tam := 4;

  // vamos somar todos os elementos
  for i := 1 to tam do
    begin
      soma := soma + conjunto[i];
    end;

  // agora obtemos a média do conjunto de dados
  media := soma / tam;

  // e finalmente obtemos o desvio padrão
  for i := 1 to tam do
    begin
      // não esqueça de adicionar a unit Math
      desvio_padrao := desvio_padrao + Power(conjunto[i] - media, 2);
    end;

  // mostramos o resultado
  WriteLn('Desvio Padrão Populacional: ' + FloatToStr(Sqrt(desvio_padrao / tam)));
  WriteLn('Desvio Padrão Amostral: ' + FloatToStr(Sqrt(desvio_padrao / (tam - 1))));

  WriteLn;
  Write('Pressione Enter para sair...');
  ReadLn;

end.

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

void main(){
  print("Cosseno de 0 = " + cos(0).toString());
  print("Cosseno de 1 = " + cos(1).toString());
  print("Cosseno de 2 = " + cos(2).toString());
}

<?php
  // para executar abra uma janela de comando
  // cmd e dispare o comando abaixo:
  // C:\xampp\php>php c:\estudos_php\estudos.php
   
  // para ler a entrada do usuário
  $entrada = fopen("php://stdin","r");
  
  // vamos ler as coordenadas do primeiro ponto
  echo "Coordenada x do primeiro ponto: ";
  $x1 = fgets($entrada);
  echo "Coordenada y do primeiro ponto: ";
  $y1 = fgets($entrada);
    
  // vamos ler as coordenadas do segundo ponto
  echo "Coordenada x do segundo ponto: ";
  $x2 = fgets($entrada);
  echo "Coordenada y do segundo ponto: ";
  $y2 = fgets($entrada);
  
  $sinal = "+";
  // vamos calcular o coeficiente angular da reta
  $m = ($y2 - $y1) / ($x2 - $x1);
  // vamos calcular o coeficiente linear
  $n = $y1 - ($m * $x1);
 
  // coeficiente linear menor que zero? O sinal será negativo
  if ($n < 0){
    $sinal = "-";
    $n = $n * -1;
  }
  
  // mostra a equação reduzida da reta
  echo "Equação reduzida: y = " . $m . "x" 
    . " " . $sinal . " " . $n;
?>

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

textArea = new JTextArea(10, 20);     
String selecionado = textArea.getSelectedText();