int negativos = 0; // guardará a quantidade de valores negativos

public static void main(String[] args){
  // para este exercício você deverá importar a classe
  // Scanner. Ela está no pacote java.util.*;
    
  // vamos construir um objeto da classe Scanner para ler a
  // entrada do usuário
  Scanner entrada = new Scanner(System.in);

  int valor; // guarda o valor lido
  int negativos = 0; // guardará a quantidade de valores negativos

  // vamos pedir ao usuário que informe 10 valores inteiros
  for(int i = 0; i < 10; i++){
    System.out.print("Informe o " + (i + 1) + "º valor: ");
    valor = Integer.parseInt(entrada.nextLine());

    // vamos verificar se o valor informado é negativo
    if(valor < 0){
      negativos++;
    }
  }

  // vamos exibir a quantidade de números negativos lidos
  System.out.println("\nVocê informou " + negativos + " valores negativos.\n");
}

procedure TForm1.Button1Click(Sender: TObject);
var
  nome: string; // declara uma variável do tipo string
begin
  nome := 'Osmar J. Silva'; // inicializa a variável
  ShowMessage(nome); // exibe o conteúdo da string
end;

var
  nome: string[5]; // declara uma variável do tipo string
                   // que guardará apenas 5 caracteres

nome := 'Osmar J. Silva'; // inicializa a variável
ShowMessage(nome); // mostrará apenas "Osmar"

procedure TForm1.Button1Click(Sender: TObject);
var
  nome: string; // declara uma variável do tipo string
begin
  // vamos solicitar ao usuário que informe seu nome
  nome := Dialogs.InputBox('Nome', 'Informe seu nome:', '');
  ShowMessage('Seu nome é: ' + nome); // mostrará apenas "Osmar"
end;

; Este programa é usado para desenhar uma
; linha a partir de dois pontos indicados
; pelo usuário
(defun desenharLinha()
  ; Vamos obter o primeiro ponto e guardar suas
  ; coordenadas na variável p
  (setq p (getpoint "Clique primeiro ponto na GA"))

  ; Vamos obter o segundo ponto e guardar suas
  ; coordenadas na variável q
  (setq q (getpoint "\nClique segundo ponto na GA"))

  ; Agora chamamos o comando LINE passando os
  ; dois pontos geométricos obtidos
  (command "LINE" p q "")
)

(DESENHARLINHA)

# vamos definir uma variável do tipo inteiro
valor = 265

# obtemos o tipo da variável valor
tipo = valor.class

# exibimos o resultado
puts "A variável é do tipo " + tipo.to_s

#include <stdio.h>
#include <stdlib.h>

// uma função que escreve uma frase
// na tela
void escrever(void){
  printf("Sou uma funcao");
}

int main(int argc, char *argv[]){
  // efetua uma chamada à função escrever
  escrever();

  puts("\n\n");
  system("PAUSE");
  return 0;
}

void escrever(){
  printf("Sou uma funcao");
}

#include <stdio.h>
#include <stdlib.h>

// uma função que escreve uma frase
// na tela
void escrever(){
  char nome[] = "Osmar J. Silva";
  printf("Ola, meu nome e %s\n", nome);
}

int main(int argc, char *argv[]){
  printf("Sou main. Vou chamar a funcao escrever()\n");

  // efetua uma chamada à função escrever
  escrever();

  // efetua outra chamada à função escrever
  escrever();

  printf("Acabei de efetuar chamadas a funcao escrever()");

  puts("\n\n");
  system("PAUSE");
  return 0;
}