Programando em Pascal, C/C++ e Java: dezembro 2012

Exibindo todas as fontes do sistema em Java

/* Esse programa tem por finalidade imprimir todas as fontes existentes no sistema*/

// Autor: João Matheus Santos Assis

import java.awt.GraphicsEnvironment;
import javax.swing.JFrame;
import javax.swing.JList;
import javax.swing.JScrollPane;

public class Fontes extends JFrame{

    // Obtêm todas as fontes do sistema
    private String[] font = GraphicsEnvironment.getLocalGraphicsEnvironment().
                 getAvailableFontFamilyNames();

    private JList List = new JList(font);

    public Fontes() {
        super("Fontes");

        add(new JScrollPane(List));


        this.setSize(400,700);
        this.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
        this.setVisible(true);
    }

    public static void main(String [] args){
        new Fontes();
    }
}

Palavras-Chaves: Fontes, Sistema, JList, Java.

Feito no NetBeans-5.5.1 | Executável

Calculadora Simples em Pascal

Program ARITMETICA;
uses crt;
var
primeiroNumero, segundoNumero, soma, subtracao, multiplicacao : integer;
begin

// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis

{
Este programa recebe do usuário dois valores e
exibe a soma, diferença e a multiplicação.
}

writeln (' CALCULADORA SIMPLES');
writeln;

write(' Primeiro valor..: ');
readln(primeiroNumero);
write(' Segundo valor...: ');
readln(segundoNumero);

writeln;

soma := primeiroNumero + segundoNumero;
subtracao := primeiroNumero - segundoNumero;
multiplicacao := primeiroNumero * segundoNumero;

writeln (' ', primeiroNumero ,' + ', segundoNumero ,': ', soma);
writeln (' ', primeiroNumero ,' - ', segundoNumero ,': ', subtracao);
writeln (' ', primeiroNumero ,' * ', segundoNumero ,': ', multiplicacao);

readkey;
end.

Artigos relacionados em Pascal:

Feito no Dev-Pascal 1.9.2 | Executável

Simulador do Jogo da Mega Sena em Pascal

Program MEGA_SENA;
uses crt;
var
numerosEscolhidos : array [1..6] of integer;
numerosSorteados : array [1..6] of integer;
acertos, continuarJogo, i, j : integer;

// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis

{
Este programa tem por finalidade simular um jogo de
Mega-Sena, informando quantos números o usuário acertou.
}

procedure cabecalho;
begin

textcolor(15);

for i := 1 to 79 do
write ('-');

writeln;

gotoxy(35, 2);
writeln ('MEGA SENA');

for i := 1 to 79 do
write ('-');

writeln;
writeln;

end;

procedure entradaDoJogador;
begin
for i := 1 to 6 do begin
// Garantindo que os números escolhidos estejam entre 1 e 60.
numerosEscolhidos[i] := 0;
while ((numerosEscolhidos[i] < 1) or (numerosEscolhidos[i] > 60)) do begin
write ('[', i , chr(166), ' Numero]: ');
readln (numerosEscolhidos[i]);
// Garantindo que o jogador não escolha números repetidos.
if (i > 1) then
for j := 1 to (i - 1) do
if (numerosEscolhidos[i] = numerosEscolhidos[j]) then
// Caso o número seja repetido, o jogador deverá escolher outro.
numerosEscolhidos[i] := 0;
end;
end;

writeln;
// Exibindo os números escolhidos.
writeln (' NUMEROS APOSTADOS!');
for i := 1 to 6 do
write(' ', numerosEscolhidos[i]);
writeln;
writeln;
end;

procedure numerosGerados;
begin
randomize;

for i := 1 to 6 do begin
// random(60) retorna números de 0 à 59, daí a importância de incrementá-lo.
numerosSorteados[i] := 1 + random(60);
// Garantindo que os números sejam todos distintos entre si.
if (i > 1) then
for j := 1 to (i - 1) do
if (numerosSorteados[i] = numerosSorteados[j]) then
i := i - 1;

end;

// Exibindo os números escolhidos.
writeln (' NUMEROS SORTEADOS!');
for i := 1 to 6 do
write(' ', numerosSorteados[i]);
writeln;
writeln;
writeln;
end;

procedure mensagemAoJogador;
begin
acertos := 0;
// Exibindo a quantidade de acertos e uma mensagem ao usuário.
for i := 1 to 6 do begin
for j := 1 to 6 do
if (numerosEscolhidos[i] = numerosSorteados[j]) then
acertos := acertos + 1;
end;

if (acertos = 0) then
write (' >MAIS SORTE DA PROXIMA VEZ! VOCE ACERTOU: ', acertos);

// Caso o número de acertos seja: 1 ou 2 ou 3.
if ((acertos > 0) and (acertos < 4)) then
write (' >ESTA INDO BEM! VOCE ACERTOU: ', acertos);

// Caso o número de acertos seja: 4 ou 5.
if ((acertos > 3) and (acertos < 6)) then
write (' >MUITO BOM, CHEGOU PERTO! VOCE ACERTOU: ', acertos);

// Caso o jogador acerte todos os números.
if (acertos = 6) then
write (' >PARABENS! VOCE ACERTOU: ', acertos);

writeln;
writeln;
end;

// Programa Principal.
begin

// Inicializando a variável para entrar no laço.
continuarJogo := 1;

while (continuarJogo = 1) do begin

clrscr; // Limpa a tela.

// Chamando os procedimentos.
cabecalho;
entradaDoJogador;
numerosGerados;
mensagemAoJogador;

// O usuário poderá efetuar novas apostas teclando o número 1.
write(' TECLE [1] PARA REALIZAR NOVA APOSTA: ');
read(continuarJogo);

end;

readkey;
end.

Determinante da matriz em Pascal

Program DETERMINANTE_DA_MATRIZ;
uses crt;
var
A : array [1..3, 1..3] of integer;
i, j, ordemDaMatriz, determinante : integer;
begin

// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis

{
Este programa tem por finalidade obter a ordem da
matriz, preenchê-la e imprimir o seu determinante.
}

writeln;
writeln(' CALCULO DO DETERMINANTE DA MATRIZ');
writeln;

// Obtendo a ordem da matriz A.
ordemDaMatriz := 0;
while ( (ordemDaMatriz < 1) or (ordemDaMatriz > 3) ) do begin
write(' >Ordem da Matriz [1,3]: ');
readln(ordemDaMatriz);
end;

writeln;
writeln;

// Preenchendo a matriz A.
for i := 1 to ordemDaMatriz do begin
for j := 1 to ordemDaMatriz do begin
write(' A[', i ,',', j ,']: ');
read( A[i,j] );
end;
end;

writeln;

// Exibindo a matriz de forma alinhada.
for i := 1 to ordemDaMatriz do begin
for j := 1 to ordemDaMatriz do
write( A[i,j] :4 );
writeln;
end;

writeln;

// Calculando o determinante.
if (ordemDaMatriz = 1) then
determinante := A[1,1];

if (ordemDaMatriz = 2) then
determinante := (A[1,1] * A[2,2]) - (A[1,2] * A[2,1]);

if (ordemDaMatriz = 3) then
determinante :=
(A[1,1] * A[2,2] * A[3,3]) + (A[1,2] * A[2,3] * A[3,1]) +
(A[1,3] * A[2,1] * A[3,2]) - (A[1,3] * A[2,2] * A[3,1]) -
(A[1,1] * A[2,3] * A[3,2]) - (A[1,2] * A[2,1] * A[3,3]);

write(' >Determinante da Matriz: ', determinante);

readkey;
end.

Jogo da Velha em C/C++

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

// Procedimentos

void Jogo();
void Instrucao();
void Estatisticas();
void Renomear_Jogadores();
void Sobre();
void Obter_Linha_Coluna();

void Declarando_Vencedor(int jogador);

// Variáveis globais
int A[3][3], linha, coluna;
int NumeroDeVitoriasDoJogador1 = 0;
int NumeroDeVitoriasDoJogador2 = 0;
int NumeroDeEmpates = 0;

char NomeDoJogador1[12] = "JOGADOR 1", NomeDoJogador2[12] = "JOGADOR 2";

int main(){

   int op=0;
     while (op != 6){

      printf("\t\t---------------------------------------------------\n");
      printf("\t\t\t\tJOGO DA VELHA\n");
      printf("\t\t---------------------------------------------------\n\n");

      // Menu de opções
      printf(" 1 - JOGAR\n");
      printf(" 2 - INSTRU%c%cES\n",384,229);
      printf(" 3 - ESTAT%cSTICAS\n",470);
      printf(" 4 - RENOMEAR JOGADORES\n");
      printf(" 5 - SOBRE\n");
      printf(" 6 - SAIR\n\n");
        op=0;
        while (op<1 || op>6){
          printf(" Digite op%c%co: ",135,454);
          scanf("%d",&op);
        }

       system("cls");
       // Desvio para o procedimento
       if (op == 1) Jogo();
       if (op == 2) Instrucao();
       if (op == 3) Estatisticas();
       if (op == 4) Renomear_Jogadores();
       if (op == 5) Sobre();

       if (op != 6){
          printf(" ");
          system("pause");
          system("cls");
       }
   }
   return 0;
}

void Jogo(){

    int Jogador=1;
    int cont_A=0, cont_B=0;
    int FimDoJogo=0;

    //Inicializando a matriz
     for (int i=0; i<3; ++i){
       for (int j=0; j<3; ++j)
         A[i][j]=0;
     }

   while (FimDoJogo == 0){

      // Verifica se existe alguma coluna totalmente preenchida por um mesmo caractere
      cont_A=0, cont_B=0;
      for (int i=0; i<3; ++i){

          for (int j=0; j<3; ++j){
            if (A[i][j]==1) cont_A++;
            if (A[i][j]==2) cont_B++;
          }
           if (cont_A == 3) break; else cont_A=0;
           if (cont_B == 3) break; else cont_B=0;
     } if ((cont_A == 3) || (cont_B == 3)) {Declarando_Vencedor(Jogador); FimDoJogo=1;}



     // Verifica se existe alguma linha totalmente preenchida por um mesmo caractere
     cont_A=0, cont_B=0;
     for (int i=0; i<3; ++i){

          for (int j=0; j<3; ++j){
            if (A[j][i]==1) cont_A++;
            if (A[j][i]==2) cont_B++;
          }
           if (cont_A == 3) break; else cont_A=0;
           if (cont_B == 3) break; else cont_B=0;
     } if ((cont_A == 3) || (cont_B == 3)) {Declarando_Vencedor(Jogador); FimDoJogo=1;}



     // Verifica a Diagonal Principal
     cont_A = 0; cont_B = 0;
     for (int i=0; i<3; ++i){
            if (A[i][i]==1) cont_A++;
            if (A[i][i]==2) cont_B++;
     } if ((cont_A == 3) || (cont_B == 3)) {Declarando_Vencedor(Jogador); FimDoJogo=1;}



     // Verifica a Diagonal Secundaria
     cont_A = 0; cont_B = 0;
     for (int i=0; i<3; ++i){
            if (A[i][2-i]==1) cont_A++;
            if (A[i][2-i]==2) cont_B++;
     } if ((cont_A == 3) || (cont_B == 3)) {Declarando_Vencedor(Jogador); FimDoJogo=1;}



     // Verifica se houve empate
     cont_A = 0;
     for (int i=0; i<3; ++i){
         for (int j=0; j<3; ++j){
            if (A[i][j]!=0) cont_A++;
         }
     } if ((cont_A == 9) && (FimDoJogo != 1)) {printf("\n\tEMPATE! TENTEM NOVAMENTE!"); FimDoJogo=2;}



     if (FimDoJogo == 0){
        if (Jogador==1) printf("\n\t%s",NomeDoJogador1);
           else printf("\n\t%s",NomeDoJogador2);
     }
     printf("\n\n");



     // Estética do jogo
     for (int i=0; i<5; ++i){
        if (i == 0) printf("\n\t\tC 1 C 2 C 3\n");
        if (i%2==0){
          printf("\n\t   L %d\t",i/2+1);
          for (int a=0; a<3; ++a){
            if (A[a][i/2] == 0) printf("    "); else {if (A[a][i/2] == 1) printf(" X "); else printf(" 0 ");}
             if (a!=2) printf("|");
          }
        }
           else printf("\n\t\t---------------");
     } printf("\n\n\n");




      if ((FimDoJogo == 1) || (FimDoJogo==2)){
         if ((FimDoJogo == 1) && (Jogador == 1)) NumeroDeVitoriasDoJogador2++;
         if ((FimDoJogo == 1) && (Jogador == 2)) NumeroDeVitoriasDoJogador1++;
         if (FimDoJogo == 2) NumeroDeEmpates++;
      }
      else {
        // Obtem as coordenada do usuário (verificando se estas são válidas)
        Obter_Linha_Coluna();

         // Atualiza o jogo
         if (Jogador == 1) {A[coluna-1][linha-1]=1; Jogador = 2;}
         else {A[coluna-1][linha-1]=2; Jogador = 1;}

        system("cls");
      }
   }
}

void Declarando_Vencedor(int jogador){
    if (jogador == 1) printf("\n\tPARABENS %s! VOCE GANHOU!",NomeDoJogador2);
       else printf("\n\tPARABENS %s! VOCE GANHOU!",NomeDoJogador1);
}

void Obter_Linha_Coluna(){

    linha=0;
    // Só serão aceitos valores entre 1(inclusive) e 3(inclusive)
    while (linha<1 || linha>3){
      printf(" [L] Linha..: ");
      scanf("%d",&linha);
    }

    coluna=0;
    // Só serão aceitos valores entre 1(inclusive) e 3(inclusive)
    while (coluna<1 || coluna>3){
      printf(" [C] Coluna.: ");
      scanf("%d",&coluna);
    }

    // Recursividade
    while (A[coluna-1][linha-1] != 0) Obter_Linha_Coluna();
}

void Instrucao(){
   printf("\n\n\t- O TABULEIRO %c UMA MATRIZ DE TR%cS LINHAS POR TR%cS COLUNAS.\n\n",144,210,210);

   printf("\t- OS JOGADORES JOGAM ALTERNADAMENTE, UMA MARCA%c%cO POR VEZ,\n\t",384,455);
   printf("NUMA POSI%c%cO QUE ESTEJA VAZIA.\n\n",384,455);

   printf("\t- A MISS%cO %c CONSEGUIR TR%cS X'S OU TR%cS 0'S, NA HORIZONTAL\n\t",455,144,210,210);
   printf("OU VERTICAL OU DIAGONAL, E AO MESMO TEMPO, QUANDO POSS%cVEL,\n\t",470);
   printf("IMPEDIR O ADVERS%cRIO DE GANHAR NA PR%cXIMA JOGADA.\n\n",181,224);
}

void Estatisticas(){
    printf("\n\n\tN%cMERO DE VIT%cRIAS DO JOGADOR 1.: %d\n",233,224,NumeroDeVitoriasDoJogador1);
    printf("\tN%cMERO DE VIT%cRIAS DO JOGADOR 2.: %d\n",233,224,NumeroDeVitoriasDoJogador2);
    printf("\tN%cMERO DE EMPATES...............: %d\n\n",233,NumeroDeEmpates);
}

void Renomear_Jogadores(){
    int op = 0;

    printf("\n\n 1 - RENOMEAR JOGADOR 1\n");
    printf(" 2 - RENOMEAR JOGADOR 2\n");
    printf(" 3 - SAIR\n");

    while (op!=3){
       op = 0;
       while ((op<1) || (op>3)){
          printf("\n Digite op%c%co: ",135,454);
          scanf("%d",&op);
       }

       if (op == 1){
          printf("\n NOME DO JOGADOR 1: ");
          scanf("%s",&NomeDoJogador1);
       }

       if (op == 2){
          printf("\n NOME DO JOGADOR 2: ");
          scanf("%s",&NomeDoJogador2);
       }
    }
}

void Sobre(){
    printf("\n IFBA: INSTITUTO FEDERAL DE EDUCA%c%cO, CI%cNCIA E TECNOLOGIA DA BAHIA.\n",384,455,210);
    printf("   CAMPUS VALEN%cA.\n\n\n",384);
    printf("    FUNDADOR: JO%cO MATHEUS SANTOS ASSIS.\n\n",455);
    printf("    CO-FUNDADOR: MATHIAS SANTOS ASSIS.\n\n");
}

Artigos relacionados em C/C++:

Somando duas matrizes em C/C++

Construindo uma tabuada no Visual Studio 2011

Adivinhando um número em C/C++

Programa com operações matemáticas C/C++

Imprime um número N vezes, o número (N-1) ene menos uma vezes, e assim sucessivamente em C/C++

Programa com todos os comandos em C/C++

Desenhando um X na tela em C/C++

Somando dois números em C/C++

Sequência de Fibonacci em C/C++

Programa que ler uma matriz quadrada e imprime a sua diagonal principal em C/C++

Multiplicando duas matrizes em C/C++