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

// função personalizada que permite contar as
// ocorrências de uma substring em uma string
int substring_count(const char *str, const char *substring){
  int i, j, k, quant = 0;

  // vamos percorrer todos os caracteres da string
  for(i = 0; str[i]; i++){
    for(j = i, k = 0; str[j] == substring[k]; j++, k++){
      if(substring[k + 1] == 0) // fim da comparação
        quant++;
    }
  }

  return quant;
}

int main(int argc, char *argv[]){
  char frase[] = "Gosto muito de Java, JavaScript e Python";

  printf("Ocorrencias encontradas: %d",
    substring_count(frase, "Java"));

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

package arquivodecodigos;

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
 
public class Estudos extends JFrame{
  JList lista;
  JTextField campo;  
 
  public Estudos() {
    super("A classe JList");
     
    Container c = getContentPane();
    c.setLayout(new FlowLayout(FlowLayout.LEFT));
     
    // Cria um novo DefaultListModel
    DefaultListModel modelo = new DefaultListModel();
     
    // Cria a JList
    lista = new JList();
  
    // Atribui o DefaultListModel à JList
    lista.setModel(modelo);
  
    // Um botão que permite adicionar itens na JList
    JButton btn = new JButton("Adicionar na JList");
    btn.addActionListener(
      new ActionListener(){
        public void actionPerformed(ActionEvent e){
          String valor = campo.getText();
           
          if(valor.length() != 0){
            ((DefaultListModel)(lista.getModel()))
               .addElement(valor);
            campo.setText("");
            campo.requestFocus();
          }
        }
      }
    );
 
    // Adiciona a lista à janela
    c.add(new JScrollPane(lista));
 
    // Cria um JTextField e o adiciona à janela
    campo = new JTextField(10);
    c.add(campo);
 
    // Adiciona o botão à janela
    c.add(btn);  
 
    setSize(350, 250);
    setVisible(true);
  }
   
  public static void main(String args[]){
    Estudos app = new Estudos();
    app.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  }
}

Imports System

Module Program
  Sub Main(args As String())
    Dim var1 As String ' ainda não foi inicializada...é null
    Dim var2 As String = Nothing ' é null
    Dim var3 As String = "" ' está vazia

    If String.IsNullOrEmpty(var1) Then
      Console.WriteLine("A variável var1 ainda é null ou vazia")
    End If

    If String.IsNullOrEmpty(var2) Then
      Console.WriteLine("A variável var2 ainda é null ou vazia")
    End If

    If String.IsNullOrEmpty(var3) Then
      Console.WriteLine("A variável var3 ainda é null ou vazia")
    End If

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

System.TObject
  Classes.TPersistent
    Classes.TComponent
      Controls.TControl
        Controls.TWinControl
          Controls.TCustomControl
            Grids.TCustomGrid
              Grids.TCustomDrawGrid
                Grids.TDrawGrid
                  Grids.TStringGrid

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos definir o conteúdo da célula na segunda linha
  // da primeira coluna da grid
  StringGrid1.Cells[0, 1] := 'Osmar J. Silva';
end;

Informe a medida da diagonal maior: 5
Informe a medida da diagonal menor: 10
A área (em metros quadrados) do losango é: 25

// pacote principal
package main

// vamos importar o módulo de formatação de
// entrada e saída
import "fmt"
  
// esta é a função principal do programa
func main() {
  // variáveis que vamos usar na resolução do problema
  var diagonal_maior, diagonal_menor int
  var area float32
	
  // vamos ler os valores das diagonais maior e menor
  fmt.Print("Informe a medida da diagonal maior: ")
  fmt.Scanln(&diagonal_maior)
  fmt.Print("Informe a medida da diagonal menor: ")
  fmt.Scanln(&diagonal_menor)
  
  // calcula a area do losango
  area = float32((diagonal_maior * diagonal_menor)) / 2
  // mostra o resultado
  fmt.Printf("A área (em metros quadrados) é: %.2f",
    area)
}