Pular para o conteúdo principal

Postagens

Mostrando postagens de Abril 1, 2013

Código Fonte MMC de 2 números Matemática em Pascal

Copie e cole a baixo em um programa que leia a linguagem de programação Pascal.
// -----------------------------------------------------------------
// Programa que calcula o MMC de dois números. :~
//
// Contribuição: Danilo Rafael Galetti.
// ----------------------------------------------------------------

Program Pzim ;
var
 PrimeiroValor,SegundoValor,Divisor,MMC:Integer;
 Begin
 writeln ('                 Programa que calcula MMC de 2 números                 ');
 writeln ('                ---------------------------------------                ');
 writeln ('');
 write ('Informe o primero número: ');
 read (PrimeiroValor);
 write ('Informe o segundo número: ');
 read (SegundoValor);
 Divisor:=2;
 MMC:=1;
       if (PrimeiroValor=0) or (SegundoValor=0) then
       begin
       write ('O Mínimo Múltiplo Comum (MMC) é');
       writeln (' 0');
       end;
 if (PrimeiroValor<>0) and (SegundoValor<>0) then
 begin
 Repeat
 if (PrimeiroValor Mo…

Código Fonte de um Prédio em Pascal

Copie e cole em um programa que leio a linguamgem Pascal.
// -------------------------------------------------------------------
// Programa que mostra na tela um predinho. :~
// -------------------------------------------------------------------

Program ExemploPzim ;
Begin
  writeln('         .           ');
  writeln('         |           ');
  writeln('         #           ');
  writeln('         #           ');
  writeln('       __#__         ');
  writeln('       | _ |         ');
  writeln('       | _ |         ');
  writeln('       | _ |         ');
  writeln('     __|___|__       ');
  writeln('     | __ __ |       ');
  writeln('     | __ __ |       ');
  writeln('     | __ __ |       ');
  writeln('     | __ __ |       ');
  writeln('   __|_______|__     ');
  writeln('   | * * * * * |     ');
  writeln('   | PASCALZIM |     ');
  writeln('   | _________ |     '…

Código Fonte Números Primos em Pascal

// -------------------------------------------------------------
// Este programa calcula as raizes de uma equação de segundo
// grau, segundo a conhecida formula de Baskara :~
// Autor : Luiz Reginaldo - Desenvolvedor do Pzim
// -------------------------------------------------------------

Program EquacaoSegundoGrau ;
 var a, b, c : integer ;
     delta, x1, x2 : real ;
 Begin
   writeln('Raizes da equacao ax^2 + bx + c = 0');

   // Solicita os valores de a, b e c
   write('Entre com o valor de a : ');
   read( a );
   write('Entre com o valor de b : ');
   read( b );
   write('Entre com o valor de c : ');
   read( c );   

   // Calcula o valor de delta
   delta := sqr(b) - 4*a*c ;
   writeln('Delta = b^2 - 4ac') ;
   writeln('O valor de delta = ', delta );

   // Verifica se existem raizes reais
   if( delta < 0 ) then
   Begin
     writeln('Porque delta e menor do que zero, nao existem raizes reais.');
   End;

   // Verifica se só tem uma raiz
   …

Código Fonte Equação do Segundo Grau em Pascal

// -------------------------------------------------------------
// Este programa calcula as raizes de uma equação de segundo
// grau, segundo a conhecida formula de Baskara :~
// Autor : Luiz Reginaldo - Desenvolvedor do Pzim
// -------------------------------------------------------------

Program EquacaoSegundoGrau ;
 var a, b, c : integer ;
     delta, x1, x2 : real ;
 Begin
   writeln('Raizes da equacao ax^2 + bx + c = 0');

   // Solicita os valores de a, b e c
   write('Entre com o valor de a : ');
   read( a );
   write('Entre com o valor de b : ');
   read( b );
   write('Entre com o valor de c : ');
   read( c );   

   // Calcula o valor de delta
   delta := sqr(b) - 4*a*c ;
   writeln('Delta = b^2 - 4ac') ;
   writeln('O valor de delta = ', delta );

   // Verifica se existem raizes reais
   if( delta < 0 ) then
   Begin
     writeln('Porque delta e menor do que zero, nao existem raizes reais.');
   End;

   // Verifica se só tem uma raiz
   …

Código Fonte Labirinto em Pascal

// -------------------------------------------------------------
// Este programa mostra como criar um game de labirinto :~
// Autor : Luiz Reginaldo - Desenvolvedor do Pzim
// -------------------------------------------------------------
Program Pzim ;

var maze: array[1..25,1..80] of char;
    i, j: integer ;
    xDestino, yDestino: integer ;
    x,y: integer;
    flag:boolean;

//----------------------------------------------------------------
// Funcao usada para saber se a posicao está dentro do labirinto
//----------------------------------------------------------------
Function isDentroLabirinto( i, j: integer ): boolean ;
Begin
  if (i <=0) or (i >= 25) or (j <= 1) or (j >= 80) then
     isDentroLabirinto := false
  else
     isDentroLabirinto := true ;      
End;      

//--------------------------------------------------------------------
// Funcao usada para saber se a posicao denota uma borda do labirinto
//--------------------------------------------------------------------
Function…

Código Fonte Número Pi Em Pascal

// -------------------------------------------------------------
// Programa com a fórmula matemática para se calcular Pi. Quanto
// maior o número n, mais próximo será o resultado entre o valor
// calculado pelo programa e o número Pi. Como o programa é
// bastante limitado, esse resultado não se aproxima tanto.
// Quanto mais tendente ao infinito for o número n,  mais fiel
// será o valor final apresentado pelo programa em relação ao
// valor de Pi. A expressão matemática usada nesse programa é
// a seguinte:
//
// Pi = 3 + 1/2 - 1/3 + 1/4 - 1/5 + 1/6 ...
//
// Obs: Pi= 3,14159265358979........
//
// Desenvolvido pelo beta-tester Danilo Rafael Galetti :~
// -------------------------------------------------------------

Program Pzim ;
var i,n: integer;
    Pi: real;

Begin
 // Solicita o numero de termos da série
 write('Informe o numero de termos da serie: ');
 read(n);

 // Caclula o valor de PI
 Pi:=3;
 For i:=2 to n do
 Begin
   // Os termos na posicao par sao positivos
   if (i mod 2 = 0) then

Código Fonte Tabuada de multiplicação em Pascal

// -----------------------------------------------------------------
// Programa que mostra a tabuada de um número. :~
//
// Autor   : Rodrigo Garé Pissarro - Beta Tester
// Contato : rodrigogare@uol.com.br
// ----------------------------------------------------------------
Program ExemploPzim ;
Var i: integer ;
    N: integer;

 Begin
    // Solicita o número
    write('Informe o número desejado: ');
    readln(N);

    // Mostra a tabuada do número
    for i:= 1 to 10 do
      begin
        writeln(N, ' X ', i:2, ' = ', N*i:2);
      end;
 End.

Copie e cole em algum programa que tenha disponibilidade Pascal e verá a tabuada de vezes

Código Fonte Tetris em Pascal

{ -------------------------------------------------------------

   Leonardo Pignataro's TETRIS - versão 1.0

   * Incluído para demonstrar os recursos do Pascal ZIM!

   Autor   : Leonardo Pignataro - Beta Tester
   Contato : leopignataro@brturbo.com

   Este código fonte teve de sofrer algumas adaptações para
   torná-lo compatível com o Pascal ZIM!. A versão original
   pode ser encontrada no seguinte URL:

   http://www.geocities.com/leopignataro86/tetris.zip

  ------------------------------------------------------------- }

{ -------------------------------------------------------------
   Funcionamento geral do programa:

   Basicamente, há um grid, que armazena em memória o estado
   das 'casas' do jogo: quais estão preenchidas, e de que cor.
   Este grid é representado na tela, sendo que cada casa ocupa
   dois caracteres consecutivos, sendo eles caracteres #219.

   Há uma peça caindo no grid (tipo T_Object, variavel obj),
   controlada pelo usuário, e também uma outra fixa ao lado do
   …

Código Fonte cauculadora de soma de 3 números Pascal

Program Pzim ;
Var n1,n2,n3,S:Integer;

Begin
Writeln('Digite o primeiro número');
Readln(n1);
Writeln('Digite o segundo número');
Readln(n2);
Writeln('Digite o terceiro número');
Readln(n3);

S:=(n1+n2+n3);
Write(' a soma dos num e',S);
readln;
End.
Copie e cole tudo o que está a cima em algum programa de programa que rode Pascal e verá o Programa sendo Aberto Normalmente igual a qualquer um outro.

Código Fonte contagem regressiva Pascal

Program Contagem;

Var
valor,n1:integer;

Begin

Writeln('Digite até quanto irá a contagem');
Read(n1);

Valor:=0;

While valor < n1 do
Begin
Valor:= valor+1;
Writeln(Valor);

End;
Readln;
End. Copie e cole tudo o que está a cima.

Código Fonte cauculadora de soma completa Pascal

Program Soma_Continuar;
Var
Continuar:String;
Soma,Numero1,Numero2:Real;
Begin
Continuar:='sim';
While continuar='sim'DO
Begin
Writeln('Soma de dois Numeros');
Writeln('Digite o primeiro numero');
Readln(numero1);
Writeln('Digite o Segundo numero');
Readln(numero2);
Soma:= Numero1+Numero2;
Writeln('A soma dos numeros e:',Soma:2:2);
Writeln('Deseja realizar outra soma? Escreva sim ou nao');
Readln;
END;
END.



Copie e cole tudo acima.

Código Fonte cauculadora de soma 5 números Pascal

Program Pzim;
Var n1,n2,n3,n4,n5,S:Integer;

Begin
Writeln('Digite o primeiro número');
Readln(n1);
Writeln('Digite o segundo número');
Readln(n2);
Writeln('Digite o terceiro número');
Readln(n3);
Writeln('Digite o quarto número');
Readln(n4);
Writeln('Digite o quinto número');
Readln(n5);

S:=(n1+n2+n3+n4+n5);
Write(' a soma dos num e',S);
Readln
End.
Copie e cole tudo o que está a cima.


Claro, Oi, TIM e Vivo anunciam rede 4G única

As maiores operadoras de telefonia do Brasil acabam de anunciar que vão compartilhar integralmente a infraestrutura para instalação da rede 4G, que está sabidamente atrasada. Os presidentes da Claro, Oi, TIM e Vivo se reuniram com alguns membros da imprensa em São Paulo para fazer o anúncio no início da noite. A rede foi batizada de TIVICO e vai utilizar a frequência de 2.500 MHz leiloada no ano passado pela Agência Nacional de Telecomunicações. A medida foi anunciada para tentar pôr fim às discussões sobre a qualidade no serviço da conexão 4G brasileira. Cada uma das operadoras entrará com a sua área de experiência para oferecer o que eles prometem ser a melhor tecnologia em conexão banda larga móvel do planeta. Sim, do planeta. Antônio Carlos Bravo, o presidente da Vivo, disse que a companhia entraria com o sistema de cobrança. Afinal, de acordo com ele, não existe operadora melhor para cobrar dos clientes. Pagam caríssimo por um serviço tido como premium porque não tem…

Vivo reformula Vivo On, que agora inclui acesso à internet

O Vivo On é um plano que inclui ligações locais, SMS e acesso à redes sociais e que vale muito a pena para quem tem muitos contatos da Vivo. A novidade da vez é que o acesso à internet passou a ser livre para qualquer site, e isso deixou o plano ainda mais interessante do que já era. A franquia de internet varia de acordo com a sua recarga. Se você recarregar R$ 18 em créditos, terá 50 MB de dados para usar durante o mês. Se a recarga mensal for de R$ 25 ou mais, o cliente terá 200 MB à sua disposição para usar como quiser. A velocidade é de 1 Mbps, e, terminada a franquia de internet, o cliente não fica sem conexão, já que a velocidade é reduzida para 32 kbps até o próximo mês. A novidade também é válida para quem possui o Vivo On junto a um plano Controle: o plano mais simples já contempla essa franquia de 200 MB de dados. Não houve mudanças quanto aos demais serviços oferecidos pelo Vivo On. Dependendo do valor da recarga, o cliente pode receber bônus diário de até R$ …