Informe o 1º valor: 5
Informe o 2º valor: 1
Informe o 3º valor: 20
Informe o 4º valor: 6
Informe o 5º valor: 3
Informe o 6º valor: 4
Informe o 7º valor: 7
Informe o 8º valor: 12
Informe o 9º valor: 9
Informe o 10º valor: 8

O maior valor lido foi: 20
O menor valor lido foi: 1

Imports System

Module Program
  Sub Main(args As String())
    Dim valor As Integer ' guarda o valor lido
    Dim maior, menor As Integer ' variáveis que guardarão
    ' o maior e o menor valor lido

    ' vamos pedir ao usuário que informe 10 valores inteiros
    For i As Integer = 1 To 10 Step 1
      Console.Write("Informe o " & i & "º valor: ")
      valor = Integer.Parse(Console.ReadLine())

      ' esta é a primeira iteração do laço? se for vamos assumir que o
      ' maior e menor valor lido são o primeiro valor informado
      If i = 1 Then
        maior = valor
        menor = valor
      Else ' não é a primeira iteração
        ' vamos verificar se é maior que o valor atual da variável maior
        If valor > maior Then
          maior = valor
        End If
        ' vamos verificar se é menor que o valor atual da variável menor
        If valor < menor Then
          menor = valor
        End If
      End If
    Next

    ' vamos exibir o maior e o menor valor lido
    Console.WriteLine(vbCrLf & "O maior valor lido foi: " & maior)
    Console.WriteLine("O menor valor lido foi: " & menor)

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

 
package arquivodecodigos;

import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
 
public class Estudos extends JFrame{
  JCheckBoxMenuItem cores[];
  Color valCores[] = {Color.red, Color.white,
    Color.green};  
  String nomeCores[] = {"Vermelho", "Branco",
    "Verde"};
 
  public Estudos(){
    super("Menus");
 
    // Cria a barra de menus
    JMenuBar barra = new JMenuBar();
    setJMenuBar(barra);
 
    // Cria um menu
    JMenu formatar = new JMenu("Formatar");
     
    // Cria o menu de cor de fundo
    JMenu item1 = new JMenu("Cor de Fundo");
    
    // Adiciona o segundo JMenu ao primeiro
    formatar.add(item1);
 
    cores = new JCheckBoxMenuItem[valCores.length];
 
    Gerenciador gerenciador = new Gerenciador();
  
    for(int i = 0; i < valCores.length; i++){
      cores[i] = new JCheckBoxMenuItem(nomeCores[i]);
      item1.add(cores[i]);
      cores[i].addItemListener(gerenciador);
    } 
 
    // Adiciona o menu à barra de menus
    barra.add(formatar);
 
    setSize(300, 150);
    setVisible(true);    
  }
 
  public static void main(String args[]){
    Estudos app = new Estudos();
    app.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  }
 
  private class Gerenciador implements ItemListener{
    public void itemStateChanged(ItemEvent e){
      String marcadas = "As checkbox marcadas são:\n\n";     
  
      for(int i = 0; i < cores.length; i++){
        if(cores[i].isSelected()){
          marcadas += nomeCores[i] + "\n";
        }
      }
 
      JOptionPane.showMessageDialog(null, marcadas); 
    }
  }
}

; Vamos definir as variáveis que vamos
; usar no programa
(defvar raio)
(defvar area)

; Este o programa principal
(defun AreaCirculo()
  ; Vamos ler o raio do círculo
  (princ "Informe o raio do círculo: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável raio
  (setq raio (read))
  
  ; calcula a área do círculo
  (setq area (* pi (expt raio 2)))
  
  ; E mostramos o resultado
  (format t "A área do círculo de raio ~F é ~F" raio
    area)
)

; Auto-executa a função AreaCirculo()
(AreaCirculo)

<?php
// Informe o nome do arquivo que você deseja abrir
$arquivo = "c:\\estudos_php\\teste.txt";

// Use a função file_exists() para confirmar a existência do
// do arquivo.
if(file_exists($arquivo)){
  // Tente abrir o arquivo (neste exemplo vamos abrí-lo para leitura)
  try{
    if($readfile = fopen($arquivo, "r")){
      // Já podemos manipular o arquivo.
      echo "Arquivo aberto com sucesso.";
    } 
    else{
      // Não foi possível abrir. Vamos lançar uma exceção.
      throw new exception("Não consegui abrir o arquivo.");
    }
  } 
  catch(exception $e){
    echo $e->getmessage();
  }
} 
else{
  echo "Arquivo não existe.";
}
?>

library Project2;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes;

{$R *.res}

begin
end.

library MinhaDLL;

function Somar(a, b: Integer): Integer; stdcall;
begin
  Result := a + b; // retorna a soma
end;

{ vamos exportar (export) a função Somar }
exports
  Somar;

begin
end.