EXEMPLOS DE ALGORITMOS NA LINGUAGEM PASCAL

A seguir alguns exemplos simples de algoritmos na linguagem pascal

1. Calcule a média aritmética de 10 números reais lidos.

Program MD_NUM;

uses crt;

var num, cont: integer;

soma, media: real;

begin 

          clrscr;

          cont:=1;

          soma:=0;

         while cont <= 10 do

         begin

                   write ('Digite o',cont,'o. número:');

                   readln (num);

                  soma:= num + soma;

                  cont:= cont + 1;

         end; 

        media:=soma/10;

        writeln ('A media dos números é ',soma:3:2);

        write ('Tecle ALGO para sair');

        readkey;

end.

2. Calcular a média aritmética de N números lidos somando somente os ímpares.

Program MD_IMPAR;

uses crt;

var n, num, cont, ci: integer;

si: real;

begin

          clrscr;

           write ('Digite a quantidade de números: ');

           readln (n);

           if (n > 0) Then

           begin 

                     cont:= 1; ci:= 0; si:= 0;

                     while (cont <= n) do

                      begin 

                                write('Digite o ',cont, 'o. número');

                                readln (num);

                                if num mod 2<>0 then

                                begin

                                         si:= si + num;

                                         ci:= ci + 1 ;

                               end; 

                               cont:= cont + 1;

                      end;

                      if ci > 0 then

                           writeln ('A media dos',ci,'o. num impares lidos é ',si / ci: 4: 2);

                      else

                           writeln ('Não foi lido nenhum numero impar');

       end

       else

              writeln ('A quantidade precisar ser maior que zero');

       write ('Tecle ALGO para sair');

       readkey;

end.