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

char *substring(char *origem, int inicio, int quant){
  char *res = origem;
  int i = 0;

  // posição inicial menor que 0 ou
  // posição inicial muito exagerada?
  if((inicio < 0) || (inicio > strlen(origem)))
    inicio = 0;

  // quantidade de caracteres muito exagerada?
  if(quant > inicio + strlen(origem))
    quant = strlen(origem) - inicio;

  // obtem os caracteres desejados
  for(i = 0; i <= quant - 1; i++){
    res[i] = origem[inicio + i];
  }

  // marca o fim da string
  res[i] = '\0';

  return res;
}

int main(int argc, char *argv[])
{
  char texto[] = "Gosto muito de C e C++";
  
  // não podemos bagunçar a string original
  char sub_temp[128];
  strcpy(sub_temp, texto);
  // 10 caracteres começando
  // no índice 6
  char *res = substring(sub_temp, 6, 10);

  // exibe o resultado
  puts(res);

  // exibe a string original
  puts(texto);

  system("pause");
  return 0;
}

package arquivodecodigos;

import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
 
public class Estudos extends JFrame{
  public Estudos(){
    super("Eventos do Mouse e Teclado");
 
    Container c = getContentPane();
    PainelDesenho painel = new PainelDesenho();
    c.add(painel, BorderLayout.CENTER);
    c.add(new JLabel("Arraste o mouse para desenhar..." ),
      BorderLayout.SOUTH );
     
    setSize(350, 250);
    setVisible(true);
  }
   
  public static void main(String args[]){
    Estudos app = new Estudos();
    app.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  }
}
 
class PainelDesenho extends JPanel{
  private int quantPontos = 0;
  private Point pontos[] = new Point[10000];
 
  public PainelDesenho(){
    this.setBackground(Color.WHITE);    
 
    this.addMouseMotionListener(
      new MouseMotionAdapter(){
        public void mouseDragged(MouseEvent e){
          if(quantPontos < pontos.length){
            pontos[quantPontos] = e.getPoint();
            quantPontos++;
            repaint();
          }                                              
        }                                
      }
    );
  }
 
  @Override
  public void paintComponent(Graphics g){
    super.paintComponent(g);
     
    for(int i = 0 ; i < quantPontos; i++)
      g.fillOval(pontos[i].x, pontos[i].y, 4, 4);
  }
}

Informe o 1º valor: 4
Informe o 2º valor: 12
Informe o 3º valor: 9
Informe o 4º valor: 6
Informe o 5º valor: 4
Informe o 6º valor: 3
Informe o 7º valor: 7
Informe o 8º valor: 2
Informe o 9º valor: 3
Informe o 10º valor: 1
A média dos valores é: 5.0
Quantidade de valores acima da média: 4 

package estudos;

import java.util.Scanner;

public class Main {
  public static void main(String[] args) {
    // vamos declarar e instancia um objeto da classe Scanner
    Scanner entrada = new Scanner(System.in);

    // vamos declarar e construir uma matriz de 10 ints
    int valores[] = new int[10];

    double media; // média dos valores
    int soma = 0; // soma dos valores lidos
    int quantAcimaMedia = 0; // quantidade de valores acima da média

    // vamos solicitar ao usuário que informe os 10 valores inteiros
    // e vamos armazená-los na matriz
    for(int i = 0; i < valores.length; i++){
      System.out.print("Informe o " + (i + 1) + "º valor: ");
      int valor = Integer.parseInt(entrada.nextLine());
      valores[i] = valor;

      // vamos adicionar este valor à soma
      soma = soma + valor;
    }

    // vamos obter a média dos valores lidos
    media = (soma / valores.length);

    // agora precisamos obter a quantidade de valores acima da média
    for(int i = 0; i < valores.length; i++){
      if(valores[i] > media){
        quantAcimaMedia++;
      }
    }

    // vamos exibir os resultados
    System.out.println("A média dos valores é: " + media);
    System.out.println("Quantidade de valores acima da média: " + 
      quantAcimaMedia);
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  valor1, valor2, soma: Double;
begin
  // vamos receber as strings dos TEdits e converter
  // seus valores para números de ponto-flutuante
  // note que em Delphi, um valor de ponto-flutuante
  // é informado em caixas de texto usando vírgula. Ex: 7,3
  valor1 := StrToFloat(Edit1.Text);
  valor2 := StrToFloat(Edit2.Text);

  // vamos obter a soma dos dois valores
  soma := valor1 + valor2;

  // vamos exibir o resultado. Note o uso de FloatToStr() para
  // converter o valor fracionário em string
  ShowMessage('A soma é: ' + FloatToStr(soma));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valor: Double;
begin
  // vamos tentar converter o valor da caixa de texto
  // em um valor de ponto-flutuante
  if TryStrToFloat(Edit1.Text, valor) then
    ShowMessage('Conversão efetuada com sucesso.')
  else
    ShowMessage('Erro na conversão');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valor: Double;
begin
  // vamos converter o valor da caixa de texto
  // em um valor de ponto-flutuante. Se a conversão não puder
  // ser feita o valor 10,50 será atribuído à varial valor
  valor := StrToFloatDef(Edit1.Text, 10.50);

  // vamos exibir o resultado
  ShowMessage(FloatToStr(valor));
end;