Códigos Prontos em Pascal

Abaixo selecionei uma lista de exemplos de códigos, mais utilizados como exemplos.

 

Números Primos

program primos;    //nome do programa

                  var    //variável
                     número,i:integer;   //variáveis inteiras
                     primo:boolean;  // variável booleana, ou seja, só pode assumir dois valores; verdadeiro ou falso

                     begin   //inicio do programa

                     // entrada

                writeln(' insira o número'); // a palavra writeln lerá o número inserido
                  readln (número); //    a palavra readln lerá o número

                      //processamento

                 primo:=true; // como padrão estou dizendo que todo número primo é verdadeiro(true)

                 i:=2;   //eu quero que o laço de repetição comece em 2

                    while i< número do         //lê-se da seguinte forma: enquanto i menor que número, faça
                         begin                              //inicie o laço de repetição

                     if número mod i=0    then    primo:= false;    //se o número inserido dividido por "i" tiver resto igual a zero, então é falso
                     i:=i+1;  // como "i" começa em dois, ele irá crescer em uma unidade ate fica menor que o número
                     end; //final do laço de repetição

                     if primo=false  then writeln (' não e número primo') // se número primo for igual a falso então exiba "não é número primo"
                     else writeln ('número primo'); // se não, exiba "número primo'
                       readln();   // coloquei (readln), para depois de executado as informações acima, o programa não fechar automaticamente, ele ira ficar em pause
                       end.  //final



Troca os valores dos termos inseridos

 
 program   TROCA; //PROGRAMA TROCA

                var     //variável
      a,b,auxiliar:integer;    //variáveis

      begin

      writeln ('insira o valor de a');  //escreva o valor de A
       readln(a);                       //leia a variável A
      writeln('insira o valor de b');  //escreva o valor de B
       readln(b);                      //leia a variável B

 

         auxiliar:= a;   //atribuindo a variável "auxiliar" o valor de A

 

         a:=b;  // a variável A eu atribuo o valor de B
         b:=auxiliar; //a variável B eu atribuo o valor da variável auxiliar, que essa tem, o valor antigo de b

         writeln(' o valor de A.:',a);  //exiba o valor de A
         writeln(' o valor de B.:',b);  //exiba o valor de B
         readln();  //pausa do programa
         end. //final

 

Valores em ordem decrescente
 

   program ordem;         // programa ordem

    var a,b,c:real;         //variáveis em números reais

    begin
                                 //entrada

     writeln('insira o valor de A');       //insira o valor de A
       readln(a);
     writeln('insira o valor de B');      //insira o valor de B
       readln(b);
     writeln('insira o valor de C');     //insira o valor de C
       readln(c);             //processamento

           if (a>=b) and (b>=c) then        // se  A menor que B e  B menor que C   então
              writeln(' a ordem fica',a:6:2,b:6:2,c:6:2)    // exiba ...

           else if (a>=B) and (c>=b) then                   // senão se ...
              writeln(' a ordem fica',a:6:2,c:6:2,b:6:2)   // exiba

           else if (b>=a) and (a>=c) then                 // senão se...
              writeln(' a ordem fica',b:6:2,a:6:2,c:6:2)   //writeln...
           else if (b>=a) and (a<=c) then="" br="">              writeln(' a ordem fica',b:6:2,c:6:2,a:6:2)   //senão se...
           else if (c>=a) and (a>=b) then
              writeln('a ordem fica',c:6:2,a:6:2,b:2:6 )    //exiba...
           else if (c>=a) and (a<=b) then="" senão="" se="" br="">              writeln('a ordem fica',c:2:6,b:2:6,a:2:6);   //exiba...

 

                  readln();    //pause
              end. //final



Valor é par ou impar

 

     program modpar;     //programa modpar

                     var num:integer;      //variáveis inteiras
                     begin                  //inicio

                     writeln('insira o número');  //exiba...
                      readln(num);   //leia...

                  if num mod 2 = 0 then writeln(' número par')  // se número dividido por 2, tem resto igual a zero, então exiba "número par"
                  else writeln(' número impar');  // senão número impar

                   readln();//pause
                   end.   //final

 

Tipo de triângulo, a parti dos valores inseridos
 

   program           triângulo;         //programa triângulo

   var ld,le,li:real;   //variável
   begin

     writeln('insira o valo da linha direita');    //escreva...
      readln(ld);
      writeln('insira o valo da linha esquerda');    //escreva...
      readln(le);
       writeln('insira o valo da linha inferior');   //escreva...
       readln(li);

   IF  ((ld+le)>li) and ((ld +li)>le) and ((le + li)> ld) then    //equação para existência de um triângulo...

          if       ( ld=le) and (ld=li)  then            //condição para o programa escrever na tela do computador a frase "em vermelho"
                      writeln (' triângulo equilatero')

          else if (ld=le) or ( ld=li) or (li=le) then  //condição para o programa escrever na tela do computador a frase "em vermelho"
                      writeln('triângulo isoceles')

           else writeln(' triângulo escaleno')   //condição para o programa escrever na tela do computador a frase "em vermelho"

 

   ELSE WRITELN(' não E UM triângulo'); //condição para o programa escrever na tela do computador a frase "em vermelho"
         readln();
     end. //final

 

Soma de uma progressão aritmética


program soma_de_uma_pa; 

            var a,an,n,s:real;  // variáveis reais

            begin   //inicio

              writeln(' insira o primeiro termo');      //writeln...
                readln(a);                               //readln...
              writeln(' insira o ultimo termo');        //writeln...
               readln(an);                              //readln...
              writeln('números de termos');             //writeln...
               readln(n);                               //readln...

 

                 s:= n*(a +an)/2;           //formula da soma de uma pa

                 writeln(' o valor da soma de uma progressão aritimética, foi: ',s:6:2);      //exiba...
                   readln();                                                                  //pause
                   end. //final


Identifica o mês, apartir do número inserido

 

 program dia_do_mes;          //programa dia do mes

      var                                    //variáveis
               mes:integer;                  //inteiro

             begin                          //inicio

             writeln(' insira o número, do respectivo mes');    //exiba...
               readln(mes);                            //leia

             case mes of                      //caso o mes seja:

             1: writeln('janeiro');            //número, exiba....
             2: writeln('fevereiro');
             3: writeln('marco');
             4: writeln('abril');
             5: writeln('maio');
             6: writeln('junho');
             7: writeln('julho');
             8: writeln('agosto');
             9: writeln('setembro');
             10: writeln('outubro');
             11: writeln('novembro');
             12: writeln('dezembro');
              else writeln (' não existe esse mes');   //senão tiver o número que for inserido, exiba.....

              end;       //final do caso seja..
               readln();  //pause
             end.  //final

 

Tabuada matemática exemplo 1

 

program      tabuada;      // programa tabuada

           var      número,i:integer;    //variáveis

 

           begin                     //inicio

        writeln(' insira o coeficiente  ');        // exiba...
          readln(número);                          //leia

                                                 // para i eu atribuo 1 até 10 e faça
     for i:=1  to 10 do

     writeln(número,' x ', i,' = ', número*i);   //exibir...
       readln();//pause
       end.  //final

 

Tabuada matemática exemplo 2

 

program      tabuada;      // programa tabuada

           var      número,i:integer;    //variáveis

           begin                     //inicio

        writeln(' insira o coeficiente  ');        // exiba...
          readln(número);                          //leia

                                                 // para i eu atribuo 1
    i:=1;
                                                // enquanto i menor ou igual a 10 faça
      while i<=10 do
        begin //iniciar
     writeln(número,' x ', i,' = ', número*i);   //exibir...
      i:=i+1;   //incrementando, que o valor de i, sempre aumentar mais 1
      end;//final do laço
       readln();//pause
       end.  //final

 

Um forte abraços a todos